Microsoft 365 Formulaire automatique - vba - erreur 1004

mymymymymymy

XLDnaute Nouveau
Bonjour,

Je suis relativement nouvelle pour le VBA comme le démontre plusieurs de mes posts.
Je cherche a automatiser un formulaire et transfert des donnees de ce formulaire vers un tableau dont je pourrais utiliser pour extraire des donn.es

voici mon macro créé a l'aide d'un enregistrement.
Sub ajout_entree_sortie()
'
' ajout_entree_sortie Macro
'

'
ActiveWindow.SmallScroll Down:=12
ActiveCell.Offset(19, -10).Range("A1:K1").Select
Selection.Copy
Sheets("inOut").Select
ActiveCell.Offset(-20, -2).Range("InventaireÉquipement[#Headers,[DATE]]"). _
Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("FORMULAIRE ").Select
ActiveWindow.SmallScroll Down:=-15
ActiveCell.Offset(-28, 3).Range("A1,A3,A5,A7,A9,A11,A15,A17,A19,A21").Select
ActiveCell.Offset(-8, 3).Range("A1").Activate
ActiveWindow.SmallScroll Down:=3
ActiveCell.Offset(-20, 0).Range("A1,A3,A5,A7,A9,A11,A15,A17,A19,A21,A23").Select
ActiveCell.Offset(2, 0).Range("A1").Activate
Application.CutCopyMode = False
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-6
ActiveCell.Offset(-22, 0).Range("A1").Select
 

Pièces jointes

  • Capturebasedonnees.PNG
    Capturebasedonnees.PNG
    28.5 KB · Affichages: 32
  • Captureformulaire.PNG
    Captureformulaire.PNG
    22.7 KB · Affichages: 30

vgendron

XLDnaute Barbatruc
euh.. je ne comprend pas trop..
dans le fichier que tu as posté "Inventaire-AQU-v01-tes.xlsm" je ne trouve pas la macro "ajout_entree_sortie"
et les deux images que tu as postées ne semblent correspondrent à aucune feuille ou formulaire...
??
 

mymymymymymy

XLDnaute Nouveau
euh.. je ne comprend pas trop..
dans le fichier que tu as posté "Inventaire-AQU-v01-tes.xlsm" je ne trouve pas la macro "ajout_entree_sortie"
et les deux images que tu as postées ne semblent correspondrent à aucune feuille ou formulaire...
??
salut Vgendron,

j'ai masqué plusieurs pages croyant que mon macro allait fonctionner. mais c'est celui ci que tu devras regarder.
 

Pièces jointes

  • Gestion inventaire- question vba.xlsm
    74.2 KB · Affichages: 14

vgendron

XLDnaute Barbatruc
est ce que ceci correspond au besoin?

VB:
Sub ajout_entree_sortie()

    Set zonetocopy = Sheets("FORMULAIRE").Range("A32:K32")
    
    With Sheets("inOut")
        fin = .Range("A" & .Rows.Count).End(xlUp).Row + 1
    End With
    zonetocopy.Copy
    Sheets("inOut").Range("A" & fin).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

    Range("D4:D26").ClearContents
  

End Sub
 

mymymymymymy

XLDnaute Nouveau
est ce que ceci correspond au besoin?

VB:
Sub ajout_entree_sortie()

    Set zonetocopy = Sheets("FORMULAIRE").Range("A32:K32")
   
    With Sheets("inOut")
        fin = .Range("A" & .Rows.Count).End(xlUp).Row + 1
    End With
    zonetocopy.Copy
    Sheets("inOut").Range("A" & fin).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

    Range("D4:D26").ClearContents
 

End Sub
voici le message erreur.
aussi, wow cette facilité de codage.

1630595328510.png
 

Discussions similaires

Réponses
21
Affichages
886

Statistiques des forums

Discussions
311 720
Messages
2 081 925
Membres
101 841
dernier inscrit
ferid87