Discussion :

[seb20j]

Bonjour à tous,

Etant nouveau sur ce forum, mais à la fois un peu ancien étant donné que je me sers pas mal de vos informations qui sont très enrichissantes, je suis bloqué dans mon travail et je n'ai malheureusement pas trouvé réponse..

Mon problème est le suivant:

J'ai une USERFORM avec des CHECKBOX ( la première est nommée 12mm, la seconde 14mm, la troisième 16mm etc ... jusqu'à 20mm).

Si je coche la CHECKBOX 1 je veux que ça m'affiche la valeur dans la case excel AK3 : Jusque la j'ai réussi

Le problème c'est quand je sélectionne plusieurs CHECKBOX, je veux que ça ça me renvoie mon choix en case AK3 et que ça me les inscrivent les valeurs de la forme suivante : 12mm 14mm 16mm

J'aimerai avoir un espace entre les valeurs et j'aimerai que si je décoche par exemple la CHECKBOX 1 ( qui est le 12mm ), la case s'adapte AK3 s'adapte automatiquement, c'est à dire : 14mm 16mm

Je ne sais pas si j'ai été bien clair... Je l'espère.

Je vous remercie d'avance pour vos réponses !

Sébastien

[unparia]

Bonjour

Si je coche la CHECKBOX 1 je veux que ça m'affiche la valeur dans la case excel AK3 : Jusque la j'ai réussi

- Montre le code que tu as écrit pour ce faire
- Il te suffit de parcourir en boucle tes checkboxes et de concaténer dans une variable, puis d'écrire le contenu de cette variable dans la cellule (c'est là ultra simple)

[seb20j]

Bonjour Unparia,

J'ai codé cela pour ma checkbox nommée surpresseur :

Code :

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

1
2
3
4
5
6
7
8
9
'Si case surpresseur cochée alors renvoyer valeur surpresseur
Private Sub CheckBox155_Click()
If PAGE.CheckBox155 = True Then
Sheets("Userform").[AK3] = Sheets("Admin").[AB24]
End If
If PAGE.CheckBox155 = False Then
Sheets("Userform").[AK3] = ""
End If
End Sub

J'aimerai maintenant en cocher une deuxième en me l'affichant dans la case AK3 en m'espacant les mots et si en saissisant je me trompe et supprimes le premier choix ( donc je décoche ma première checkbox ), ça m'affiche les mots cochés en ne mettant pas d'espace au début.

Je m'explique avec un exemple:
Checkbox 1 (surpresseur) : cochée
Checkbox 2 (compteur) : cochée

Donc la cellule AK3 renvoit : surpresseur compteur

maintenant si je retire mon premier choix:

Checkbox 1 : décochée
Checkbox 2: cochée

La cellule AK3 renvoit: compteur

Merci d'avance pour ta réponse