Mise en place des valeurs saisies

[Kalynna]

Bonjour j'ai concu un Userform avec 2 option boutons :
-Public
-Privé

Je souhaite que lorsque l'utilisateur coche :
- Public s'affiche une croix "X" dans la colonne A
- Privé s'affiche une croix "X" dans la colonne B

J'ai essayer de retrouver la ligne de code pour afficher les valeurs dans une feuille sur d'autres fichiers mais je n'y parvient pas.

En d'autre termes :
Par exemple le code pour afficher un texte dans une colonne est
" Range("P65536").End(xlUp).Offset(1, 0).Value = TextBox4"
Je souhaiterais le code pour optionbutton avec un conditionnement : si on coche Public alors on met une croix dans colonne A si on coche Privé alors on met une croix dans la colonne B.

Merci beaucoup.

Kalynna

 

[tototiti2008]

Re : Mise en place des valeurs saisies

Bonjour Kalynna,

peut-être avec :

Range(iif(OptionButton1.value,"A","B") & "65536").End(xlUp).Offset(1, 0).Value = "X"

 

[Kalynna]

Re : Mise en place des valeurs saisies

Merci de ta réponse ton code marche nickel.
Juste un truc qui ne va pas :

Prenons un exemple simple :
Option A coché --> "X" dans colonne A
Option B coché --> "X" dans colonne B


-je coche A no pb ca marche ca me met une croix dans colonne A
-je refait l'opération en cochant B ->problème : ça me met une croix sur la mémé ligne et donc je me retrouve avec une croix dans la colonne A et la colonne B de la même ligne.

Schéma :

j'ai :

// COL A // COL B

LIGNE1 // X // X
LIGNE2 //

alors que je voudrais :


// COL A // COL B

LIGNE1 // X //
LIGNE2 // // X

merci

 

[tototiti2008]

Re : Mise en place des valeurs saisies

Pour être franc, je pensais que tu n'écrivais les croix que si l'utilisateur appuye sur un bouton Valider ou quelque chose comme ça.
si tu écris les croix en direct quand on clique sur les boutons d'options, de toute façon ça posera un problème si la personne s'est trompée et revient à l'autre choix...

 

[Kalynna]

Re : Mise en place des valeurs saisies

L'utilisateur rempli le forumulaire et sur un des éléments du formulaire. il a :

Nom, prénom ect...
Horaire de travail : Option buttion1 : Jour OptionButton2Nuit

Bouton Valider Bouton Annuler

Quand tu clic sur valider ca te met la croix dans la bonne colonne, il y a une colonne jour et une colonne nuit

Je souhaite juste que a chaque nouvelle entrée ca retourne à la ligne.
Car la si je rentre un utilisateur jour je met valider puis ensuite je rentre un utilisateur nuit je met valider je vais avoir :

NOM1 /PRENOM1 /X(colonne jour) /X(colonne nuit du 2e utilisateur entré)
NOM2 / PRENOM2 / / /

alors ue je voudrais :

NOM1 /PRENOM1 /X(colonne jour) / /
NOM2 / PRENOM2 / / X(colonne nuit du 2e utilisateur entré) /

Merci de tes réponses précédentes.

 

[Kalynna]

Re : Mise en place des valeurs saisies

Au plus simple il faudrait inserer un else sur ton code peut-être ?

Range(IIf(OptionButton1.Value, "U", "V") & "65536").End(xlUp).Offset(1, 0).Value = "X"

Else écrire " " dans l'autre colonne ??

 

[tototiti2008]

Re : Mise en place des valeurs saisies

il faut que tu détermines la ligne dans laquelle écrire toutes les données avant de tout écrire. Pour celà, choisis une colonne toujours remplie et détermine la bonne ligne.

Admettons que la colonne A est toujours remplie :

Ligne = Range("A65536").end(xlup).row + 1
 
...
 
 
Range(IIf(OptionButton1.Value, "U", "V") & Ligne).Value = "X"

 

[Kalynna]

Re : Mise en place des valeurs saisies

Merci je vais me débrouiller avec tout ca 🙂
Sujet clos.