Problème simple VBA

Résolu
dev -  
pijaku Messages postés 13513 Statut Modérateur -
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


A voir également:

1 réponse

Réponse 1 / 1
michel_m Messages postés 18903 Statut Contributeur 3 317
 
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
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
pijaku Messages postés 13513 Statut Modérateur 2 763
 
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
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
pijaku Messages postés 13513 Statut Modérateur 2 763
  
Private Sub UserForm_Initialize()
textbox1 = ""
textbox2 = ""
End Sub

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

Discussions similaires

Erreur d'exécution 13 Incompatibilité de type
grace -
pijaku -

5 réponses
"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

2 réponses
nom de metier
E=MC² -
Raymond PENTIER -

2 réponses