Bjr,
Je suis bloqué avec le code suivant :
Private Sub ComboBox1_Click()
Call Oter_Couleur
n = Feuil2.Cells(ComboBox1.ListIndex + 2, 1)
If n = "" Then Exit Sub
If Left(n, 4) = "FR0" Then
n = Right(n, 1)
Else
If n = "FR2A" Or n = "FR2B" Then
n = Right(n, 3)
Else
n = Right(n, 2)
End If
End If
ActiveSheet.Shapes("FR-" & n).Select
J'ai 198 communes et donc chaque shape est nommé avec le code FR-01 etc
Mais le code ne fonctionne plus passé FR-98.Pourquoi
Si quelqu'un peut éventuellement m'aider, cela serait sympa.
Merci à vous
Bouddha62