Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Boostez vos compétences Excel avec notre communauté !
Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force.
Apprenez, échangez, progressez – et tout ça gratuitement !
👉 Inscrivez-vous maintenant !
bonjour jean pierre,guima1642
voici un code vba
' dans feuil1(feuil2)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Sheets("feuil1").Range("a1").Text = Sheets("feuil2").Range("a1").Text Then
CheckBox1.Value = True
Else:
CheckBox1.Value = False
End If
End Sub
et ' dans feuil2(feuil1)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Sheets("feuil1").Range("a1").Text = Sheets("feuil2").Range("a1").Text Then
Sheets("feuil2").CheckBox1.Value = True
Else:
Sheets("feuil2").CheckBox1.Value = False
End Sub
voila
A+
Et bien sur il fallait lire avec une formule. Je devais dejà couver ma grippe. J'ai adopté la stratégie de phlaurent55, mais merci à tous pour vos réponses
- Navigue sans publicité - Accède à Cléa, notre assistante IA experte Excel... et pas que... - Profite de fonctionnalités exclusives Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel. Je deviens Supporter XLD