Re,
point 1 : dans le post précédent, j'ai mis un END IF juste après le EXIT SUB. Il faut l'enlever sinon vous allez avoir un bug. (J'ai corrigé mon post
Point 2 : Cases à cocher pour les adresses
- Supprimer vos objets cases à cocher
- Remplacer le code Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, cancel As Boolean) dans la feuille par celui ci-dessous
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, cancel As Boolean)
If Not Intersect(Target, Range("B8")) Is Nothing Then
cancel = True
Services.Show
End If
If Not Intersect(Target, Range("A91:A94")) Is Nothing Then
'on réinitialise tous les cases à cocher
With Range("A91:A94")
.FormulaR1C1 = "o" 'ALT + 0111
.Font.Name = "Wingdings"
.Font.Size = 20
End With
'On coche la case choisie
With Target
.FormulaR1C1 = "ý" 'ALT + 0253
.Font.Name = "Wingdings"
.Font.Size = 20
End With
cancel = True
End If
End Sub
Dans ce code, j'utilise la police Wingdings pour placer la case à cocher que lo code va cocher ou décocher selon que vous cliquez dans une cellule comprise entre A91 et A94
Cordialement