Macro insertion et copie en autofill

Résolu
christine_9464 Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -  
christine_9464 Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -
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

eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 276
 
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
christine_9464 Messages postés 2 Date d'inscription   Statut Membre Dernière intervention  
 
Merci beaucoup!
0