Suppression de ligne avec macro sous excel
Résolu
tibatcool
Messages postés
33
Date d'inscription
Statut
Membre
Dernière intervention
-
tibatcool Messages postés 33 Date d'inscription Statut Membre Dernière intervention -
tibatcool Messages postés 33 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je souhaiterai savoir comment faire pour faire une supression de ligne sous excel avec ma macro sachant que quand la ligne qui est supprimée, celle d'après remonte et n'est pas tester (ce qui rend faux le resultat après execution de la macro). Voici ci dessous le bout de ma macros qu'il faut modifier :
For Each Y In Range("G3:G10941") 'test num de dossier
If Y = "" Then
Y.EntireRow.Delete
End If
Next
Merci d'avance :).
Je souhaiterai savoir comment faire pour faire une supression de ligne sous excel avec ma macro sachant que quand la ligne qui est supprimée, celle d'après remonte et n'est pas tester (ce qui rend faux le resultat après execution de la macro). Voici ci dessous le bout de ma macros qu'il faut modifier :
For Each Y In Range("G3:G10941") 'test num de dossier
If Y = "" Then
Y.EntireRow.Delete
End If
Next
Merci d'avance :).
A voir également:
- Suppression de ligne avec macro sous excel
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Forcer suppression fichier - Guide
- Aller à la ligne excel - Guide
- Partage de photos en ligne - Guide
- Liste déroulante excel - Guide
1 réponse
J'ai résolu mon problème, le programme fonctionne mais il ne s'arrête jamais, je pense que c'est a cause du Y=Y-1 mais je ne sais pas comment l'arrété (mais je n'en ai plus besoin c'est juste pour apporté un élément de réponse). Voici ma macro :
Z = 7 'colonne
Y = 3 'ligne
Do Until Y = 10266
If Cells(Y, Z).Value = "" Then
Rows(Y).Delete
Y = Y - 1 'bien vérifier le numéro de la dernière ligne du tableau
End If
Y = Y + 1
Loop
Z = 7 'colonne
Y = 3 'ligne
Do Until Y = 10266
If Cells(Y, Z).Value = "" Then
Rows(Y).Delete
Y = Y - 1 'bien vérifier le numéro de la dernière ligne du tableau
End If
Y = Y + 1
Loop