Macro dupliquant une ligne si une cellule contient tel caractère
Résolu/Fermé
dhaze
Messages postés
109
Date d'inscription
mardi 27 septembre 2011
Statut
Membre
Dernière intervention
6 février 2020
-
4 sept. 2014 à 16:25
dhaze Messages postés 109 Date d'inscription mardi 27 septembre 2011 Statut Membre Dernière intervention 6 février 2020 - 9 févr. 2015 à 17:44
dhaze Messages postés 109 Date d'inscription mardi 27 septembre 2011 Statut Membre Dernière intervention 6 février 2020 - 9 févr. 2015 à 17:44
A voir également:
- Vba insérer une ligne si cellule contient
- Si cellule contient texte alors ✓ - Forum Excel
- Excel si cellule contient texte alors 1 ✓ - Forum Excel
- Aller à la ligne dans une cellule excel - Guide
- Excel si cellule contient partie texte ✓ - Forum Excel
- Insérer signature word - Guide
17 réponses
via55
Messages postés
14403
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
24 avril 2024
2 703
Modifié par pijaku le 18/09/2014 à 14:32
Modifié par pijaku le 18/09/2014 à 14:32
Bonsoir dhaze,
Essaie cette macro
Cdlmnt
"L'imagination est plus importante que le savoir." A. Einstein
Essaie cette macro
Sub ajout() Dim DernLigne As Long DernLigne = Range("A" & Rows.Count).End(xlUp).Row For n = DernLigne To 2 Step -1 If Range("A" & n) = "MOT_1" Then Rows(n & ":" & n).Select Application.CutCopyMode = False Selection.Copy Selection.Insert Shift:=xlDown Range("B" & n).Select ActiveCell.FormulaR1C1 = Range("B" & n).Value & "_A" Range("B" & n + 1).Select ActiveCell.FormulaR1C1 = Range("B" & n + 1).Value & "_B" End If Next End Sub
Cdlmnt
"L'imagination est plus importante que le savoir." A. Einstein
17 sept. 2014 à 17:35
Je sais pas si c'est abuser (pour ma culture générale), pourrais-je savoir en langage courant ce que fait chaque ligne ?
Tu n'es pas obligé d'accepter ;-)
Merci encore