Bonjour,

J'ai créé un userform (TitreSeul)ou je dois rentrer dans une textbox le titre d'un livre.
Un bouton ok m'ouvre ensuite un autre userform (TitreVentesCA) où sont présentes 3 textbox en face de 3 intitulés:
- titre du livre
- nombre de ventes
- chiffre affaire (nombre de ventes du livre * prix du livre)

J'aimerais qu'après saisi du livre dans le premier userform, il puisse s'afficher dans le second les trois données ci-dessus qui sont à chercher dans un tableau présent dans le feuillet "Gestion des stocks" de mon logiciel.

J'arrive à visualiser comment faire au début (cf code plus bas) même si je sais qu'il est faux. Cependant je bloque dès qu'il faut rechercher les données (nombre de ventes et CA) dans le tableau pour les afficher dans le deuxième userform, et cela à partir du titre saisit.

Comment faire pour que s'affichent les données que j'espère avoir?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CommandButton1_Click()
 
Sheets("Gestion des stocks").Select
Range("C14").Select
 
Do
If C15 = "TitreSeul!textbox1"
Then "TitreVentesCA!textbox1" = C15
 
Else
If ActiveCell <> "TitreVentesCA!textbox1" Then ActiveCell.Offset(1, 0).Select
 
Loop Until ActiveCell.Value = "TitreSeul!textbox1"