Forums XLPages

Tous les messages (JeanMarie)

« 1 2 3 4 5 6 ... 29 »
Re: Categorisation film pour jeu.
#21
JeanMarie
Accro XLPages

Inscription: 09/05/2007
De Courcelles-les-Montbéliard

Messages: 286

Système d'exploitation:
PC & Mac
Version Excel utilisée:
Mac 2004 - 2011, et PC 2003 - 2010
Posté le : 31-12-2012 19h06
Bonsoir Serval, Didier, le Forum

Il suffit d'intervertir les critères de la fonction FREQUENCE, la formule devient donc, en J6
=EQUIV(NB.SI($D6:I6;MODE($D6:I6));FREQUENCE($D6:I6;{1;2;3});0)
il y a aussi cette possibilité que je ne t'avais pas donné :
=MODE(3;2;1;D6:H6)

Passe un bon réveillon.

@+Jean-Marie 
Hors Ligne
 Rapport   Haut 

Re: Excel 2003 - Explication sur la MFC
#22
JeanMarie
Accro XLPages

Inscription: 09/05/2007
De Courcelles-les-Montbéliard

Messages: 286

Système d'exploitation:
PC & Mac
Version Excel utilisée:
Mac 2004 - 2011, et PC 2003 - 2010
Posté le : 28-12-2012 14h05
Bonjour Astyanax, Didier, le Forum

Le format d'une mise en forme conditionnelle est appliqué quand la valeur du comparateur est VRAI. 

Dans la formule que tu as indiqué =MAX($B$4:$H$15) n'y a pas de comparateur d'écrit en tant que tel, alors Excel utilise le comparateur "<>0". Tu peux observer cette particularité avec la formule
=SI(A1;VRAI;FAUX)
Si la cellule A1 est vide ou égale à 0, FAUX sera retournée, si A1 contient une valeur numérique autre de 0 (négative ou positive) la formule retournera VRAI.

@+Jean-Marie
Hors Ligne
 Rapport   Haut 

Re: Copier une cellule vers une autre feuille en fonction d'une date
#23
JeanMarie
Accro XLPages

Inscription: 09/05/2007
De Courcelles-les-Montbéliard

Messages: 286

Système d'exploitation:
PC & Mac
Version Excel utilisée:
Mac 2004 - 2011, et PC 2003 - 2010
Posté le : 27-12-2012 17h24
Re...

Pour ce qui est de ta demande pour le cumul des valeurs "GO" de ton tableau, que devrais-tu modifier sur ces deux lignes de code ?
      vCumul = Worksheets("Feuil2").Cells(vLigne, vColonne) + .Cells(K, "E")
      Worksheets("Feuil2").Cells(vLigne, vColonne) = vCumul

Il est évidant que si tu n'effaces pas les lignes de la feuille1 après avoir exécutée la macro, celles-ci seront de nouveau cumulées au lancement de la macro.

@+Jean-Marie
Hors Ligne
 Rapport   Haut 

Re: Copier une cellule vers une autre feuille en fonction d'une date
#24
JeanMarie
Accro XLPages

Inscription: 09/05/2007
De Courcelles-les-Montbéliard

Messages: 286

Système d'exploitation:
PC & Mac
Version Excel utilisée:
Mac 2004 - 2011, et PC 2003 - 2010
Posté le : 27-12-2012 14h58
Re....

Essaye avec ce code
Sub Sandy_mdf_xlpages()
'Déclaration des variales
Dim vLigne As Byte 'valeur de la ligne à affecter
Dim vColonne As Byte 'valeur de la colonne à affecter
Dim vCumul As Variant 'Valeur de la cellule pointée par vLigne et vColonne
'Action .xxxx pointant sur l'objet
With Worksheets("Feuil1")
   'Recherche la dernière cellule de la colonne H contenant une donnée saisie
   'Début de la boucle, on commence à la ligne 5
   For K = 5 To .Range("H65536").End(xlUp).Row
      'Quelle est la ligne à affecter, celle de Pierre, Paul ou Leo ?
      'recherche du caractère "X" dans les trois premières colonnes
      'vligne aura la valeur 4 , 7, 10
      'la foncion Match correspond à la fonction EQUIV d'Excel
      vLigne = (Application.Match("X", .Range("A" & K & ":C" & K), 1) * 3) + 1
      'Calcul de la colonne à affecter en prenant la valeur du mois de la cellelule en colonne I
      vColonne = Month(.Cells(K, "I")) * 2
      'on additionne la valeur de la colonne E avec la valeur de la cellule déterminée par vLigne et vColonne
      vCumul = Worksheets("Feuil2").Cells(vLigne, vColonne) + .Cells(K, "E")
      'on écrit la valeur cumulée
      Worksheets("Feuil2").Cells(vLigne, vColonne) = vCumul
   'on passe à la ligne suivante
   Next K
End With
End Sub

@+Jean-Marie 
Hors Ligne
 Rapport   Haut 

Re: Copier une cellule vers une autre feuille en fonction d'une date
#25
JeanMarie
Accro XLPages

Inscription: 09/05/2007
De Courcelles-les-Montbéliard

Messages: 286

Système d'exploitation:
PC & Mac
Version Excel utilisée:
Mac 2004 - 2011, et PC 2003 - 2010
Posté le : 27-12-2012 07h18
Bonjour Sandy84, Didier, le Forum 

