Discussion :

[OliFossa]

Bonjour à tous,

Je me permets de créer un topic car après avoir fouillé tout le WE le net pour trouver une solution à mon problème (qui doit sûrement être tout bête), je n'ai rien dénîché.

Voilà mon souci :

J'ai un tableau Excel avec les données (nom, matricule, etc... ) de plusieurs personnes. J'ai créé une macro avec un formulaire contenant des textbox et des combobox pour certaines des données.
Cependant, dans mon tableau excel, j'ai des colonnes ( sous un intitulé "languages") English, Spanish, French, ...

J'ai donc dessiné des checkbox à côté de mes labels English, Spanish, ... mais je n'ai aucune idée de leur fonctionnement. J'aimerais donc qu'en les sélectionnant dans le formulaire, la valeur " Yes " apparaisse dans mon tableau Excel.

Etant un vrai débutant dans VBA, je n'ai pas la moindre idée de quel pourrait être le code et la procédure à mettre à la fois dans le UserForm et dans le module...


Voilà, j'espère avoir été clair et vous remercie d'avance pour votre aide !!!

Merci,

OliFossa

[Philippe Tulliez]

Bonjour,
En admettant que les colonnes contenant les langues soient de F à H de la feuille [Feuil3].
Que les CheckBox sont nommés chk1 à 3

Voici un exemple ci-dessous : (wRow est ici une constante mais est supposée être une variable représentant la ligne où se trouve le focus de l'encodage).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Option Explicit
Const wRow As Byte = 10
Dim sht As Worksheet
Private Sub CommandButton1_Click()
 Dim x As Byte
 For x = 1 To 3
  sht.Cells(wRow, 5 + x) = Controls("chk" & x).Value
 Next
End Sub
Private Sub UserForm_Initialize()
 Set sht = ThisWorkbook.Worksheets("Feuil3")
End Sub

[OliFossa]

Merci pour votre rapide réponse.

Cependant, je dois vous avouer que je n'y comprends pas tout.

Que représente :

- x
- 10
- 5
?

De plus, pourquoi ce "commandbutton1" ? Que représente-t-il sur le userform?

Peut-être devrais-je poster un screenshot avec mon formulaire ?

[Philippe Tulliez]

Bonjour,
Pour le nombre 10, c'est la valeur que j'ai donné à la constante wRow, je l'ai expliqué dans ma réponse. Cela simule le n° de la ligne où sera écrit VRAI/FAUX
Le nombre 5+x représentera le n° de la colonne où sera écrit VRAI ou FAUX, j'ai écrit "En admettant que les colonnes contenant les langues soient de F à H de la feuille [Feuil3]". donc F c'est la 6ème colonne soit 5+x quand x dans la boucle vaut 1.
C'est difficile de donner un coup de main, quand le niveau de connaissance de VBA, est si bas.
Le mieux serait de commencer par lire un des tutos se trouvant sur ce site.

[gFZT82]

Bonjour,

Pour te familiariser avec les différents contrôles, tu peux commencer par cette lecture
http://silkyroad.developpez.com/VBA/ControlesUserForm/

Cordialement.

[OliFossa]

Merci pour vos réponses.


J'ai réussi à écrire les codes pour la manipulation que je souhaite.

Dans mon "DataSheetForm", celà donne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub Checkbox20_Change ()
     Select Case Checkbox20.Value
          Case True: Checkbox20.Caption = "Yes"
          Case False: Checkbox20.Caption = "No"
     End Select
End Sub

et dans le module:

(la propriété est en 11ème colonne)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells (i,11) = DataSheetForm.Checkbox20.Caption

Quand je coche la case, tout fonctionne: elle m'indique "Yes" dans le tableau
Mais quand je ne la coche pas, elle m'indique "Checkbox1" à la place de "No"

Comment pourrais-je remédier à ce soucis ?

Merci