Macro ouverture toutes les fonctions Userform

Bonsoir à tous

J'ai créé un bouton de commande pour ouvrir mon Userform (formulaire client avec nom adresse etc...)

Si je mets le bouton de commande sur l'onglet sommaire de fichier, il ouvre bien le formulaire mais les informations relatives au client ne s''affiche pas : click bouton rechercher

Si je mets le bouton de commande sur l'onglet Clients de fichier, il ouvre bien le formulaire et toutes informations relatives au client s''affichent pas : click bouton rechercher

Pouvez vous m'aider ??

Bien cordialement

8baseclient2.xlsm (54.73 Ko)

Bonsoir fabguilb, le forum,

Il faut préciser sur quelle feuille effectuer la recherche, sinon c'est la feuille active par défaut (donc sommaire).

Private Sub ToggleButton2_Click()
'Double click sur le bouton Rechercher'
If Not ComboBox1.Value = "" Then
    Dim no_ligne As Integer

 With Sheets("Clients")
    no_ligne = ComboBox1.ListIndex + 2
 ComboBox1.Value = .Cells(no_ligne, 1).Value
 TextBox11.Value = .Cells(no_ligne, 2).Value
 TextBox12.Value = .Cells(no_ligne, 3).Value
 TextBox13.Value = .Cells(no_ligne, 4).Value
 TextBox14.Value = .Cells(no_ligne, 5).Value
 TextBox15.Value = .Cells(no_ligne, 6).Value
 TextBox16.Value = .Cells(no_ligne, 7).Value
 TextBox17.Value = .Cells(no_ligne, 8).Value
 TextBox18.Value = .Cells(no_ligne, 9).Value
 TextBox20.Value = .Cells(no_ligne, 10).Value
 End With
End If
End Sub

Bonne soirée,

Bonsoir,

En espérant que la leçon de xorsankukai [ ] soit bien comprise, soit qu'un objet Range se définit dans une feuille et que la fiabilité implique une référence explicite au Worksheet parent...

Mais je reste toutefois scotché par l'usage baroque de ToggleButtons... Me souviens pas avoir déjà vu ça !

Merci

Rechercher des sujets similaires à "macro ouverture toutes fonctions userform"