Bonjour,
J'ai mon code qui ne marche plus. Il a marché dans la journée mais je ne voit pas pourquoi il ne marche plus
C'est surtout la ligne coloré et en gras qui ne marche plus.
Merci d'avance pour votre aide
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
16
17
18
19
20
21
22 Private Sub ComboBox3_Change() Sheets("Suivi").Cells(6, 2).Value = ComboBox3.Value Dim DerLig As Integer Dim a As Integer Dim b As Integer Dim c As Integer Dim DernCol As Integer Dim d As Integer Dim S As Integer DerLig = Sheets("Gamme").Range("B65536").End(xlUp).Row For a = 2 To DerLig 'Nécessite de calculer la dernière ligne, j'imagine que tu l'as déjà fait If Sheets("Gamme").Cells(a, 2) = Me.ComboBox1.Value And _ Sheets("Gamme").Cells(a, 3) = Me.ComboBox2.Value And _ Sheets("Gamme").Cells(a, 4) = Me.ComboBox3.Value Then Sheets("Suivi").Cells(5, 4).Value = Sheets("Gamme").Cells(a, 1).Value S = WorksheetFunction.CountA(Range(Cells(a, 5), Cells(a, 30))) Exit For End If Next a MsgBox (S) End Sub
Partager