Sujet Précédent Sujet Suivant

Excel 2007 VBA : pb If/ Then/Else & for/next

Résolu/Fermé
Eaheru Messages postés 197 Date d'inscription mercredi 23 juin 2010 Statut Membre Dernière intervention 12 mars 2018 - 18 oct. 2010 à 17:29
Eaheru Messages postés 197 Date d'inscription mercredi 23 juin 2010 Statut Membre Dernière intervention 12 mars 2018 - 18 oct. 2010 à 17:54
Bonjour,

J'essaie de code la fonctionnalité suivante :
Partir du bas de la feuille et toutes les lignes dont la cellule A et vide --> supprimer
Ensuite à partir de la premiere cellule A non vide rencontrée: on garde toutes celle qui ont une valeur en E et dont la valeur E-1 est identique
Ensuite, si E-1 n'est pas identique, on supprime et on reprend : si A vide on supprime jusqu' la prochaine cellule A remplie
etc.

J'ai écrit cette boucle :

DerniereLigne = Sheets("OF à Creer").UsedRange.Rows.Count
For Lig01 = DerniereLigne To 2 Step -1
If Cells(Lig01, 1) Like "" Then
Cells(Lig01, 1).Row.Delete
Next Lig01
End If
Else
If Not Cells(Lig01, 5) Like "" Then
If Cells(Lig01, 5).Value = Cells(Lig01, 5).Value.Offset(-1, 0) Then
Next Lig01
End If
Else
Cells(Lig01, 1).Row.Delete
Next Lig01
End If
End If
Else
Cells(Lig01, 1).Row.Delete
Next Lig01
End If
End If

Mais ça plante en me donnant le message suivant : "Next" sans "For" ( en surlignant ce que j'ai noté en gras).
Quelqu'un aurait une idée svp ?
Merci d'avance pour votre aide :)
A voir également:

2 réponses

Réponse 1 / 2
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
18 oct. 2010 à 17:44
Bonjour,
Woooo...Commence par indenter ton code, par exemple.. 
    DerniereLigne = Sheets("OF à Creer").UsedRange.Rows.Count
    For Lig01 = DerniereLigne To 2 Step -1
        If Cells(Lig01, 1) = "" Then
            Cells(Lig01, 1).Row.Delete
    
        ElseIf Cells(Lig01, 5) <> "" Then
            If Cells(Lig01, 5).Value = Cells(Lig01, 5).Value.Offset(-1, 0) Then
                Cells(Lig01, 1).Row.Delete
            End If
        Else
            Cells(Lig01, 1).Row.Delete
        End If
    Next Lig01


et tu verras immédiatemlent où le code flanche.
A+
0
Réponse 2 / 2
Eaheru Messages postés 197 Date d'inscription mercredi 23 juin 2010 Statut Membre Dernière intervention 12 mars 2018 20
18 oct. 2010 à 17:54
^^ Désolé, il est indenté dans mon fichier mais j'ai eu du mal a la mise en forme sur le forum.
Merci pour la correction, l'erreur était trop bête :(
0