pb de case à cocher

guima1642

XLDnaute Occasionnel
Bonjour,

Je voudrais sans formule cocher une case automatiquement si la valeur de feuill1!A1 = feuill2!A1

merci pour votre aide précieuse
 

Pièces jointes

  • Classeur1.xls
    18.5 KB · Affichages: 61
  • Classeur1.xls
    18.5 KB · Affichages: 65
  • Classeur1.xls
    18.5 KB · Affichages: 63

fhoest

XLDnaute Accro
Re : pb de case à cocher

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+
 

jp14

XLDnaute Barbatruc
Re : pb de case à cocher

Bonjour

Ci joint le fichier avec une procédure évènementielle.

Le numéro du CheckBox doit correspondre au numéro de ligne.

A tester

JP
 

Pièces jointes

  • Classeur1.zip
    17.9 KB · Affichages: 45
  • Classeur1.zip
    17.9 KB · Affichages: 47
  • Classeur1.zip
    17.9 KB · Affichages: 46

Statistiques des forums

Discussions
312 858
Messages
2 092 871
Membres
105 545
dernier inscrit
pourmanger