Re : macro excel boucle
Boujour,
Voici quelques information qui pourait vous aidez, voici un petit plan
1) definir les variables
Dim Sin As Variant
dim reg as variant
....
2) ne pas oublier de vider le rapport des données précédentes
Feuil2.Select
Range("H20:H13000").Select
Selection.ClearContents
3) Se positionne dans la feuil source des informations et donner la valeur aux variables pour compraison
Feuil1.select
Sin = Range("g10").Value
4) se positionne a l'endroit du debut de la procédure et verifier s'il y a des donnes, si-non sortir de la procédure
Feuil1.Select
Range("B11").Select
If ActiveCell.Value = "" Then Exit Sub
end if
5) Si ces différents de vide, on procède, dans ce cas on compare les donnes a une variable pour définir si oui ou non on copie l'information
Do While ActiveCell.Value <> ""
If ActiveCell.Value = Sin Then
ActiveCell.Offset(0, 1).Select
reg=Activecell.value
6) se positionne dans la feuil ou nous voulons copier les donner, j'utilise souvent la fonction xldown suivi d'un deplacement vers le bas pour trouver la premiere cellule vide, ensuite je donne la valeur a la cellule
Feuil2.Select
Range("H18").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = reg
Else
ActiveCell.Offset(0, 1).Select
End If
Loop
End Sub
Bon Succès
Stéphane L'Archevêque
