Liste déroulante

[folkcyrus]

Bonjour,

Je voudrais qu'une liste déroulante me permette d'inscrire un choix
dans la dernière ligne écrite de la colonne A et si possible que je puisse aussi en sélectionnant une cellule le choix de ma liste déroulante s'inscrive à cet endroit.
Merci
Hélène
ci-joint l'exemple

 

[gilbert_RGI]

Re : Liste déroulante

Voilà le code

Private Sub ComboBox2_Change()
    
    [COLOR="Red"]Cells(2, 1) = ComboBox2[/COLOR]    ActiveCell.Select
'Pour conserver le contenu de la cell A2 si l'on
'décide de ne pas opérer de changement sinon
'le contenu de A2 est perdu irrémédiablement
    If Sheets("Feuil1").CheckBox1 = True Then
        ActiveCell = ComboBox2

    Else

 'La ligne suivante va placer la cellule active en A5000
 ' et remonte jusqu'à la première cellule contenant non vide
 'dans l'exemple A14 "Réponse"
Range("A5000").End(xlUp).Offset(1, 0).Select
'Ecriture du réultat stocké en A2
        [COLOR="red"]ActiveCell = [A2][/COLOR]
[COLOR="Blue"]ActiveCell = ComboBox2[/COLOR]
    End If
End Sub

enlever ce qu'il y a en rouge et mettre ce qu'il y a en bleu 😀

 

[folkcyrus]

Re : Liste déroulante - aojouter un intitulé dans la liste

Bonjour encore sur cette liste déroulante !

Et tout d'abord merci cela fonctionne !
Maintenant je voudrais pouvoir ajouter un intitulé sur ma Feuil2 et le voir se classer par ordre alphabétique dans la liste déroulante.
J'ai ajouté des intitulés Choix 1a, Choix 1b et Choix 2a. Ils apparaissent dans la liste. Si sur la feuille 2 je fais un tri, ils apparaissent dans le bon ordre. Mais excel me dit qu'il y a un problème ici:
Range("A5000").End(xlUp).Offset(1, 0).Select
et du coup la liste déroulante ne fonctionne plus.
Merci encore de vous pencher sur ce nouveau problème

 

[gilbert_RGI]

Re : Liste déroulante - aojouter un intitulé dans la liste

Bonjour encore sur cette liste déroulante !

Et tout d'abord merci cela fonctionne !
Maintenant je voudrais pouvoir ajouter un intitulé sur ma Feuil2 et le voir se classer par ordre alphabétique dans la liste déroulante.
J'ai ajouté des intitulés Choix 1a, Choix 1b et Choix 2a. Ils apparaissent dans la liste. Si sur la feuille 2 je fais un tri, ils apparaissent dans le bon ordre. Mais excel me dit qu'il y a un problème ici:
Range("A5000").End(xlUp).Offset(1, 0).Select
et du coup la liste déroulante ne fonctionne plus.
Merci encore de vous pencher sur ce nouveau problème

Bonjour

en effet ça ne fonctionne pas 100% correctement
je vous propose autre chose mais je n'ai pas le temps aujourd'hui
je reviens dès que possible

RGI

 

[folkcyrus]

Re : Liste déroulante

Merci Gilbert

Hélène

 

[gilbert_RGI]

Re : Liste déroulante

Merci Gilbert

Hélène

Bonsoir

Voilà dites moi ce que vous en pensez !!!

 

[folkcyrus]

Re : Liste déroulante

C'est tout simplement magnifique avec la couleur et tout !
Il me reste à l'intégrer au projet.

cependant lorsque j'ouvre le fichier la CheckBox est cochée par défaut, serait-il possible de l'avoir décochée ?
Serait-il possible aussi de valider le choix dans la liste déroulante simplement en le sélectionnant à la place du bouton copier ?
Comment faire apparaître le bouton sur ma feuille en haut?
ou comment faire appraître la boite quand j'ouvre mon fichier

Pour finir je ne sais pas comment affecter les intitulés à la nouvelle boite, quand je l'ouvre dans le fichier ci-joint il n'y a rien dedans.

Encore merci
Hélène

 

[gilbert_RGI]

Re : Liste déroulante

C'est tout simplement magnifique avec la couleur et tout !
Il me reste à l'intégrer au projet.

cependant lorsque j'ouvre le fichier la CheckBox est cochée par défaut, serait-il possible de l'avoir décochée ?
Serait-il possible aussi de valider le choix dans la liste déroulante simplement en le sélectionnant à la place du bouton copier ?
Comment faire apparaître le bouton sur ma feuille en haut?
ou comment faire appraître la boite quand j'ouvre mon fichier

Pour finir je ne sais pas comment affecter les intitulés à la nouvelle boite, quand je l'ouvre dans le fichier ci-joint il n'y a rien dedans.

