Microsoft 365 Bug au démarrage de ma macro

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
 

Pièces jointes

  • test vba .xlsm
    21.5 KB · Affichages: 3

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour ChantalTreize,
Comme rien n'est sélectionné avant, le Select génère une erreur.
De plus on peut éviter les select, par ex en faisant simplement :
VB:
Sub Formulaire()
    [Tableau1].ListObject.ListRows.Add (1)
    Sheets("Formulaire").Range("C3:C11").Copy
    Sheets("BDD").[Tableau1[Date]].Item(1).PasteSpecial Paste:= _
    xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
End Sub
 

ChTi160

XLDnaute Barbatruc
re
ce que j'ai mis :
qui est moins académique que la Proposition de Sylvanu que je salue !
VB:
Sub Formulaire()
' Formulaire Macro
    Dim LsR As ListRow
   Set LsR = Range("t_BDD").ListObject.ListRows.Add(1)
   With Sheets("Formulaire")
    With .Range("C3:C11").Copy
    LsR.Range(1).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
    End With
   End With
    Range("B3").Select
End Sub
edit :
Sur cette Ligne pas besoin du Nom de la Feuille ?
Code:
 Sheets("BDD").[Tableau1[Date]].Item(1).PasteSpecial Paste:= _
    xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True    
    soit
[Tableau1[Date]].Item(1).PasteSpecial Paste:= _
    xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
Bonne Journée
jean marie
 

Discussions similaires

Réponses
3
Affichages
550