XL 2013 Userform : renvoyer une donnée dans une cellule particulière

C

CHALET53

XLDnaute Barbatruc

• 4 Septembre 2015

• #2

Re : Userform : renvoyer une donnée dans une cellule particulière

bonjour,

Un essai

j'ai remplacé (sans les enlever) tes textboxs par des DTpickers (sélection de date possible)

A voir

A+

 

Pièces jointes

• R.R. 2014-2015 - Carnet élèves interactif.xls

  262 KB · Affichages: 32

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 4 Septembre 2015

• #3

Re : Userform : renvoyer une donnée dans une cellule particulière

Bonjour et bienvenue sur XLD

comme ceci ?😎

 

Pièces jointes

• Copie de 2014-2015 - Carnet élèves interactif.xls

  138.5 KB · Affichages: 31

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 4 Septembre 2015

• #4

Re : Userform : renvoyer une donnée dans une cellule particulière

une amélioration sans utiliser le DTpickers qui pose problème à certains 😀

 

Pièces jointes

• Copie de 2014-2015 - Carnet élèves interactif1.xls

  182.5 KB · Affichages: 48

Vote positif 0 Vote négatif

R

R.R.

XLDnaute Nouveau

• 5 Septembre 2015

• #5

Re : Userform : renvoyer une donnée dans une cellule particulière

Bonjour Chalet53 et gilbert_RGI

Merci à tous les deux pour votre accueil sur le forum, ainsi que pour avoir répondu si vite à mon problème. La dernière solution de gilbert_RGI est parfaite. Effectivement, les DTPickers ne marchaient pas ... J'aurais dû préciser que je fonctionne avec un mac et j'imagine que c'est cela qui coince. Merci encore à tous les deux pour l'attention que vous avez porté à mes interrogations. Je vais maintenant essayer de décrypter le code pour apprendre 🙂

Bonne journée et bon WE

 

Vote positif 0 Vote négatif

R

R.R.

XLDnaute Nouveau

• 5 Septembre 2015

• #6

Re : Userform : renvoyer une donnée dans une cellule particulière

Ah si, deux petites questions :

- quel est l'objet qui a été inséré, marqué CF ? Je crois comprendre qu'il a un rôle dans l'exécution de la commande.

- je veux ajouter 7 autres classes dans le classeur, en gardant les mêmes fonctionnalités. Comment dois-je m'y prendre ?

Merci encore 🙂

 

Dernière modification par un modérateur: 5 Septembre 2015

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 5 Septembre 2015

• #7

Re : Userform : renvoyer une donnée dans une cellule particulière

l'objet marqué CF est un bouton activeX

en cliquant sur ce bouton l'userform apparait

pour les autres classes il faut modifier un peu les lignes de programme comme ceci

VB:

Private Sub Usf_Valider_Click()
'ceci pour eviter les pages accueil et note 1
If ActiveSheet.Name = "ACCUEIL" Or ActiveSheet.Name = "NOTE 1" Then Exit Sub

With ActiveSheet

lig = ActiveCell.Row
    IsDate (Usf_textbox_DU.Value & Usf_textbox_AU.Value)
    .Cells(lig, 66).Value = CDate(Usf_textbox_DU.Value)
    .Cells(lig, 67).Value = CDate(Usf_textbox_AU.Value)
    Unload Me
 End With
End Sub

 

Dernière édition: 5 Septembre 2015

Vote positif 0 Vote négatif

R

R.R.

XLDnaute Nouveau

• 5 Septembre 2015

• #8

Re : Userform : renvoyer une donnée dans une cellule particulière

Parfait, cela semble marcher comme je le souhaite. J'ai mis autant d'ActiveSheet.Name = "Note ..." qu'il y en a dans mon classeur. Merci encore pour ton aide Gilbert_RGI
A bientôt peut-être pour un autre problème 😉

 

Vote positif 0 Vote négatif