Encore merci
Hélène

cependant lorsque j'ouvre le fichier la CheckBox est cochée par défaut, serait-il possible de l'avoir décochée ?
oui c'est possible il faut mettre Me.CheckBox1.Value = False dans l'initialisation de l'userform
dont voila le code

Private Sub UserForm_Initialize()
    For i = 1 To Sheets(2).Range("A5000").End(xlUp).Row
        Me.ComboBox1.AddItem Sheets(2).Cells(i, 1).Value
    Next
    Me.CheckBox1.Value = [COLOR="Red"]False[/COLOR]
    Sheets(1).Select
End Sub

Serait-il possible aussi de valider le choix dans la liste déroulante simplement en le sélectionnant à la place du bouton copier ?
tout est possible mais ainsi ça permet de valider avant ou après la cellule active d'ou moins d'erreurs

Comment faire apparaître le bouton sur ma feuille en haut?
ou comment faire appraître la boite quand j'ouvre mon fichier

de quel bouton s'agit-il ?

comment faire appraître la boite quand j'ouvre mon fichier

elle s'ouvre déjà à l'ouverture 😕

Pour finir je ne sais pas comment affecter les intitulés à la nouvelle boite, quand je l'ouvre dans le fichier ci-joint il n'y a rien dedans.


le remplissage de la combobox se trouve ici

    For i = 1 To Sheets(2).Range("A5000").End(xlUp).Row
        Me.ComboBox1.AddItem Sheets(2).Cells(i, 1).Value
    Next

😀

Bon courage et persévérance 😎

 

[gilbert_RGI]

Re : Liste déroulante

J'avais pas bien regardé

donc voilà le fichier

voir les boutons du calendrier et de la boite de saisie
pour le calendrier saisir une cellule dans la colonne A et cliquer sur la date désirée

 

[folkcyrus]

Re : Liste déroulante

Bonsoir Gilbert,

Encore merci c'est vraiment impressionnant pour moi de découvrir tout ce que vous faites !
En ouvrant le fichier, puis en cliquant dans la barre en haut sur l'icone calendrier, celui-ci s'ouvre mais il n'y a pas de chiffre à l'intérieur. J'ai regardé et j'ai vu que 2 calendriers se superposaient, j'en ai supprimé un mais cela ne fonctionne pas davantage ?
Encore merci et bon dimanche!
Hélène

 

[gilbert_RGI]

Re : Liste déroulante

Bonsoir Gilbert,

Encore merci c'est vraiment impressionnant pour moi de découvrir tout ce que vous faites !
En ouvrant le fichier, puis en cliquant dans la barre en haut sur l'icone calendrier, celui-ci s'ouvre mais il n'y a pas de chiffre à l'intérieur. J'ai regardé et j'ai vu que 2 calendriers se superposaient, j'en ai supprimé un mais cela ne fonctionne pas davantage ?
Encore merci et bon dimanche!
Hélène

Bonjour

je ne comprends pas trop
voici ce que vous devriez avoir
le clip

vous devriez avoir aussi ce complément de coché

Complément
Bon Dimanche à vous aussi


RGI

 

[folkcyrus]

Re : Liste déroulante

En effet Gilbert tout fonctionne à merveille !
J'ai énormément appris grâce à vous.

Le calendrier se remet systématiquement sur la date de février 2003, ce qu'il ne faisait pas avant ... si vous avez une idée sinon juste encore une fois Merci
Hélène

 

[gilbert_RGI]

Re : Liste déroulante

En effet Gilbert tout fonctionne à merveille !
J'ai énormément appris grâce à vous.

Le calendrier se remet systématiquement sur la date de février 2003, ce qu'il ne faisait pas avant ... si vous avez une idée sinon juste encore une fois Merci
Hélène

Là aussi je ne comprends pas car ici il est sur mars mais bon

pour forcer vous pouvez mettre ce code dans le code de l'userform "calendrier"

Private Sub UserForm_Activate()
Me.Calendar1.Value = Date
End Sub

😀

RGI

 

[folkcyrus]

Re : Liste déroulante

Bonsoir Gilbert,
pour le calendrier, il garde en mémoire le mois qui apparaît sur le usf (quand on fait la mise en page), il suffit de sélectionner mars 2008 et il le garde en mémoire. Du coup en avril il restera sur mars ... à moins que votre petit code fonctionne. Je verrai donc.
Je n'ai absolument plus aucune question concernant ces 2 usf. Je ne tarderai certainement pas à en poser d'autres dans d'autres domaines
Merci Gilbert pour tout votre temps
Hélène

 

[gilbert_RGI]

Re : Liste déroulante

Ok si besoin vous pouvez me joindre Ici ou cliquez sur ce lien

Ce lien n'existe plus

Cdlt

RGI