Macro Un mot d'une cellule fait supprimer la ligne du dessous
Résolu/Fermé
A voir également:
- Macro Un mot d'une cellule fait supprimer la ligne du dessous
- Supprimer une page word - Guide
- Aller à la ligne dans une cellule excel - Guide
- Supprimer compte instagram - Guide
- Piratage facebook changer mot de passe - Guide
- Supprimer mot de passe windows 10 - Guide
3 réponses
eriiic
Messages postés
24570
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
23 avril 2024
7 213
4 mars 2013 à 07:31
4 mars 2013 à 07:31
Bonjour,
commence par nettoyer ta feuille en supprimant les lignes vides (elles ne le sont pas vraiment) jusqu'à 10000 et les colonnes vides jusqu'à X.
Et à faire copier collage spécial valeur sur la colonne I car tu fais référence à la ligne suivante et tu auras des #REF.
eric
commence par nettoyer ta feuille en supprimant les lignes vides (elles ne le sont pas vraiment) jusqu'à 10000 et les colonnes vides jusqu'à X.
Et à faire copier collage spécial valeur sur la colonne I car tu fais référence à la ligne suivante et tu auras des #REF.
Sub effLigCouple()
Dim lig As Long
For lig = Cells(Rows.Count, "H").End(xlUp).Row To 2 Step -1
If Cells(lig, "H") = "couple" Then
Rows(lig + 1).Delete
Cells(lig, "A").Resize(, 8).ClearContents
End If
Next lig
End Sub
eric
Merci BEAUCOUP eriiic
Cela fonctionne très bien
Si j"ai bien compris
Rows(lig + 1).Delete=la ligne en dessous de couple
Cells(lig, "A").Resize(, 8).ClearContents=la ligne"A" efface jusque"H"
Pour les colonnes je m'en sert jusqu'a "Q" pour préparer les étiquettes.
Mais si tu peut me donner la façon pour enlever les colonnes en trop .
Pour supprimer les lignes vide je l'exécute avec la Macro : Sébastien Mathier
et c'est vrai je ne l'avais pas fait dans l'exemple
Je te remercie encore pour ta gentillesse et ton travail
MERCI micheleliane
Cela fonctionne très bien
Si j"ai bien compris
Rows(lig + 1).Delete=la ligne en dessous de couple
Cells(lig, "A").Resize(, 8).ClearContents=la ligne"A" efface jusque"H"
Pour les colonnes je m'en sert jusqu'a "Q" pour préparer les étiquettes.
Mais si tu peut me donner la façon pour enlever les colonnes en trop .
Pour supprimer les lignes vide je l'exécute avec la Macro : Sébastien Mathier
et c'est vrai je ne l'avais pas fait dans l'exemple
Je te remercie encore pour ta gentillesse et ton travail
MERCI micheleliane
eriiic
Messages postés
24570
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
23 avril 2024
7 213
4 mars 2013 à 13:20
4 mars 2013 à 13:20
sélectionne la 1ère ligne libre, Shift+clic sur la ligne 10000, clic-droit, Supprimer.
Pareil sur les colonnes pour nettoyer ta feuille.
Et peut-être à faire sur d'autres, ton classeur fait 1.5Mo pour rien...
eric.
Pareil sur les colonnes pour nettoyer ta feuille.
Et peut-être à faire sur d'autres, ton classeur fait 1.5Mo pour rien...
eric.
