macro insertion et copie en autofill Résolu

Question

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

eriiic · Answer

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

christine_9464 · Answer

Merci beaucoup!

Macro insertion et copie en autofill

2 réponses

Discussions similaires

Newsletters