A voir également:
- Suppression de ligne via macro
- Macro logiciel - Télécharger - Organisation
- Forcer suppression fichier - Guide
- Suppression compte instagram - Guide
- Apparaitre hors ligne whatsapp - Guide
- Communication impossible via ssl ps4 ✓ - Forum Google Chrome
4 réponses
nicodoudou
Messages postés
48
Date d'inscription
vendredi 7 décembre 2007
Statut
Membre
Dernière intervention
20 mars 2008
44
4 févr. 2008 à 18:05
4 févr. 2008 à 18:05
En fait tu utilises une boucle for mais avec une boucle While ce sera mieux
Voila le code
Sub Macro1()
'
' Macro1 Macro
Dim i As Integer
While not (range ("a" & i )=""))
"je parcours toutes les lignes jusqu'à ce que la colonne "a" soit à blanc
If Range("E" & i) = "" Then
Range("E" & i).EntireRow.Delete
Else
i=i+1
"je saute de ligne uniquement si je ne supprime pas
End If
wend
'
End Sub
A+
Nico
Voila le code
Sub Macro1()
'
' Macro1 Macro
Dim i As Integer
While not (range ("a" & i )=""))
"je parcours toutes les lignes jusqu'à ce que la colonne "a" soit à blanc
If Range("E" & i) = "" Then
Range("E" & i).EntireRow.Delete
Else
i=i+1
"je saute de ligne uniquement si je ne supprime pas
End If
wend
'
End Sub
A+
Nico
Désolé encore de vous importuner mais lorsque j'utilise ce code sur excel 2000, j'ai l'erreur suivante qui s'affiche : "la methode range de l'objet global a échoué" alors que ca marche sur excel 2003...
:(
Sub Macro1()
'
' Macro1 Macro
Dim i As Integer
While Not (Range("B" & i) = "")
'je parcours toutes les lignes jusqu'à ce que la colonne "a" soit à blanc
If Range("B" & i) = "" Then
Range("B" & i).EntireRow.Delete
Else
i = i + 1
'je saute de ligne uniquement si je ne supprime pas
End If
Wend
'
End Sub
:(
Sub Macro1()
'
' Macro1 Macro
Dim i As Integer
While Not (Range("B" & i) = "")
'je parcours toutes les lignes jusqu'à ce que la colonne "a" soit à blanc
If Range("B" & i) = "" Then
Range("B" & i).EntireRow.Delete
Else
i = i + 1
'je saute de ligne uniquement si je ne supprime pas
End If
Wend
'
End Sub
Finalement j'ai trouvé une solution... La parade est de refaire un nombre de boucle qui permet d'effacer tout les blanc considérés :
Sub Macro1()
'
' Macro1 Macro
Dim i As Integer
Dim j As Integer
For j = 1 To 40 <= je refait 40 fois l'opération.... (c'est beaucoup mais ca marche :D
For i = 1 To j
If Range("B" & i) = "" Then
Range("B" & i).EntireRow.Delete
Else
End If
Next
Next
End Sub
Sub Macro1()
'
' Macro1 Macro
Dim i As Integer
Dim j As Integer
For j = 1 To 40 <= je refait 40 fois l'opération.... (c'est beaucoup mais ca marche :D
For i = 1 To j
If Range("B" & i) = "" Then
Range("B" & i).EntireRow.Delete
Else
End If
Next
Next
End Sub