[vba excel] aide sur code
Fermé
antic80
Messages postés
4751
Date d'inscription
lundi 30 mai 2005
Statut
Contributeur
Dernière intervention
9 septembre 2009
-
18 févr. 2008 à 10:56
antic80 Messages postés 4751 Date d'inscription lundi 30 mai 2005 Statut Contributeur Dernière intervention 9 septembre 2009 - 18 févr. 2008 à 11:36
antic80 Messages postés 4751 Date d'inscription lundi 30 mai 2005 Statut Contributeur Dernière intervention 9 septembre 2009 - 18 févr. 2008 à 11:36
A voir également:
- [vba excel] aide sur code
- Liste déroulante excel - Guide
- Formule excel - Guide
- Code asci - Guide
- Si et excel - Guide
- Aller à la ligne sur excel - Guide
3 réponses
Darkito
Messages postés
1191
Date d'inscription
vendredi 7 décembre 2007
Statut
Membre
Dernière intervention
26 mai 2010
545
18 févr. 2008 à 11:08
18 févr. 2008 à 11:08
Bonjour,
Pour parcourir le tableau, tu peux faire une boucle while qui teste si on arrive pas sur une cellule vide. (while not isempty(...))
Pour la suite un "if" sur la date est suffisant.
Pour parcourir le tableau, tu peux faire une boucle while qui teste si on arrive pas sur une cellule vide. (while not isempty(...))
Pour la suite un "if" sur la date est suffisant.
antic80
Messages postés
4751
Date d'inscription
lundi 30 mai 2005
Statut
Contributeur
Dernière intervention
9 septembre 2009
1 159
18 févr. 2008 à 11:15
18 févr. 2008 à 11:15
peut tu detailler un peu plus le code
sachant que dans mon tableau la premiere cellule a prendre en compte est A2 et que le tableau compte 7 colonnes
sachant que dans mon tableau la premiere cellule a prendre en compte est A2 et que le tableau compte 7 colonnes
antic80
Messages postés
4751
Date d'inscription
lundi 30 mai 2005
Statut
Contributeur
Dernière intervention
9 septembre 2009
1 159
18 févr. 2008 à 11:36
18 févr. 2008 à 11:36
en admettant que mon tableau se présente comme suit
18/02/2008 5
18/02/2008 5
18/02/2008 4
19/02/2008 6
j'ai fait ce code
Cells(2, 1).Select
finplage = Range("a2").End(xlDown).Row
For i = 2 To finplage
If Cells(i + 1, 1) = Cells(i, 1) Then
valeur = valeur + Cells(i, 1).Offset(0, 1).Value
MsgBox valeur
End If
Next i
mais le probleme c'est plutot que de me faire 5+5+4 ce code me fait 5+5+6
18/02/2008 5
18/02/2008 5
18/02/2008 4
19/02/2008 6
j'ai fait ce code
Cells(2, 1).Select
finplage = Range("a2").End(xlDown).Row
For i = 2 To finplage
If Cells(i + 1, 1) = Cells(i, 1) Then
valeur = valeur + Cells(i, 1).Offset(0, 1).Value
MsgBox valeur
End If
Next i
mais le probleme c'est plutot que de me faire 5+5+4 ce code me fait 5+5+6