XL 2010 cochage de ChexckBox à partir d'un DoublecCick sur une cellule

Fgg

XLDnaute Nouveau
Bonjour le forum
J'ai un petit problème, J'ai créer un boite dialogue (Userform), pour saisir les différents adhérents d'une association, comme il i à de l'ordre de 350 lignes et 23 colonnes pour voir un adhérent, j'ai, dans la feuille de base, mis une programmation qui me permet de remettre sur ma boite de dialogue, les différents éléments concernant l'adhérents, mais les TextBox s'affiche très bien, comme vous le voyer sur l'image ci dessous, par contre les différentes Checkbox ne se coche pas. et je ne sais ou j'ai fais une erreur. Pouvez vous m'aider?

voici le code VBA:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Dim noligne As Integer
N_ligne = Range("A4:A65536").Find(N, lookat:=xlWhole).Row


'Insertion des valeurs sur l'UserForm
'nom
ADHERENT.TextBox1 = Cells(Target.Row, 1)
'pr?nom
ADHERENT.TextBox2 = Cells(Target.Row, 2)
'Adresse postal
ADHERENT.TextBox3 = Cells(Target.Row, 3)
'Code postal
ADHERENT.TextBox4 = Cells(Target.Row, 4)
'Ville
ADHERENT.TextBox5 = Cells(Target.Row, 5)
'n?t?l?phone fixe
ADHERENT.TextBox6 = Cells(Target.Row, 6)
'n?t?l?phone portable
ADHERENT.TextBox7 = Cells(Target.Row, 7)
' adresse mail
ADHERENT.TextBox8 = Cells(Target.Row, 8)

' cocher les chexbox si les cellules =1
'carte Adh?rents
If Cells(N_ligne, 9) = "1" Then
CheckBox19 = True
Else
CheckBox19 = False
End If
'Danse salon
If Cells(N_ligne, 10) = "1" Then
CheckBox16 = True
Else
CheckBox16 = False
End If
'dict?e petit salon
If Cells(N_ligne, 11) = "1" Then
CheckBox17 = True
Else
CheckBox17 = False
End If
'dict?e foyer rigole
If Cells(N_ligne, 12) = "1" Then
CheckBox4 = True
Else
CheckBox4 = False
End If
'M?moire petit bosquet
If Cells(N_ligne, 13) = "1" Then
CheckBox5 = True
Else
CheckBox5 = False
End If
'm?moire JBC
If Cells(N_ligne, 14) = "1" Then
CheckBox6 = True
Else
CheckBox6 = False
End If
'm?moire Rigole
If Cells(N_ligne, 15) = "1" Then
CheckBox7 = True
Else
CheckBox7 = False
End If
'Peinture
If Cells(N_ligne, 16) = "1" Then
CheckBox8 = True
Else
CheckBox8 = False
End If
'sophro Mardi
If Cells(N_ligne, 17) = "1" Then
CheckBox9 = True
Else
CheckBox9 = False
End If
' sophro lundi
If Cells(N_ligne, 18) = "1" Then
CheckBox10 = True
Else
CheckBox10 = False
End If
'Ecriture
If Cells(N_ligne, 19) = "1" Then
CheckBox11 = True
Else
CheckBox11 = False
End If
' Ecriture J
If Cells(N_ligne, 20) = "1" Then
CheckBox14 = True
Else
CheckBox14 = False
End If
' Lecture Musicale
If Cells(N_ligne, 21) = "1" Then
CheckBox13 = True
Else
CheckBox13 = False
End If
'Astronomie
If Cells(N_ligne, 22) = "1" Then
CheckBox15 = True
Else
CheckBox15 = False
End If
' D?clarer Administratif
If Cells(N_ligne, 23) = "1" Then
CheckBox18 = True
Else
CheckBox18 = False
End If

'ouvrir userform
ADHERENT.Show

End Sub
image boite de visualisation.JPG
 

Fgg

XLDnaute Nouveau
Oui merci, c'est ce que j'ai fait lors de la mise en place de la saisie pour insérer les valeurs dans les cellules appropriées, mais la je voudrait faire le contraire. Si la cellule est 1, alors la Checkbox doit être coché, si la cellule est vide, la CheckBox est vide.
 

Fgg

XLDnaute Nouveau
je te remercie, mais mon problème n'est pas de remplir une TextBox avec les valeurs des cellules, ce je le fait sans soucis. Dans mon code de saisie, je remplie les cellules soit en text pour les TexBox soit par un 1 si la CheckBox et cochée fichier jont.
La je voudrais faire l'inverse, quand la cellule intéressée = 1, alors la Checkbox doit être coché, si la cellule est vide, la CheckBox est vide.
 

Pièces jointes

  • mettre les saisies textbox et CheckBox dans les cellules.txt
    4.1 KB · Affichages: 7

job75

XLDnaute Barbatruc
Bonjour Fgg, dysorthographie,

Pour qu'une cellule suive CheckBox1 il faut une macro CheckBox1_Change.

Pour qu'une CheckBox suive une cellule il faut une macro Worksheet_Change.

Mais ici que peut-on faire avec le fichier .txt du post #8 ??? Alors voyez le fichier joint.

A+
 

Pièces jointes

  • CheckBox(1).xlsm
    20.7 KB · Affichages: 12

Discussions similaires