Je voudrais savoir comment compiler plusieurs "select case" (sachant qu'il y 'en aura au moins 40) est-ce possible ?
Il me faudrait juste la nomenclature. ou dois-je passer par plusieurs macro pour définir les "Case" et mettre des "IF" en instruction ? Ici il s'agit de compteurs pour la ligne ci-dessous
If Cal > 0 Then Cells(14, 3 + Cal) = Cells(14, 3 + Cal) + 1"
Merci bien
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cal As Integer
Dim Cbl As Integer
If Not Application.Intersect(Target, Range("A2")) Is Nothing Then
Select Case Range("E2").Value
Case "IWL250"
Cal = 1
Case "IWL250 B"
Cal = 2
Case "IWL252"
Cal = 3
Case Else
Cal = 0
End Select
If Cal > 0 Then
Cells(14, 3 + Cal) = Cells(14, 3 + Cal) + 1
Select Case Range("F2").Value
Case "IWL250"
Cbl = 1
Case "IWL250 B"
Cbl = 2
Case "IWL252"
Cbl = 3
Case Else
Cbl = 0
End Select
If Cal > 0 Then
Cells(15, 3 + Cbl) = Cells(15, 3 + Cbl) + 1
End If
End If
End If
End Sub
Merci