Boucle if not isempty ... then
seblg29
-
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
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
A voir également:
- Vba not isempty
- Input signal not found ✓ - Forum Matériel & Système
- Do not turn off target traduction - Forum Samsung
- Samsung galaxy tab S Bloquer Downloading do not turn off target - Forum Téléphones & tablettes Android
- Not able to play iron tv ✓ - Forum TV & Vidéo
- Signal cable not connected - Forum Ecran
3 réponses
Bonjour,
voici le bon code (tu n'as pas beosin de mettre = true)
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
Bonjour
pas besoin de boucler!...
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
Excusez moi d'avoir dérangé en proposant une solution simple
ce 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
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
Par contre à chaque fois qu'une ligne est supprimée,
la boucle for ne le prends pas en compte, il y a de ce fait des lignes qui ne sont pas supprimées.
Avez vous une idée pour corriger ce problème ?
D'avance merci,
cordialement,
sebastien