Discussion :

[BigDany]

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.

[Danaxia]

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

[rvtoulon]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[BigDany]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !!

[rvtoulon]

Bonjour,
Tu peux faire comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[BigDany]

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