Microsoft 365 Formulaire automatique - vba - erreur 1004

[mymymymymymy]

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

 

[vgendron]

Bonjour

on ne peut rien faire avec des images ainsi qu'un code partiel

 

[mymymymymymy]

Bonjour

on ne peut rien faire avec des images ainsi qu'un code partiel

Bonjour
je te joins le lien

Gestion-inventaire--question-vba.xlsm

Le service des pièces jointes, CJoint.com est un service de partage de fichier gratuit pour partager vos documents dans vos courriels, sur les forums ou dans vos petites annonces.

www.cjoint.com

 

[vgendron]

De mon coté, je ne peux pas acceder au site "cijoint"
pourquoi ne pas utiliser l'option "joindre un fichier" du site excel download?

 

[mymymymymymy]

De mon coté, je ne peux pas acceder au site "cijoint"
pourquoi ne pas utiliser l'option "joindre un fichier" du site excel download?

 

[vgendron]

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]

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.

 

[vgendron]

est ce que ceci correspond au besoin?

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]

est ce que ceci correspond au besoin?

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.

 

[vgendron]

ah oui, j'ai oublié de te dire: renomme ton onglet formulaire SANS l'espace à la fin

 

[mymymymymymy]

ah oui, j'ai oublié de te dire: renomme ton onglet formulaire SANS l'espace à la fin

bonjour Vgendron

Je ne sais pas comment te remercier. En fait, j'ai viens de comprendre que ca ne prend pas la tete a Papineau pour bien coder un VBA. merci

 

[mymymymymymy]

ah oui, j'ai oublié de te dire: renomme ton onglet formulaire SANS l'espace à la fin

Salut Vgendron, comment faire cette formule VBA avec des onglets verrouiller ? est ce possible ?