Sujet Précédent Sujet Suivant

Macro insertion et copie en autofill

Résolu/Fermé
christine_9464 Messages postés 2 Date d'inscription mardi 22 décembre 2020 Statut Membre Dernière intervention 22 décembre 2020 - 22 déc. 2020 à 12:45
christine_9464 Messages postés 2 Date d'inscription mardi 22 décembre 2020 Statut Membre Dernière intervention 22 décembre 2020 - 22 déc. 2020 à 15:51
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
A voir également:

2 réponses

Réponse 1 / 2
eriiic Messages postés 24571 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 8 mai 2024 7 216
22 déc. 2020 à 13:14
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
0
Réponse 2 / 2
christine_9464 Messages postés 2 Date d'inscription mardi 22 décembre 2020 Statut Membre Dernière intervention 22 décembre 2020
22 déc. 2020 à 15:51
Merci beaucoup!
0

Discussions similaires

lien copié
alaurore -
LEFEUVRE -

7 réponses
Comment retrouver des lien copier sur sont téléphone
SAMA -
Lylou -

2 réponses