Formulaire automatique - VBA - errer 1004 Fermé

Question

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


PRINTSCREEN


Configuration: Windows / Chrome 93.0.4577.63

f894009 · Answer

Bonjour,

Pouvez mettre votre fichier a dispo, serait plus simple pour vous aider

Pour transmettre un fichier,
Veillez a ce qu'il n'y ait PAS DE DONNEES CONFIDENTIELLES
il faut passer par un site de pièce jointe tel que cjoint.com

Allez sur ce site : https://www.cjoint.com/
Clic sur parcourir,
Cherche ton fichier,
clic sur ouvrir,
Clic sur "Créer le lien cjoint",
Copier le lien,
Revenir ici le coller dans une réponse...

ou
www.transfernow.net  'fichier jusqu'a 4G

Yoyo01000 · Answer

Bonjour,

si je comprends bien :
1 - Il faut remplir le formulaire 
2 - Copier les données en-dessous du formulaire
3 - Les coller sur l'onglet inOut mais à la suite des lignes déjà renseignées ?

missmylep · Answer

allo @yoyo01000,

c'est bien cela ou plus simple
1- Remplir le formulaire -cliquer sur "ajouter sortie inventaire"
2- les données seront collées dans l'onglet inOut automatiquement
3- Formulaire s'efface automatique une fois j'ai cliqué sur "ajouter sortie inventaire"

f894009 · Answer

Re,

Remplacez votre procedure Sub ajout_entree_sortie()

par ceci:

Sub Ajout_Entree_Sortie()
    'Premiere cellule vide d'une colonne d'une Table (Tableau)
    PCVide = Range("InventaireÉquipement[Date]").Cells.Find(what:="", LookAt:=xlWhole).Row  'premiere cellule vide
    'A l'arrache
    Worksheets("inOut").Range("A" & PCVide).Resize(, 11) = Worksheets("FORMULAIRE").Range("A32:K32").Value
End Sub

Formulaire automatique - VBA - errer 1004

4 réponses

Discussions similaires