Excel 2010

Cluses74 Messages postés 240 Date d'inscription   Statut Membre Dernière intervention   -  
Cluses74 Messages postés 240 Date d'inscription   Statut Membre Dernière intervention   -
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 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

Meme fichier que dans votre demande précédente ou ????
0
Réponse 2 / 6
Cluses74 Messages postés 240 Date d'inscription   Statut Membre Dernière intervention  
 
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 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
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 240 Date d'inscription   Statut Membre Dernière intervention  
 
Je fais l'essai
0
Réponse 4 / 6
Cluses74 Messages postés 240 Date d'inscription   Statut Membre Dernière intervention  
 
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 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
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 240 Date d'inscription   Statut Membre Dernière intervention  
 
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 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
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 240 Date d'inscription   Statut Membre Dernière intervention  
 
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