Microsoft 365 Formulaire automatique - vba - erreur 1004

mymymymymymy · 2 Septembre 2021

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 · 2 Septembre 2021

Bonjour

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

mymymymymymy · 2 Septembre 2021

vgendron à dit:
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 · 2 Septembre 2021

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 · 2 Septembre 2021

vgendron à dit:
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 · 2 Septembre 2021

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 · 2 Septembre 2021

vgendron à dit:
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 · 2 Septembre 2021

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 · 2 Septembre 2021

vgendron à dit:

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.

vgendron · 2 Septembre 2021

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

mymymymymymy · 2 Septembre 2021

vgendron à dit:
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 · 25 Octobre 2021

vgendron à dit:
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 ?

Microsoft 365 Formulaire automatique - vba - erreur 1004

mymymymymymy

XLDnaute Nouveau

Pièces jointes

vgendron

XLDnaute Barbatruc

mymymymymymy

XLDnaute Nouveau

Gestion-inventaire--question-vba.xlsm

vgendron

XLDnaute Barbatruc

mymymymymymy

XLDnaute Nouveau

Pièces jointes

vgendron

XLDnaute Barbatruc

mymymymymymy

XLDnaute Nouveau

Pièces jointes

vgendron

XLDnaute Barbatruc

mymymymymymy

XLDnaute Nouveau

vgendron

XLDnaute Barbatruc

mymymymymymy

XLDnaute Nouveau

mymymymymymy

XLDnaute Nouveau

Discussions similaires