[VBA] Soucis avec TextBox et case à cocher

[koukou40]

Bonsoir,

Vous trouverez ci-dessous un fichier dans lequel j'explique mes déboires !

Si vous avez une solution, je suis preneur !

A+

koukou40

 

[Cousinhub]

Re : [VBA] Soucis avec TextBox et case à cocher

Bonsoir,
dans ta fonction cherche, rajoute cette ligne :

   cherche = .Range("B" & n) & .Range("C" & n)
   [COLOR="Red"]cherche2 = .Range("D" & n)[/COLOR]

et déclare cherche2 comme variable publique :

Public cherche2

et dans ton change, rajoute :

    TxtNom1 = cherche(TxtMatricule1)
    [COLOR="Red"]TxtEquipe1 = cherche2[/COLOR]

Edit : petite astuce complémentaire :
pour tes checkbox, tu peux remplacer ton code par :

[COLOR="SeaGreen"]TxtInterim1 = IIf(ChkInterim1, "X", "")[/COLOR]
[COLOR="Red"]'If ChkInterim1 = True Then TxtInterim1 = "X"
'If ChkInterim1 = False Then TxtInterim1 = ""[/COLOR]

 

[koukou40]

Re : [VBA] Soucis avec TextBox et case à cocher

Merci, bhbh.
Je vais tester tout ça !

A+
koukou40