Macro insertion et copie en autofill [Résolu]

Signaler
Messages postés
2
Date d'inscription
mardi 22 décembre 2020
Statut
Membre
Dernière intervention
22 décembre 2020
-
Messages postés
2
Date d'inscription
mardi 22 décembre 2020
Statut
Membre
Dernière intervention
22 décembre 2020
-
Bonjour à toutes et tous,
je n'arrive pas à créer une macro generique sur mon fichier qui me permettrai

1- d'inserer une ligne en dessous (quelle que soit la ligne sélectionnée),
et de copier en autofill les données des colonnes A et B de la ligne sur la ligne crée

Pourriez vous m'aider?

merci beaucoup

Christine

2 réponses

Messages postés
23781
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
5 janvier 2021
6 548
Bonjour,

dans le module de ta feuille :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column = 1 And Target <> "" Then
        Target.Offset(1).EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
        Target.Resize(, 2).AutoFill Destination:=Target.Resize(2, 2), Type:=xlFillDefault
        Target.Offset(1, 2).Select
    End If
End Sub

Double-cliquer en A pour insérer en-dessous.
Attention qu'avec AutoFill si tu as nom1 c'est nom2 qui sera mis sur la nouvelle ligne... Il incrémente une liste finissant par un n° automatiquement
eric
Messages postés
2
Date d'inscription
mardi 22 décembre 2020
Statut
Membre
Dernière intervention
22 décembre 2020

Merci beaucoup!