Bonjour,
Je souhaiterai savoir s'il est possible de reporter la valeur d'un combobox dans 2 cellules de feuilles distinctes (ex. : C3 de Feuil1 et G3 de Feuil2).
Mon code reporte bien la valeur dans la feuille "Suivi" mais sur 2 lignes, par contre rien dans la feuille "Bordereau"
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15 Private Sub CommandButton1_Click() Dim L As Integer Dim S As Integer L = Sheets("Bordereau").Range("C" & Rows.Count).End(xlUp).Row + 1 S = Sheets("Suivi").Range("C" & Rows.Count).End(xlUp).Row + 1 Range("C" & L).Value = ComboBox1 Range("G" & L).Value = TextBox1 & " " & TextBox2 & " " & TextBox3 & " " & TextBox4 With Sheets("Suivi") .Range("C" & S) = ComboBox1 End With End Sub







Répondre avec citation
Partager