combobox

Pierrot93

XLDnaute Barbatruc

• 24 Janvier 2008

• #2

Re : combobox

Bonjour Kohta

pour ta 1ère question, regarde le code ci dessous :

Code:

Private Sub CommandButton1_Click()
If ComboBox1.Value = "" Then MsgBox "erreur"
End Sub

pour ta 2ème question cela demande un peu plus de détails, voir un ficher sans données confidentielles ...

bonne fin d'après midi
@+

 

Vote positif 0 Vote négatif

K

kohta

XLDnaute Occasionnel

• 24 Janvier 2008

• #3

Re : combobox

merci de ta réponse,

je suis vraiment bête, pour la msg box, javais seulement tapé le "Then" à la ligne et pas à la suite du "if"...

J'ai joint un exemple rapide j'espère que cela pourra aider

En fait, l'utilisateur remplit la colonne en jaune a chaque fin de journée, puis il clique sur le bouton, la boite de dialogue s'ouvre, il choisit le jour qu'il vient de renseigner dans la liste de mon combobox, et j'aimerais que quand il valide la boite de dialogue, la plage de celulles jaunes qu'il a rempli auparavan soit copiée dans la colonne correspondant au jour qu'il a renseigné dans la combobox...

merci de ton aide

 

Pièces jointes

• exemple.xls

  18 KB · Affichages: 75
• exemple.xls

  18 KB · Affichages: 77
• exemple.xls

  18 KB · Affichages: 74

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 24 Janvier 2008

• #4

Re : combobox

Re

pas de usf ni de code dans ton exemple... regarde le code ci dessous, si cela peut t'aider.

à placer dans le module de l'USF

Code:

Private Sub UserForm_Initialize()
    ComboBox1.List = Application.Transpose(Range("D1:G1").Value)
End Sub
Private Sub ComboBox1_Change()
    If ComboBox1.ListIndex <> -1 Then Range("B3:B8").Copy Cells(2, ComboBox1.ListIndex + 4)
End Sub

bonne soirée
@+

 

Vote positif 0 Vote négatif

K

kohta

XLDnaute Occasionnel

• 25 Janvier 2008

• #5

Re : combobox

Bonjour Pierrot93,
tout d'abord merci de ta réponse et désolé d'avoir reposté une discussion...

Je m'emmèle un peu les pinceaux dans mon projet, et j'ai voulu redéfinir ma requète.

Pourrais-je te transmettre un nouvel exemple (cet fois avec USF) pour voir si tu pourrais m'aider?

En gros, je souhaite que lorsque les données sont remplies dans la partie jaune, on clique sur le bouton, l'Usf s'ouvre, on choisi par la combobox une semaine, et quand on clique sur un bouton ok, la plage jaune doit etre copiée dans la semaine correspondante.

Autre problème, je n'arrive pas à définir les semaine dans le "rowsource" de la combobox si je sélectionne les semaines eu ligne 1 du tableur, je suis obligé de créer une liste des semaines sous forme colonne et non ligne...

Merci beaucoup

 

Pièces jointes

• TEST v3 macro2.zip

  15.9 KB · Affichages: 42
• TEST v3 macro2.zip

  15.9 KB · Affichages: 42
• TEST v3 macro2.zip

  15.9 KB · Affichages: 41

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 25 Janvier 2008

• #6

Re : combobox

Re

perso je ne travaille jamais avec la propriété "rowsource", utilise peut être le code que je t'ai donné, à placer dans l'événement "Initialize" de l'USF, alimente ta combobox à l'initialisation de l'USF :

Code:

Private Sub UserForm_Initialize()
    ComboBox1.List = Application.Transpose(Range("D1:G1").Value)
End Sub

n'oublies pas de retirer les données, dans la propriété "rowsourse" du "combo".

quand au 2ème code donné, effectue la copie comme demandée :

Code:

Private Sub ComboBox1_Change()
    If ComboBox1.ListIndex <> -1 Then Range("B3:B8").Copy Cells(2, ComboBox1.ListIndex + 4)
End Sub

regarde aussi la proposition de Kobaya dans l'autre post...

difficile à suivre sur plusieurs fils.

 

Vote positif 0 Vote négatif

K

kohta

XLDnaute Occasionnel

• 4 Février 2008

• #7

Re : combobox

Bonjour

Je n'arrive pas à renseigner automatiquement mon combobox à l'aide du private sub initialize donné précédemment: la combobox reste vide.

j'ai copié la sub dans le code de ma combobox, je pense avoir fais la bonne manip, mais rien ne se passe.

Je joint un nouvel exemple, cette fois simplifié de ce que j'aimerais obtenir:

je souhaite que, lorsque je remplis une plage de données fixe, et que je clique sur le bouton d'exécution, la combobox me donne le choix entre les quatres semaine S1 S2 S3 et S4 de mon tableau (et pas une adresse de celulle), et que lorsque je valide mon usf, la copie des cellules sources "fixes" se fasse dans la semaine que j'ai renseigné.

Ca ne me paraissait pas compliqué à l'origine, mais je vous avoue que je coince sur le sujet depuis maintenant 3 semaines 🙁

Merci de votre aide 😱

 

Pièces jointes

• TEST v3 macro2.zip

  15.9 KB · Affichages: 30
• TEST v3 macro2.zip

  15.9 KB · Affichages: 29
• TEST v3 macro2.zip

  15.9 KB · Affichages: 31

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 4 Février 2008

• #8

Re : combobox

bonjour,

passage rapide 🙂

pierrot on peut eviter le transpose :

ComboBox1.Column = Range("D1:G1").Value

salut

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 4 Février 2008

• #9

Re : combobox

re

kohta, en piece jointe, un essai.

evite les .hide pour masquer les usf, utilises plutot Unload (voir aide)
proscrit de tes codes l'utilisation de row source comme dit par pierrot

salut

 

Pièces jointes

• TEST v3 macro2.xls

  108.5 KB · Affichages: 79

Vote positif 0 Vote négatif

K

kohta

XLDnaute Occasionnel

• 4 Février 2008

• #10

Re : combobox

Merci beaucoup de ton aide, Hervé.

Ton exemple fonctionne à merveille, et je m'en suis servi pour mon doc cible.

cependant, pourrais-tu m'expliquer brièvement la ligne:

Range("D1:G1").Copy Destination:=Cells(4, ComboBox1.ListIndex + 4)

Cliquez pour agrandir...

Principalement la fin de la ligne, en fait.
Je n'arrive pas à transcrire cette partie dans mon doc cible...🙁

Merci encore!

 

Vote positif 0 Vote négatif