A voir également:
- Supprimez ligne Blanche VBA Excel
- Aller à la ligne excel - Guide
- Liste déroulante excel - Guide
- Supprimer page blanche word - Guide
- Formule excel - Guide
- Apparaitre hors ligne instagram - Guide
2 réponses
Polux31
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 204
31 mai 2010 à 11:09
31 mai 2010 à 11:09
Bonjour,
Voilà un exemple :
;o)
Voilà un exemple :
Sub effaceLigne() Dim ws As Worksheet Dim lig As Long Dim plage As Range 'déclaration de l'objet feuille - mettre ici le numéro de la feuille à traiter. Set ws = Worksheets(1) 'numéro de la première ligne à traiter lig = 2 With ws 'Tant que la cellule A est vide faire While .Range("A" & lig).Value <> "" 'Déclaration de la plage à controler Set plage = .Range("E" & lig & ":AD" & lig) 'Appel de la fonction qui contrôle la plage If ctrlPlage(plage) = True Then 'Si le retour de la fonction est Vrai alors 'on supprime la ligne .Rows(lig).Delete lig = lig - 1 End If 'On libère l'objet et la mémoire Set plage = Nothing 'Pour passer à la ligne suivante lig = lig + 1 Wend End With End Sub Function ctrlPlage(ByRef pTarget As Range) As Boolean Dim cel 'Pour toutes les cellules de la plage For Each cel In pTarget 'Si le contenu de la cellule est différent de vide If cel.Value <> "" Then 'On retourne Faux ctrlPlage = False 'On sort de la fonction Exit Function End If Next cel ctrlPlage = True End Function
;o)