Boucle if not isempty ... then
Bonjour,
J'ai quelque soucis pour faire fonctionner ma boucle if not isempty.
Je souhaiterais que celle-ci supprime les lignes ou il n'y a aucune valeur dans la colonne 1, cependant, il doit y avoir une erreur dans ma boucle car "rien ne se passe".
Voici mon code :
Pouvez vous m'aider sur le sujet ?
Vous en remerciant par avance,
cordialement,
Sébastien
J'ai quelque soucis pour faire fonctionner ma boucle if not isempty.
Je souhaiterais que celle-ci supprime les lignes ou il n'y a aucune valeur dans la colonne 1, cependant, il doit y avoir une erreur dans ma boucle car "rien ne se passe".
Voici mon code :
Sub Macro1()
For i = 1 To 30
Workbooks("Crude B_18_05_2016.xlsm").Activate
Worksheets("Feuil1").Cells(i, 1).Select
If Not IsEmpty(Worksheets("Feuil1").Cells(i, 1).Value) = True Then
Else
Range(Cells(i, 1), Cells(i, 1)).EntireRow.Select
Selection.Delete Shift:=xlUp
End If
Next
End Sub
Pouvez vous m'aider sur le sujet ?
Vous en remerciant par avance,
cordialement,
Sébastien
3 réponses
-
ContributeurExcusez moi d'avoir dérangé en proposant une solution simple
-
-
Contributeur@seblg29ce n'est pas une question de niveau !!!!!
cette macro a été utilisée maintes et maintes fois sans problème
D'ailleurs, si ma proposition était erronée, elle ne serait plus dans la EAQ Excel
de DVP publiée en 2009
https://excel.developpez.com/faq/index.php?page=Feuille#SupprimeCellLigneVide
-
-
ContributeurBonjour
pas besoin de boucler!...Sub Supprimer_si_vide()
Dim Ligne As Long
On Error Resume Next
Ligne = Columns("A").Find("*", , , , , xlPrevious).Row
Range("A2:A" & Ligne).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub
-
Bonjour,
voici le bon code (tu n'as pas beosin de mettre = true)
Sub Macro1() For i = 1 To 30 Workbooks("Crude B_18_05_2016.xlsm").Activate Worksheets("Feuil1").Cells(i, 1).Select If Worksheets("Feuil1").Cells(i, 1).Value) <>"" Then Else Range(Cells(i, 1), Cells(i, 1)).EntireRow.Select Selection.Delete Shift:=xlUp End If Next End Sub
