Macro Un mot d'une cellule fait supprimer la ligne du dessous
Résolu
micheleliane
-
micheleliane -
micheleliane -
Bonjour,
Je commence par remercier pijaku pour sa macro du 15 fevrier 2013
J'ai un autre problème dans la feuille atten_etique du classeur PREPARE_ETIQUETTES il faut d'apres le mot couple dans une cellule de la colonne H supprimer la ligne du dessous et effacer de A:H dans la ligne du mot couple je vais essayer de mettre mon dossier
J'ai excel 2003 et voudrais une macro VBA
JE SUIS TOUJOURS AUSSI NUL http://cjoint.com/?CCda6t1IYZA
Merci a l'avance
micheleliane
Je commence par remercier pijaku pour sa macro du 15 fevrier 2013
J'ai un autre problème dans la feuille atten_etique du classeur PREPARE_ETIQUETTES il faut d'apres le mot couple dans une cellule de la colonne H supprimer la ligne du dessous et effacer de A:H dans la ligne du mot couple je vais essayer de mettre mon dossier
J'ai excel 2003 et voudrais une macro VBA
JE SUIS TOUJOURS AUSSI NUL http://cjoint.com/?CCda6t1IYZA
Merci a l'avance
micheleliane
A voir également:
- Macro Un mot d'une cellule fait supprimer la ligne du dessous
- Supprimer rond bleu whatsapp - Guide
- Supprimer une page word - Guide
- Aller à la ligne dans une cellule excel - Guide
- Partager photos en ligne - Guide
- Trousseau mot de passe iphone - Guide
3 réponses
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
