Sujet Précédent Sujet Suivant

Excel 2010

Fermé
Cluses74 Messages postés 241 Date d'inscription dimanche 4 janvier 2015 Statut Membre Dernière intervention 22 août 2023 - Modifié le 2 nov. 2018 à 13:32
Cluses74 Messages postés 241 Date d'inscription dimanche 4 janvier 2015 Statut Membre Dernière intervention 22 août 2023 - 30 oct. 2018 à 19:18
Bonjour,
dans un Userform j'aimerai créer un bouton pour valider mes saisies dans la base et par la même opération vider les zones de saisies de mon écran de saisie. Je ne connais pas le code qui va bien pour faire cette macro.
Etant débutant dans le VBA comment procéder pour revenir à la ligne après chaque validation de saisie
D'avance un grand merci à celui qui m'aidera


A voir également:

6 réponses

Réponse 1 / 6
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
28 oct. 2018 à 06:10
Bonjour,

Meme fichier que dans votre demande précédente ou ????
0
Réponse 2 / 6
Cluses74 Messages postés 241 Date d'inscription dimanche 4 janvier 2015 Statut Membre Dernière intervention 22 août 2023
28 oct. 2018 à 08:47
Bonjour
Non je suis entrain de faire une autre base pour gérer de la matière dans un autre dépôt avec transfert en usine afin de pouvoir effectuer des commandes et des réceptions le tout avec un stock mini et pourquoi pas amener le juste à temps voir le Lean. Mais comme tout il faut pouvoir prouver pour générer l'investissement.
J'ai une quinzaine de références mais les délais d'approvisionnement sont longs voir très longs vu que c'est de la matière première.
Encore une fois merci de votre réponse
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
28 oct. 2018 à 09:12
Bonjour,

Dans le fichier precedent, il y a un bouton pour la mise a jour base. Ce code fait la RAZ de TextBox

Private Sub CommandButton1_Click() 
    Dim Ctrl As Control
    
    'RAZ Textbox
    For Each Ctrl In Me.Controls
        If TypeOf Ctrl Is MSForms.TextBox Then
            Ctrl.Object.Value = ""
        End If
    Next Ctrl
End Sub
0
Réponse 3 / 6
Cluses74 Messages postés 241 Date d'inscription dimanche 4 janvier 2015 Statut Membre Dernière intervention 22 août 2023
28 oct. 2018 à 11:49
Je fais l'essai
0
Réponse 4 / 6
Cluses74 Messages postés 241 Date d'inscription dimanche 4 janvier 2015 Statut Membre Dernière intervention 22 août 2023
29 oct. 2018 à 19:04
Bonjour
Ma data Base est constituée de plusieurs ensembles Commande, Réception, Stock dépôt, et stock usine que je veux piloter indépendamment les uns des autres. Dans mon Userform la sélection des diamètres matière se fait par une combobox ainsi que celle des métalliers. Apparemment le code que vous m'avez fait suivre est pour des textbox et ne fonctionne pas pour ce programme là. J'en ai trouvé un autre qui lui m'insère une ligne de saisie à chaque validation de saisie mais je ne saisi pas toujours la commande en même temps que la réception et je me trouve décalé à chaque fois et j'ai des blancs dans la base. Ne pourrai t on pas la modifier pour insérer juste le bon nombre de cellules? Je vous la fais suivre:
Private Sub CommandButton1_Click()
Rows("4:4").Select
Selection.Insert Shift:=x1Down, CopyOrigin:=x1FormatFromLeftOrAbove
Unload INTERFACE
Load INTERFACE
INTERFACE.Show
D'avance merci de votre réponse
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
29 oct. 2018 à 20:00
Bonjour,
Vous faites vos saisies avec quoi si se n'est pas des textbox????????
À la place de row machin, mettez la plage de cellules!!!
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 6
Cluses74 Messages postés 241 Date d'inscription dimanche 4 janvier 2015 Statut Membre Dernière intervention 22 août 2023
30 oct. 2018 à 01:10
Bonjour,
voici mon code modifié mais ne fonctionne toujours pas "erreur 1004"
Private Sub CommandButton1_Click()
Rows("A4:E4").Select
Selection.Insert Shift:=x1Down, CopyOrigin:=x1FormatFromLeftOrAbove
Unload INTERFACE
Load INTERFACE
INTERFACE.Show



End Sub
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
30 oct. 2018 à 06:46
Bonjour,

J'ai écrit "A la Place de Row machin...." 

Range("A4:E4").Insert Shift:=xlDown, CopyOrigin:=x1FormatFromLeftOrAbove
0
Réponse 6 / 6
Cluses74 Messages postés 241 Date d'inscription dimanche 4 janvier 2015 Statut Membre Dernière intervention 22 août 2023
30 oct. 2018 à 19:18
Bonjour,
j'ai cru qu'il fallait changer uniquement machin bien que j'ai vu dans Applications - Cours VBA que l'on pouvait se servir de " Range ". Mais merci du code.
Merci beaucoup
0