Boucle if not isempty ... then

seblg29 -
michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention - 20 mai 2016 à 13:47

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 :

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:

If not isempty vba
Could not connect to server - Forum TV & Vidéo
Vba attendre 1 seconde ✓ - Forum VB / VBA
Input signal not found ✓ - Forum Matériel & Système
Input not supported - Forum Ecran
Find vba - Astuces et Solutions

3 réponses

Réponse 1 / 3

melanie1324 Messages postés 1504 Date d'inscription Statut Membre Dernière intervention 155

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

seblg29

Merci pour la réponse !
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

Réponse 2 / 3

michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention 3 314

Bonjour
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

Réponse 3 / 3

michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention 3 314

Excusez moi d'avoir dérangé en proposant une solution simple

seblg29

excusez moi,

je n'ai pas votre niveau sous vba...
j'ai essayé votre proposition, sans résultats..

michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention 3 314 > seblg29

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

Discussions similaires

" Signal Cable Not Connected " écran Iiyama

The Realtek Network Controller was not found

"L'indice n'appartient à la sélection" + VBA

Erreur d'exécution 13 Incompatibilité de type

Iron tv pro bugs

Votre réponse

Discussions similaires