Bonjour à tous,
J'ai écris un code qui ne fonctionne pas et je ne sais pas pourquoi...
Je souhaite copier vers la feuil5 Cellule (A7), toutes les lignes de la feuil3 qui ont dans la colonne A, à partir de la ligne 2, le code "A" (ce code résulte d'une formule).
Private Sub worksheet_activate()
Dim i As Long
For i = Feuil3.[A65000].End(xlUp).Row To 2 Step -1
If Cells(i, 1) = "A" Then
Feuil3.Rows(i).Copy Feuil5.Rows(7)
End If
Next
End Sub
Auriez-vous une solution ??
Merci beaucoup beaucoup d'avance !!
J'ai écris un code qui ne fonctionne pas et je ne sais pas pourquoi...
Je souhaite copier vers la feuil5 Cellule (A7), toutes les lignes de la feuil3 qui ont dans la colonne A, à partir de la ligne 2, le code "A" (ce code résulte d'une formule).
Private Sub worksheet_activate()
Dim i As Long
For i = Feuil3.[A65000].End(xlUp).Row To 2 Step -1
If Cells(i, 1) = "A" Then
Feuil3.Rows(i).Copy Feuil5.Rows(7)
End If
Next
End Sub
Auriez-vous une solution ??
Merci beaucoup beaucoup d'avance !!