Problème simple VBA

Résolu/Fermé

dev - 5 avril 2011 à 11:03
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 7 avril 2011 à 13:42

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:

Problème simple VBA
Iphone 14 simple - Guide
Simple ocr - Télécharger - Bureautique
Excel compter cellule couleur sans vba - Guide
Organigramme simple - Guide
Montage video simple windows - Guide

1 réponse

Réponse 1 / 1

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 312
Modifié par michel_m le 5/04/2011 à 11:28

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

program
7 avril 2011 à 13:02

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

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 754
7 avril 2011 à 13:15

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

program
7 avril 2011 à 13:27

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

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 754
7 avril 2011 à 13:32

Private Sub UserForm_Initialize()
textbox1 = ""
textbox2 = ""
End Sub

Et avec ça se sera?

program
7 avril 2011 à 13:36

tres bien merci!!

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Erreur d'exécution 13 Incompatibilité de type

ouverture d'un fichier excel à partir d'un code VBA

Méthode find dans VBA - Recherche de données sous Excel

appliquer une pause dans une macro vba excel