Formulaire automatique - VBA - errer 1004
missmylep
Messages postés
7
Date d'inscription
Statut
Membre
Dernière intervention
-
Yoyo01000 Messages postés 1639 Date d'inscription Statut Membre Dernière intervention -
Yoyo01000 Messages postés 1639 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
A voir également:
- Formulaire automatique - VBA - errer 1004
- Whatsapp formulaire opposition - Guide
- Réponse automatique thunderbird - Guide
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Logiciel de sauvegarde automatique gratuit - Guide
- Formulaire de réclamation facebook - Guide
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
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 ?
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"
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 procedure
par ceci:
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
le voici
https://www.cjoint.com/c/KIcmBpGIncP