ChantalTreize
XLDnaute Occasionnel
Bonjour tout le monde,
Je voudrais savoir pourquoi ma 1ère ligne : Selection.ListObject.... plante
Je souhaite qu'elle m'insère une ligne au dessus de ma 1ère ligne dans mon tableau
Par avance Merci
Chantal
Sub Formulaire()
'
' Formulaire Macro
''
Selection.ListObject.ListRows.Add (1)
Sheets("Formulaire").Select
Range("C3:C11").Select
Selection.Copy
Sheets("BDD").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Range("B3").Select
End Sub
Je voudrais savoir pourquoi ma 1ère ligne : Selection.ListObject.... plante
Je souhaite qu'elle m'insère une ligne au dessus de ma 1ère ligne dans mon tableau
Par avance Merci
Chantal
Sub Formulaire()
'
' Formulaire Macro
''
Selection.ListObject.ListRows.Add (1)
Sheets("Formulaire").Select
Range("C3:C11").Select
Selection.Copy
Sheets("BDD").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Range("B3").Select
End Sub