Excel 2010

Cluses74 Messages postés 243 Statut Membre -  
Cluses74 Messages postés 243 Statut Membre -
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

  1.
    f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Bonjour,

    Meme fichier que dans votre demande précédente ou ????
    0
  2. Cluses74 Messages postés 243 Statut Membre
     
    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
    1. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
       
      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
  3. Cluses74 Messages postés 243 Statut Membre
     
    Je fais l'essai
    0
  4. Cluses74 Messages postés 243 Statut Membre
     
    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
    1. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
       
      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

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

    Posez votre question
  6. Cluses74 Messages postés 243 Statut Membre
     
    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
    1. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
       
      Bonjour,

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

      Range("A4:E4").Insert Shift:=xlDown, CopyOrigin:=x1FormatFromLeftOrAbove
      0
  7. Cluses74 Messages postés 243 Statut Membre
     
    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