Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 Macro insérer ligne et copier informations

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
A

Arwen43

XLDnaute Nouveau
Bonjour

Je voudrais faire la macro suivante:
* insérer une ligne en dessous dès que la cellule de la colonne B est égale à "GARMH"
* copier les informations de la cellule colonne A ligne précédente et colonne B ligne précédente dans cette nouvelle ligne créée

Je ne sais pas si cela est trés clair.

Merci de votre aide.
 
Trier par date Trier par votes
Salut Arwen43

Je ne suis pas un crac en VBA mais ce code devrait t'aider.

Si tu me passe un fichier sur lequel je peux travailler, je suis sure de pouvoir trouver une autre solution.


A plus

HopHopHop

VB: 
Sub creation_ligne ()

Dim ligne as integer

Set Data = Sheets("nom_de_feuille").Range("AA:CC")

While Data.Cells(ligne, 1) <> ""
    If Data.Cells(ligne, 2) = "GARMH" Then
    Data.Cells(ligne + 1, 1).Select
    Selection.EntireRow.Insert
    Data.Cells(ligne-1, 1).Copy
    Data.Cells(ligne, 1).Select
    Selection.Paste
    Data.Cells(ligne+1, 2).Copy
    Data.Cells(ligne, 2).Select
    Selection.Paste
    End If
ligne = ligne + 1
Wend
End Sub
 
Vote positif 0 Vote négatif

Merci de l'info. En pièce jointe le fichier, merci me dire si vous pouvez m'aider pour ma macro.
 

Pièces jointes

Vote positif 0 Vote négatif
Ça fait le boulot que tu veux mais comme je n'ai pas le contexte de ce tableau, je ne suis pas certain que cela va suffire.

Sub creation_ligne()

Dim ligne As Integer

Set Data = Range("A:F")
ligne = 1
Application.DisplayAlerts = False
'Application.EnableEvents = False
While Data.Cells(ligne, 2) <> ""
Data.Cells(ligne, 1).Select
If Data.Cells(ligne, 2) = "GARMH" Then
Data.Cells(ligne + 1, 1).Select
Selection.EntireRow.Insert
Data.Cells(ligne, 1).Copy
Data.Cells(ligne + 1, 1).Select
ActiveSheet.Paste
Data.Cells(ligne, 2).Copy
Data.Cells(ligne + 1, 2).Select
ActiveSheet.Paste
ligne = ligne + 1
End If
ligne = ligne + 1
Wend
'Application.EnableEvents = True
Application.DisplayAlerts = True
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif

Merci ça fonctionne trés trés bien.
Copier coller les formules des colonnes C, D , E et F sur la nouvelle ligne
Je pense que c'est assez facile.

Et aussi (plus compliqué à mon sens)
Sur la première ligne (celle qui est copiée) Remplacer "GARMH" par "GAR"
Sur la deuxième ligne (celle qui a été insérée) Remplacer "GARMH" par "MH"

Merci beaucoup, cela est une grande aide pour moi
 
Vote positif 0 Vote négatif
Voilà !!
Ca marche mais c'est très long sur mon ordi.

J'espère que sur le votre ça va aller mieux.


Code: 
Sub creation_ligne()
Dim ligne As Integer
Set Data = Range("A:F")
ligne = 1
Application.DisplayAlerts = False
While Data.Cells(ligne, 2) <> ""
Data.Cells(ligne, 1).Select
If Data.Cells(ligne, 2) = "GARMH" Then
Data.Cells(ligne + 1, 1).Select
Selection.EntireRow.Insert
Range(Data.Cells(ligne, 1), Data.Cells(ligne, 6)).Copy
Data.Cells(ligne + 1, 1).Select
ActiveSheet.Paste
Data.Cells(ligne + 1, 2).FormulaR1C1 = "MH"
Data.Cells(ligne, 2).FormulaR1C1 = "GAR"
ligne = ligne + 1
End If
ligne = ligne + 1
Wend
Application.DisplayAlerts = True
End Sub
 
Vote positif 0 Vote négatif

Ca fonctionne trés bien, merci beaucoup!
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

C
  • Résolu(e)
Autres Validation de données avant verrouillage de la ligne
2
Réponses
17
Affichages
314
com689
C
  • Résolu(e)
XL 2021 tri par lignes
2
Réponses
19
Affichages
842
rastafouette
S
  • Résolu(e)
XL 2016 Avis / Aide réécriture code
2 3
Réponses
38
Affichages
440
safranien
S
U
  • Question Question
Autres [RÉSOLU] Macro qui bug et je ne sais pas la corriger!!!
Réponses
7
Affichages
296
un internaute
U
S
  • Question Question
XL 2013 Copier automatiquement des données dans plusieurs onglets
Réponses
4
Affichages
476
Phil69970
O
  • Résolu(e)
XL 2013 Formule ou une programmation VBA qui permette de répartir des numéros de factures par ligne
Réponses
3
Affichages
123
JHA
J
  • Résolu(e)
XL 2016 copier la même ligne sur la dernière ligne vierge d'un tableau
Réponses
8
Affichages
195
eastwick
J
  • Question Question
Microsoft 365 SI cellule autre feuille est égal à oui
Réponses
2
Affichages
100
job75
  • Question Question
Microsoft 365 Effacer (et non supprimer) une ligne suivant texte.
Réponses
6
Affichages
301
DAVID-44-
N
  • Résolu(e)
XL 2019 Macro pour copier ligne avec case à cocher liée
Réponses
12
Affichages
397
Phil69970
  • Question Question
XL 2021 Copier coller qui ajoute une référence absolu Toute seule
2
Réponses
24
Affichages
928
TooFatBoy
R
  • Question Question
Microsoft 365 Ecrire un texte dans une cellule sous condition et changer couleur ligne
Réponses
4
Affichages
127
Rikko14
R
O
  • Résolu(e)
XL 2013 VBA/ Macro qui classe des données dans une colonne unique
Réponses
5
Affichages
147
onyirimba
O
  • Résolu(e)
XL 2016 Excel code vba motus
Réponses
11
Affichages
522
papychat1
F
  • Question Question
Microsoft 365 macro-formule pour recopier une ligne automatiquement à chaque changement de nom
Réponses
5
Affichages
139
Cousinhub
A
  • Résolu(e)
Microsoft 365 programme VBA pour "importer" les valeurs de certaines cellules d'une autre feuille appartenant à une ligne que j'identifie par un n°
2
Réponses
27
Affichages
1 K
arnomorize
A
  • Question Question
XL 2019 Lire un fichier excel fermé
Réponses
2
Affichages
106
controlo
M
  • Résolu(e)
XL 2021 Copier/Coller des valeurs d’une feuille à une autre à partir d’une cellule
Réponses
11
Affichages
466
MANU64360
M
M
  • Résolu(e)
XL 2019 saisie sur la première ligne vide depuis un formulaire
Réponses
8
Affichages
332
Mimi1952
M
M
  • Résolu(e)
XL 2021 Copier le texte d’une cellule
Réponses
9
Affichages
374
sylvanu
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…