Sujet Précédent Sujet Suivant

[vba excel] aide sur code

Fermé
antic80 Messages postés 4785 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 4785 Date d'inscription lundi 30 mai 2005 Statut Contributeur Dernière intervention 9 septembre 2009 - 18 févr. 2008 à 11:36
Bonjour,


j'aimerais faire une fonction en vba qui permet de parcourir un tableau dont la longueur n'est jamais fixe pour tout d'abord récuperer la date qui se trouve dans la 1ere colonne puis récuperer les données de la ligne dans un autre tableau.

le code doit faire ca pour toute les lignes. si la date est la meme les données de la ligne suivante doivent s'ajouter aux données précédente.


je ne vois pas trop comment faire
A voir également:

3 réponses

Réponse 1 / 3
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
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.
0
Réponse 2 / 3
antic80 Messages postés 4785 Date d'inscription lundi 30 mai 2005 Statut Contributeur Dernière intervention 9 septembre 2009 1 161
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
0
Réponse 3 / 3
antic80 Messages postés 4785 Date d'inscription lundi 30 mai 2005 Statut Contributeur Dernière intervention 9 septembre 2009 1 161
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
0