supprimer une ligne selon deux critères VBA EXCEL

Question

Bonjour à tous, 

J'aimerai créer une macro qui me permette de supprimer la ligne du dessous lorsque la première cellule des deux lignes est la même (il y a 300 lignes dans mon tableau).

J'ai commencer à écrire une macro surement très fausse. je vous la transmet pour donner une idée:

Sub Macro()
For i = 1 To 300
    If (Cells(i, 1).Find(What:="GERADE") And Cells(i + 1, 1).Find(What:="GERADE")) Then
    Cells(i + 1, 1).Select.EntireRow.Select
    Selection.Delete
    End If
Next
End Sub

Quelqu'un peut-il m'aider?
Merci d'avance

julieschw · Answer

Enfait j'ai trouvé toute seule. Je mets ma solution pour les prochains.

Sub Macro ()

For i = 1 To 300
If Cells(i, 1) "GERADE" And Cells(i + 1, 1) "GERADE" Then
Cells(i + 1, 1).EntireRow.Select
Selection.Delete
End If
Next

End Sub

us_30 · Answer

Bravo !

Avec une petite optimisation en prime...

Sub Macro()

Dim i As Long
For i = 1 To 300
If Cells(i, 1) "GERADE" And Cells(i + 1, 1) "GERADE" Then Cells(i + 1, 1).EntireRow.Delete
Next

End Sub

Cela évite la sélection visuellement moche (et + rapide)...

Amicalement,
Us.

julieschw · Answer

Et ça, ça va me servir pour tous mes macros...
Merci Us :)

Supprimer une ligne selon deux critères VBA EXCEL

3 réponses

Votre réponse

Discussions similaires