Voici un code pour écrire la valeur "PO" dans la bonne cellule de ton tableau, code à mettre dans un module.
Sub Sandy_mdf_xlpages()
'Déclaration des variales
Dim vLigne As Byte
'Action .xxxx pointant sur l'objet
With Worksheets("Feuil1")
   'Quelle est la ligne à affecter, celle de Pierre, Paul ou Leo ?
   'recherche du caractère "X" dans les trois premières colonnes
   'vligne aura la valeur 4 , 7, 10
   vLigne = (Application.Match("X", .Range("A5:C5"), 1) * 3) + 1
   'on écrit la valeur de la cellule E5
   'dans la colonne "PO" du mois concerné et en fonction de la ligne vLigne
   Worksheets("Feuil2").Cells(vLigne, (Month(.Range("I5")) * 2)) = .Range("E5")
End With
End Sub
  
Après il te faudra créer un bouton pour lancer le code.

Concernant la formule en I5, tu peux l'écrire de cette manière :
=SI(ESTVIDE($H5);"";$H5+$D5)
ou
=SI($H5="";"";$H5+$D5)

@+Jean-Marie
Hors Ligne
 Rapport   Haut 

Re: Utilisation de Array()
#26
JeanMarie
Accro XLPages

Inscription: 09/05/2007
De Courcelles-les-Montbéliard

Messages: 286

Système d'exploitation:
PC & Mac
Version Excel utilisée:
Mac 2004 - 2011, et PC 2003 - 2010
Posté le : 12-12-2012 12h46
Bonjour Titom, Didier, le Forum

Tu dois faire une boucle de teste de la valeur de la cellule sur chaque valeur de ton tableau array.
J'écriais le code de cette manière
Sub travail_array()

Dim prenom As Variant
Dim I As Integer, lastLine As Integer, J As Integer

lastLine = Range("A100").End(xlUp).Row
prenom = Array("Thomas", "Romain", "Matthieu")

For I = 1 To lastLine
    Cells(I, 1).Interior.Color = vbRed
    For J = 0 To UBound(prenom)
        If Cells(I, 1) = prenom(J) Then
            Cells(I, 1).Interior.Color = vbGreen
            Exit For
        End If
    Next J
Next I

End Sub

@+Jean-Marie
Hors Ligne
 Rapport   Haut 

Re: Affichage insuffisant d'une liste déroulante
#27
JeanMarie
Accro XLPages

Inscription: 09/05/2007
De Courcelles-les-Montbéliard

Messages: 286

Système d'exploitation:
PC & Mac
Version Excel utilisée:
Mac 2004 - 2011, et PC 2003 - 2010
Posté le : 10-12-2012 18h32
Bonsoir Jacko, Didier, le Forum

Une astuce serait de passer par un objet listbox... Autrement désolé il n'y a pas d'autres solutions.

@+Jean-Marie
Hors Ligne
 Rapport   Haut 

Re: Affichage insuffisant d'une liste déroulante
#28
JeanMarie
Accro XLPages

Inscription: 09/05/2007
De Courcelles-les-Montbéliard

Messages: 286

Système d'exploitation:
PC & Mac
Version Excel utilisée:
Mac 2004 - 2011, et PC 2003 - 2010
Posté le : 09-12-2012 21h48
Bonsoir Jacko

Il suffit que tu remettes le zoom de ta feuille à 100%

@+Jean-Marie
Hors Ligne
 Rapport   Haut 

Re: Extraire des chiffres
#29
JeanMarie
Accro XLPages

Inscription: 09/05/2007
De Courcelles-les-Montbéliard

Messages: 286

Système d'exploitation:
PC & Mac
Version Excel utilisée:
Mac 2004 - 2011, et PC 2003 - 2010
Posté le : 02-12-2012 13h49
Bonjour Phil59110, Didier, le Forum

De rien, une petite remarque si tu le veux bien, si tu penses que ton fil est résolu, il est normal de le qualifié de la sorte en appliquant ce qui est expliqué sur cette page.

@+Jean-Marie
Hors Ligne
 Rapport   Haut 

Re: macro copie cell
#30
JeanMarie
Accro XLPages

Inscription: 09/05/2007
De Courcelles-les-Montbéliard

Messages: 286

Système d'exploitation:
PC & Mac
Version Excel utilisée:
Mac 2004 - 2011, et PC 2003 - 2010
Posté le : 02-12-2012 13h41
Bonjour maheknawe, Didier, le Forum

J'ai rajouté dans le code la création de la feuille quand celle-ci n'existe pas dans le classeur, dans le cas contraire on utilise la feuille existante pour la copie des données.
Citation :

Option Explicit

Sub tp()
Dim I As Byte
Dim Lgn As Long
Dim vFllNom As String
Application.ScreenUpdating = False
Application.EnableEvents = False
Lgn = Range("J65536").End(xlUp).Row
vFllNom = ""
With Worksheets("TabTrie")
    On Error Resume Next
    vFllNom = Sheets(.Range("Kb1").Value).Name
    If vFllNom = "" Then
        Sheets.Add after:=Sheets(Sheets.Count)
        Sheets(Sheets.Count).Name = .Range("Kb1")
    End If
    For I = 1 To 30
        .Range("J" & Lgn & ":Q" & Lgn).Offset(0, (I - 1) * 9).Copy
        Worksheets(.Range("Kb1").Value).Range("S4").Offset(0, I).PasteSpecial Transpose:=True
    Next I
End With
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub


Je n'ai pas tout compris, cela concerne "on copie de la première à la dernière dans le fichier" ?

@+Jean-Marie
Hors Ligne
 Rapport   Haut 

« 1 2 3 4 5 6 ... 29 »