Userform à cocher pour inscription Texte dans cellule

[incubus20851]

Bonjour à tout le monde,

Voici ma question.

A l'ouverture du fichier j'ai un Userform qui s'ouvre, avec des cases à cocher.

J'aimerais qu'en fonction des cases qu'on coche il y ai un texte donnée qui s'affiche dans une Cellule donnée dans une feuille.

Comment puis-je faire ça ?

Exemple :
Dans le Userform à coté de la case à cocher y'a écrit "Facture" quand je coche cette case dans le Userform, en cellule C32 sur ma feuille "Bordereau" ça inscrit dans la cellule, le texte "Facture établie le 19/02/09 pour M.Mouchain"

Et dans le userform plusieurs cases pour plusieurs motifs différents avec donc des phrases différentes à inscrire.

Merci d'avance pour vos réponses
A bientôt
Vincent

 

[Bebere]

Re : Userform à cocher pour inscription Texte dans cellule

bonjour Incubus
met nous un fichier ce sera plus facile
à bientôt

 

[keepcool183]

Re : Userform à cocher pour inscription Texte dans cellule

Bonjour Incubus, Bebere,

 If checkbox.value = true then 
range("c32").value="Facture établie le 19/02/09 pour M.Mouchain"

A adapter 😉

 

[incubus20851]

Re : Userform à cocher pour inscription Texte dans cellule

Voilà un fichier pour exemple

Merci d'avance
Vincent

 

[tora]

Re : Userform à cocher pour inscription Texte dans cellule

Bonjour à tout le monde,

Voici ma question.

A l'ouverture du fichier j'ai un Userform qui s'ouvre, avec des cases à cocher.

J'aimerais qu'en fonction des cases qu'on coche il y ai un texte donnée qui s'affiche dans une Cellule donnée dans une feuille.

Comment puis-je faire ça ?

Exemple :
Dans le Userform à coté de la case à cocher y'a écrit "Facture" quand je coche cette case dans le Userform, en cellule C32 sur ma feuille "Bordereau" ça inscrit dans la cellule, le texte "Facture établie le 19/02/09 pour M.Mouchain"

Et dans le userform plusieurs cases pour plusieurs motifs différents avec donc des phrases différentes à inscrire.

Merci d'avance pour vos réponses
A bientôt
Vincent

Slt

teste ça ...

@+

Au choix avec cases à cocher ou boutons options ...

 

[incubus20851]

Re : Userform à cocher pour inscription Texte dans cellule

Merci, ça marche nickel !! 🙂

Et Merci à Mromain pour la réponse, Tip Top

Merci beaucoup
A toute
Vincent

 

[mromain]

Re : Userform à cocher pour inscription Texte dans cellule

bonjour incubus, le fil

pour ton premier PB (le retour à la ligne), voici le code modifié :

        Case 1: Range(Ou).Value = "Facture" & Chr(10) & "Mr MOUCHAIN" & Chr(10) & Date
        Case 2: Range(Ou).Value = "Repas" & Chr(10) & "Mr MOUCHAIN" & Chr(10) & Date
        Case 3: Range(Ou).Value = "Lessive" & Chr(10) & "Mr MOUCHAIN" & Chr(10) & Date

a+