amelioration de mon code vba

[David44800]

bonjour j'ai cela dans mon code de mon userform

je ne suis pas programmateur et j'ai crée cela
peu ton le raccourcir
merci d'avance.


Private Sub Dorure1_Click()
If Dorure1.ListIndex <> -1 Then
prixd1 = Sheets("Données").Range("O" & Dorure1.ListIndex + 2).Value

End If
End Sub
Private Sub Dorure2_Click()
If Dorure2.ListIndex <> -1 Then
prixd2 = Sheets("Données").Range("O" & Dorure2.ListIndex + 2).Value

End If
End Sub
Private Sub Dorure3_Click()
If Dorure3.ListIndex <> -1 Then
prixd3 = Sheets("Données").Range("O" & Dorure3.ListIndex + 2).Value

End If
End Sub

Private Sub Papier1_Click()
If Papier1.ListIndex <> -1 Then
Prixpapier1 = Sheets("Données").Range("K" & Papier1.ListIndex + 2).Value

End If
End Sub
Private Sub Papier2_Click()
If Papier1.ListIndex <> -1 Then
Prixpapier2 = Sheets("Données").Range("K" & Papier2.ListIndex + 2).Value

End If
End Sub
Private Sub Papier3_Click()
If Papier1.ListIndex <> -1 Then
Prixpapier3 = Sheets("Données").Range("K" & Papier3.ListIndex + 2).Value

End If
End Sub
Private Sub Vernis1_Click()
If Vernis1.ListIndex <> -1 Then
PrixVernis1 = Sheets("Données").Range("Q" & Vernis1.ListIndex + 2).Value

End If
End Sub

Private Sub Vernis2_Click()
If Vernis1.ListIndex <> -1 Then
PrixVernis2 = Sheets("Données").Range("Q" & Vernis2.ListIndex + 2).Value

End If
End Sub
Private Sub Vernis3_Click()
If Vernis1.ListIndex <> -1 Then
PrixVernis3 = Sheets("Données").Range("Q" & Vernis3.ListIndex + 2).Value

End If
End Sub

Private Sub UserForm_Activate()
ComboBox1.RowSource = "Données!c2:c" & Sheets("Données").Range("c65536").End(xlUp).Row
With ActiveSheet
Date1 = Date
Suivie.List = Sheets("Données").Range("G2:G10").Value
Papier1.List = Sheets("Données").Range("J2:J210").Value
Produit1.List = Sheets("Données").Range("H2:H8").Value
Dorure1.List = Sheets("Données").Range("N2:N8").Value
Vernis1.List = Sheets("Données").Range("P26").Value

Papier2.List = Sheets("Données").Range("J2:J210").Value
Produit2.List = Sheets("Données").Range("H2:H8").Value
Dorure2.List = Sheets("Données").Range("N2:N8").Value
Vernis2.List = Sheets("Données").Range("P26").Value

Papier3.List = Sheets("Données").Range("J2:J210").Value
Produit3.List = Sheets("Données").Range("H2:H8").Value
Dorure3.List = Sheets("Données").Range("N2:N8").Value
Vernis3.List = Sheets("Données").Range("P26").Value


End With
End Sub

 

[laetitia90]

bonjour David 44800
si tu mettais un fichier exemple sans données confi... cela nous eviterais de crée un user

 

[David44800]

voila

 

[David44800]

Bonjour

personne pour un coup de main svp