Microsoft 365 Bug au démarrage de ma macro

ChantalTreize · 28 Octobre 2021

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

ChTi160 · 28 Octobre 2021

Bonjour
Peut-être , en mettant :

VB:

  Range("t_BDD").ListObject.ListRows.Add (1)

J'ai renommé ton "Tableau1" en "t_BDD"
Bonne Journée
Jean marie

sylvanu · 28 Octobre 2021

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 · 28 Octobre 2021

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

Microsoft 365 Bug au démarrage de ma macro

ChantalTreize

XLDnaute Occasionnel

Pièces jointes

ChTi160

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

Discussions similaires