VBA Excel 2003 : valeur cellule dans TextBox Fermé

Question

Bonjour, 

Débutant en VBA Excel, je ne parviens pas à récupérer dans un TextBox le contenu de cellules nommées.

Je m'explique :

J'ai une feuille de calcul contenant une base de données (Nom, Index, Adresse, ...)
Mon application VBA contient un UserForm permettant de visualiser un enregistrement en sélectionnant le nom via une ComboBox.
Le changement dans cette ComboBox (Private Sub Cbx_Frn_Nom_change()) déclenche la recherche de l'enregistrement dans ma feuille puis nomme chaque cellule (nom, index, adresse1, adresse2, CP, Ville). Jusque là tout va bien.
Ensuite, je souhaite que les infos contenues dans ces différentes cellules nommées alimentent les TextBox dans mon UserForm en faisant appel au nom donné à chacune des cellules.
Ma question est sans doute "bête" et la réponse très basique, mais... comment faire ?


Merci d'avance pour vos réponses !



Configuration: Boitier : Cooler Master CM Storm Sniper
Alimentation : Corsair HX1000W
Carte mère : Asus P8Z68-V
Processeur : Intel Sandybridge Core i7 2600
Mémoire : Corsair 1333M DDR3 XMS3 CL9 - 8Go (2x 4Go) 
Carte Graphique : Inno 3D GeForce GTX 260 896 Mo GDDR3
Disque 1 : Transcend SSD 64 Go
Disque 2 : Maxtor 1 To 32 Mo Sata II 3.0Gb/s
Disques 3 & 4 : WD 1T0 32 Mo Sata III 6.0Gb/s (en raid0)
Graveur : CD/DVD LG GH22LS30
OS : Windows 7 (64bits)
Firefox 5.0

pijaku · Answer

Bonjour,
Il n'est pas utile de nommer vos cellules.
Au changement de valeur de la combobox, il suffit d'aller chercher le n° de la ligne ou se trouve la valeur, et de renvoyer le contenu des cellules voisines dans les textbox.
Un peu comme ceci [Code non testé]:
Private Sub Cbx_Frn_Nom_change()
Dim Lign As Long
'évite l'erreur de la méthode find si la combobox est vide.
If Cbx_Frn_Nom = "" Then Exit Sub
With Sheets("Feuil1") 'A ADAPTER mettre ici le nom de la feuille ou vous cherchez vos valeurs
    'A ADAPTER Columns(1) va chercher dans la colonne A le contenu de la Combo
    Lign = .Columns(1).Cells.Find(Cbx_Frn_Nom).Row
    Me.TextBox1 = .Cells(Lign, 2) 'textbox1 = contenu colonne B
    Me.TextBox2 = .Cells(Lign, 3) 'textbox2 = contenu colonne C
    'etc...
End With
End Sub--
Cordialement,
Franck P

Nospam54 · Answer

Merci Franck !

Petit souci tout de même... Cependant ça bloque à "Lign = .Columns(1).Cells.Find(Cbx_Frn_Nom).Row"
Message d'erreur = "Erreur d'exécution 91:
Variable objet ou variable de bloc White non définie"

D'où ce la peut-il venir sachant que j'ai bien vérifié toutes les lignes de commande ?

Merci d'avance...

Nospam54 · Answer

Pas de souci, le voici :

Private Sub Cbx_Frn_Nom_change()
'
Dim Lign As Long
'
Windows("Tab_Saisie_Facture.xls").Activate
Sheets("Listes").Select
'
' Evite l'erreur de la méthode find si la combobox est vide.
If Cbx_Frn_Nom = "" Then Exit Sub
'
    With Sheets("Listes")
        Lign = .Columns(1).Cells.Find(Cbx_Frn_Nom).Row
        Me.Cbx_Frn_Code = .Cells(Lign, 2)
        Me.Zt_Frn_Index = .Cells(Lign, 3)
        Me.Zt_Frn_Adr_Num = .Cells(Lign, 5)
        Me.Zt_Frn_Adr_Voie = .Cells(Lign, 6)
        Me.Zt_Frn_Adr_Compl = .Cells(Lign, 7)
        Me.Zt_Frn_Adr_BP = .Cells(Lign, 8)
        Me.Zt_Frn_Adr_CP = .Cells(Lign, 9)
        Me.Zt_Frn_Adr_Ville = .Cells(Lign, 10)
    End With
End Sub

Nospam54 · Answer

Super ta réactivité, pijaku !

J'ai essayé la seconde méthode, même message d'erreur...

Je joindrai donc mon fichier via Cjoint.com. Pour le moment la mise en place du lien ne fonctionne pas (problème de serveur du boulot semble-t-il). Je ferai donc cela ce soir depuis chez moi (ça marche mieux qu'à la boite !).

Petit détail quand même : ton code a fonctionné... Mais, mais j'ai glissé un "On error Goto" au cas où l'utilisateur entre un nom inexistant. En le lançant le code bouclait et je n'avais plus la main. J'ai donc fait un Ctr+Alt+Suppr... N'ayant pas sauvegardé (eh oui...), j'ai entré à nouveau le code et là... marche plus !
Ça a son importance ?

En attendant...

Merci

pijaku · Answer

Salut, 
Il est possible de "grouper" les codes. C'est ce que je te disais lorsque je t'ai dit que mon code n'était pas du tout optimisé. 
Cependant, pour cela, il faudrait que tu nous communique ton classeur afin de voir quels sont les contrôles utilisés. 

Un exemple de textbox "numérique" avec : 
- séparateur de milliers 
- saisie d'une virgule (celle du pavé numérque, donc le point en fait!) et d'une seule 
- possibilité de saisie d'un signe - uniquement en premier caractère 
- le remplacement du point par la virgule pour permettre le calcul dans un textbox2 

Sources, l'excellet tuto de Didier Gonard 

Code : 
Private Sub TextBox1_Change() 
TextBox1 = Format(TextBox1, "# ##0") 
End Sub 

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) 
TextBox2 = Replace(TextBox1, ".", ",") 
End Sub 

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) 
If InStr("1234567890.-", Chr(KeyAscii)) = 0 Or TextBox1.SelStart > 0 And Chr(KeyAscii) = "-" _ 
Or InStr(TextBox1.Value, ".") <> 0 And Chr(KeyAscii) = "." Then KeyAscii = 0 
End Sub  
Cordialement, 
Franck P