Boucle if not isempty ... then
Fermé
seblg29
-
Modifié par pijaku le 20/05/2016 à 13:38
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 20 mai 2016 à 13:47
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 20 mai 2016 à 13:47
A voir également:
- Vba if not isempty
- Vba attendre 1 seconde ✓ - Forum VB / VBA
- Mkdir vba ✓ - Forum VB / VBA
- If exist ✓ - Forum Autoit / batch
- Vba if not ✓ - Forum Excel
- Input not supported - Forum Ecran
3 réponses
melanie1324
Messages postés
1504
Date d'inscription
vendredi 25 mai 2007
Statut
Membre
Dernière intervention
31 janvier 2018
154
Modifié par pijaku le 20/05/2016 à 13:38
Modifié par pijaku le 20/05/2016 à 13:38
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
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 312
18 mai 2016 à 13:43
18 mai 2016 à 13:43
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
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 312
18 mai 2016 à 14:27
18 mai 2016 à 14:27
Excusez moi d'avoir dérangé en proposant une solution simple
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 312
>
seblg29
Modifié par michel_m le 20/05/2016 à 13:48
Modifié par michel_m le 20/05/2016 à 13:48
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
18 mai 2016 à 14:09
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