Formulaire automatique - VBA - errer 1004
missmylep
Messages postés
7
Statut
Membre
-
Yoyo01000 Messages postés 1720 Date d'inscription Statut Membre Dernière intervention -
Yoyo01000 Messages postés 1720 Date d'inscription Statut Membre Dernière intervention -
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.
PRINTSCREEN
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
4 réponses
-
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 -
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 ?
-
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"-
Macro à rattacher au bouton de validation :
Sub copier_coller() Range("Tableau8").copy Sheets("inOut").Select Range("A" & Range("A65535").End(xlUp).Row + 1).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.ScreenUpdating = False Sheets("FORMULAIRE ").Select Range("D4:D14,D18:D26").ClearContents Sheets("inOut").Select End Sub
-
-
Re,
Remplacez votre procedureSub 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
