excelvba a écrit :
bonjour j ai une fonction vba qui permet de faire sensiblement ce que fait recherchev mais elle permet d avoir plusieurs résultat. mon probleme se situe au niveau des résultat que le fonction donne. lorsque je réactive la fonction une deuxieme fois elle me redonne les meme résultat que javais déja plus les nouveau donc elle double ceux que j avais déja. est ce possible de programmer la fonction pour qu elle ne double pas les valeur que j ai déja et qu elle ajoute les nouvelle. c une sorte de refresh que je veux dans le fond voici le code en question :
Sub recherche()
Dim i, j, lgn As Integer
For i = 1 To Sheets("Liste régularisations" ).Cells(1, 1).CurrentRegion.Rows.Count
For j = 1 To 7
If Not IsEmpty(Sheets("Feuil1" ).Cells(j + 3, 2)) Then
If Sheets("Liste régularistations" ).Cells(i, j).Value <> _
Sheets("Feuil1" ).Cells(j + 3, 2).Value Then GoTo erreur
End If
Next
lgn = Sheets("Feuil1" ).Cells(15, 1).CurrentRegion.Rows.Count + 15
Sheets("Feuil1" ).Range(Sheets("Feuil1" ).Cells(lgn, 1), Sheets("Feuil1" ).Cells(lgn, 7)).Value = _
Sheets("Liste régularisations" ).Range(Sheets("Liste régularisations" ).Cells(i, 1), Sheets("Liste régularisations" ).Cells(i, 7)).Value
erreur:
Next
End Sub
le code provient de ce forum il a été écrit par itawa si je me trompe pas. donc si quelqu un peut me faire un coup de génie et régler se probleme ca me ferait sourire énormément !!!
merci dsl pour le language utilisé je suis débutant en vba donc je ne sais pas si je m exprime comme il faut
|