Problème simple VBA

Résolu
dev -  
pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   -
Bonjour,

Bonjour, je débute en VBA, j'aimerais faire une chose simple,

J'ai un userform dans lequel j'ai une texbox1, une texbox2 et un command bouton1.Je rentre une valeur dans un textbox1, et je clique sur un command Bouton1. La valeur de la textbox1 est cherchée dans la colonne A de la feuille 1 de mon classeur. Et lorsque cette valeur est trouvée, par exemple en A28, alors la valeur en D28 s'affiche dans un texbox2

1 réponse

  1.
    michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    Bonjour,
    a essayer (non testé) 
    With Sheets("feuil1")  
    If Application.CountIf(.Columns(1), textbox1) > 0 Then  
        ligne = .Columns(1).Find(textbox1, .Cells(.Rows.Count, 1), xlValues).Row  
        textbox2 = .Cells(ligne, 4)  
    Else  
    MsgBox textbox1 & "inconnu"  
    End If  
End With

    Michel
    1
    1. program
       
      Bonjour,

      Merci pour la réponse, j'ai un nouveau problème...

      J'aimerais pouvoir enregistrer les valeurs que je rentre dans les textbox a la place des anciennes. Ceci en appuyer sur un commmandbouton2.

      Est-ce possible ?



      Merci bcp
      0
    2. pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 772
       
      Salut,
      Excusez l'incruste, je crois que michel_m est à l'apéro ;-)
      C'est tout à fait faisable. de la même manière que l'on remplit un textbox avec l'instruction : textbox2 = .Cells(ligne, 4) on peux remplir une cellule à partir du textbox : .Cells(ligne, 4) = textbox2
      0
    3. program
       
      nikel, merci

      Juste une derniere question, quand j'ouvre la userform, j'aimerais que les textbox soient vides, pr le moment ya les dernieres valeurs rentrées.
      Merci
      0
    4. pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 772
        
      Private Sub UserForm_Initialize()
textbox1 = ""
textbox2 = ""
End Sub

      Et avec ça se sera?
      0
    5. program
       
      tres bien merci!!
      0

Discussions similaires

erreur d'execution 9, l'indice n'appartient pas à la sélection
isidoh -
isidoh -

18 réponses
VBA excel : résoudre problème de capacité.
Juan Pedro -
Kunzi -

9 réponses