renseigner un userform

  • Initiateur de la discussion Initiateur de la discussion elsa
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

elsa

XLDnaute Nouveau
Bonjour a tous😛
Voila j'ai un petit soucis avec un userform.
Après avoir lu plusieur post et essayer une dixaine de code je n'arrive toujours pas à la solution que je souhaite

Je désire remplir automatiquement les champs de mon userform juste en choisissant un objet dans un combobox

En vous remerciant d'avance😉
Bonne soirée
 

Pièces jointes

Re : renseigner un userform

Bonjour,
sans recherche de simplification:
Code:
Private Sub ComboBox1_Click()
Dim i As Byte
'remplissage textbox suivant choix dans combobox
With ComboBox1
    For i = 1 To 3
        TextBox2.Value = Cells(.ListIndex + 5, 3)
        TextBox3.Value = Cells(.ListIndex + 5, 6)
        TextBox4.Value = Cells(.ListIndex + 5, 7)
    Next i
End With
End Sub
il faut suivre en cours...😉
Cordialement
 
Re : renseigner un userform

Bonjour à tous
Je vous remerci pour votre aide 😉
J'ai une autre ptite question
je désire effacer maintenant la ligne choisi a l'aide du botton supprimer
voir fichier ci joint
Merci encore et merci d'avance😛
 

Pièces jointes

Re : renseigner un userform

Re,
Je ne crois pas que nous te rendions service en te répondant sur des questions aussi simples qu'une petite recherche ou écoute attentive t'aurait surement permis d'écrire...
Code:
Private Sub CommandButton2_Click()
Rows(ComboBox1.ListIndex + 5).ClearContents
End Sub
Cordialement
 
Re : renseigner un userform

bonjour , bonjour😉
personnelement j'aurai écrit

Rows(ComboBox1.ListIndex + 5).Delete
Unload Me
pour éviter d'avoir des blancs dans le tableau et donc , dans la combo lors de la prochaine recherche...
bonne journée à tous
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

B
Réponses
9
Affichages
859
bema""
B
Retour