koukou40 XLDnaute Occasionnel 21 Février 2008 #1 Bonsoir, Vous trouverez ci-dessous un fichier dans lequel j'explique mes déboires ! Si vous avez une solution, je suis preneur ! A+ koukou40 Dernière édition: 12 Mai 2008
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 XLDnaute Barbatruc 21 Février 2008 #2 Re : [VBA] Soucis avec TextBox et case à cocher Bonsoir, dans ta fonction cherche, rajoute cette ligne : Code: cherche = .Range("B" & n) & .Range("C" & n) [COLOR="Red"]cherche2 = .Range("D" & n)[/COLOR] et déclare cherche2 comme variable publique : Code: Public cherche2 et dans ton change, rajoute : Code: TxtNom1 = cherche(TxtMatricule1) [COLOR="Red"]TxtEquipe1 = cherche2[/COLOR] Edit : petite astuce complémentaire : pour tes checkbox, tu peux remplacer ton code par : Code: [COLOR="SeaGreen"]TxtInterim1 = IIf(ChkInterim1, "X", "")[/COLOR] [COLOR="Red"]'If ChkInterim1 = True Then TxtInterim1 = "X" 'If ChkInterim1 = False Then TxtInterim1 = ""[/COLOR] Dernière édition: 21 Février 2008 Vote positif 0 Vote négatif
Re : [VBA] Soucis avec TextBox et case à cocher Bonsoir, dans ta fonction cherche, rajoute cette ligne : Code: cherche = .Range("B" & n) & .Range("C" & n) [COLOR="Red"]cherche2 = .Range("D" & n)[/COLOR] et déclare cherche2 comme variable publique : Code: Public cherche2 et dans ton change, rajoute : Code: TxtNom1 = cherche(TxtMatricule1) [COLOR="Red"]TxtEquipe1 = cherche2[/COLOR] Edit : petite astuce complémentaire : pour tes checkbox, tu peux remplacer ton code par : Code: [COLOR="SeaGreen"]TxtInterim1 = IIf(ChkInterim1, "X", "")[/COLOR] [COLOR="Red"]'If ChkInterim1 = True Then TxtInterim1 = "X" 'If ChkInterim1 = False Then TxtInterim1 = ""[/COLOR]
koukou40 XLDnaute Occasionnel 21 Février 2008 #3 Re : [VBA] Soucis avec TextBox et case à cocher Merci, bhbh. Je vais tester tout ça ! A+ koukou40 Vote positif 0 Vote négatif