Problème simple VBA

Résolu
dev -  
pijaku Messages postés 12263 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


A voir également:

1 réponse

Réponse 1 / 1
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
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 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761
 
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 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761
  
Private Sub UserForm_Initialize()
textbox1 = ""
textbox2 = ""
End Sub

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

Discussions similaires

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

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

5 réponses
appliquer une pause dans une macro vba excel
ch'duj -
lerif25 -

10 réponses