Message d'erreur ?? ComboBox et TextBox

Bonjour à tous, Je suis novice dans le domaine et vos discussions précédentes m'ont bien aidé jusqu'à présent mais maintenant j'ai besoin de votre aide. J'ai créer une boîte de dialogue (UserForm63) qui s'ouvre lorsque je clic sur la case AI13 et elle affiche certaines données prise sur la ligne 13 de mon fichier excel. J'ai 48 autres lignes sur lesquelles je veux faire la même chose. Comme la ligne 13 fonctionne à merveille, J'ai copié la UserForm63 et l'ai collé dans la Userform64. J'ai changé le numéro de ligne 13 pour 14 et lorsque j'essai, il m'apparait une erreur '-2147352571 (80020005) Impossible de définire la propriété Value. Le type ne correspond pas. ??? Tout celà est au delà de mes compétences. Merci de bien vouloir m'apporter votre aide.

A mon avis il était plus simple de refaire un Usreform64 avec le changement de code, tu peux joindre une miniature pour comprendre mieux, bonne chance
BigDany. Dan

Bonjour,
pourquoi ne pas ouvrir toujours le même userform si j'ai compris le "63" et lui indiquer dans initialize le numéro de la ligne de la cellule active, puisque tu clics sur la cellule pour l'afficher. Voici un exemple de code à adapter:

Code:

---

1 2 3 4 5 6 7 8

Private Sub UserForm_Initialize() Dim numligne As Long With ActiveSheet numligne = ActiveCell.Row UserForm1.TextBox1.Value = .Range("A" & numligne).Value UserForm1.TextBox2.Value = .Range("B" & numligne).Value End With End Sub

---

Ici lorsqu'il ouvre mon userform il met dans une variable le numero de la cellule active et donne à la textbox 1 la valeur de la cellule A de la même ligne etc...

Tu n'auras pas à copier 48 fois le même userform

Merci Beaucoup rvtoulon, J'apprécie beaucoup cette solution. Beaucoup moins de travail. Maintenant, dans ma feuille excel, j'avais mis le code suivant pour ouvrir la Userform.

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$Y$13" Then UserForm13.Show [V25].Select End If If Target.Address = "$Y$14" Then UserForm13.Show [V25].Select End If

---

Et ainsi de suite. Suis obligé de faire comme cà pour mes 48 lignes ou tu peux encore me proposer un raccourci?

Un gros merci pour tes conseil !!

Bonjour,
Tu peux faire comme ceci :

Code:

---

1 2 3 4 5 6 7 8

Private Sub Worksheet_SelectionChange(ByVal Target As Range) ' Pour une plage de cellule ici Y1:Y48 dans la feuille If Not Intersect(Target, [Y1:Y48]) Is Nothing Then UserForm13.Show [V25].Select End If   End Sub

---

Ici un clic sur n'importe quelle cellule de la plage Y1 à Y48 ouvrira le userform. Adapte la plage à tes besoins.

Bonjour, Je reviens de New York et je constate que j'ai reçu une réponse à mes questions. Tout fonctionne à merveille , Mille merci!!!:P