Excel 2010

Cluses74 -  
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

6 réponses

  • Votes
  • Date
  • Date décroissante
  1. f894009
    Bonjour,

    Meme fichier que dans votre demande précédente ou ????
    1. Cluses74 Auteur
      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
      1. f894009
        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
    3. Cluses74 Auteur
      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
      1. f894009
        Bonjour,
        Vous faites vos saisies avec quoi si se n'est pas des textbox????????
        À la place de row machin, mettez la plage de cellules!!!
    5. Cluses74 Auteur
      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
      1. f894009
        Bonjour,

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

        Range("A4:E4").Insert Shift:=xlDown, CopyOrigin:=x1FormatFromLeftOrAbove
    6. Cluses74 Auteur
      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