Le nbval calcul le nombre de cellule remplie de c5 a c 11
Cela donne un chiffre
Ce chiffre je le converti en lettre
Cela va me servir à lancer une procédure sub par la commande call
Dim z
z = Sheets("Feuil1").Range("a24")
If (z) = "A" Then
Call a
End If
If (z) = "B" Then
Call b
End If
If (z) = "C" Then
Call c
End If
If (z) = "D" Then
Call d
End If
If (z) = "E" Then
Call e
End If
If (z) = "F" Then
Call f
End If
If (z) = "G" Then
Call g
End If
Je joins un fichier exemple pour partager l’infos