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.

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
Merci d'avance pour votre aide