Boubou129
Nouveau membre
Bonjour,
Je suis débutante en VBA et je dispose d'une feuille TEST où il y a une colonne avec des noms et à coté une colonne où il y a soit une valeur soit #N/A, mon but étant de rapatrier les N/A dans la feuille ERREUR.
J'ai écris ce programme :
Sub Erreur()
Sheets("TEST").Select
For i = 1 To 3
If IsError(Cells(i, "B")) Then
Cells(i, "A").Select
Selection.Copy
Sheets("ERREUR").Select
Cells(i + 1, "A").Select
ActiveSheet.Paste
End If
Next i
End Sub
Le problème c'est qu'il ne fonctionne que pour la 1ere ligne, la boucle FOR ne tourne pas si quelqu'un peu m'aider je l'en remercie.
Je suis débutante en VBA et je dispose d'une feuille TEST où il y a une colonne avec des noms et à coté une colonne où il y a soit une valeur soit #N/A, mon but étant de rapatrier les N/A dans la feuille ERREUR.
J'ai écris ce programme :
Sub Erreur()
Sheets("TEST").Select
For i = 1 To 3
If IsError(Cells(i, "B")) Then
Cells(i, "A").Select
Selection.Copy
Sheets("ERREUR").Select
Cells(i + 1, "A").Select
ActiveSheet.Paste
End If
Next i
End Sub
Le problème c'est qu'il ne fonctionne que pour la 1ere ligne, la boucle FOR ne tourne pas si quelqu'un peu m'aider je l'en remercie.