Décaler d'une colonne à chaque clique dans une seule combobo

Bonjour à tous,

est il possible d'avoir une seule combobox avec choix multiples et qu'à chaque clique sur un des choix celui ci s'intègre dans une colonne diffèrente (pour créer une suite d'événement sur une même ligne)?

Si oui, quel pourrait être le code?? désolé je suis débutant en VBA..

par avance merci !

Bonjour Dediou le forum

non dediou ( c'est pour rire) si tu mettais ton fichier avec des explications on pourrait te faire ce que tu veux, mais sans fichier, je ne vais pas créer un exemple pour toi

a+

papou

Bonjour,

tu as démasqué l'origine de mon pseudo!

voici en pj un exemple de ce que j'aimerais pouvoir faire, merci pour ton aide

Bonjour Dediou le forum

bon alors tu n'es pas le roi des explications, tu as 4 ou 5 listes, tu veux quoi et ou???

tu as trois feuilles et deux sont vides complètement,et aucune explications, ni même d'exemple de ce que tu veux obtenir !!!!

tu penses que l'on peut comprendre ce que tu veux sans explications??

c'est quoi pour toi une combobox à choix multiples ????

tu veux renvoyer les éléments cliqués sur une même ligne pas de soucis, les uns derrières les autres ok, mais quelle feuille??

et ensuite quelle est la limite de remplissage?? combien de colonnes??

bref pour toi c'est peut-être évident mais nous on est pas toi !!!!!!!!!!!!!!!!!!!!!!!!!!!

a+

Papou

paritec a écrit :

Bonjour Dediou le forum

bon alors tu n'es pas le roi des explications, tu as 4 ou 5 listes, tu veux quoi et ou???

tu as trois feuilles et deux sont vides complètement,et aucune explications, ni même d'exemple de ce que tu veux obtenir !!!!

tu penses que l'on peut comprendre ce que tu veux sans explications??

c'est quoi pour toi une combobox à choix multiples ????

tu veux renvoyer les éléments cliqués sur une même ligne pas de soucis, les uns derrières les autres ok, mais quelle feuille??

et ensuite quelle est la limite de remplissage?? combien de colonnes??

bref pour toi c'est peut-être évident mais nous on est pas toi !!!!!!!!!!!!!!!!!!!!!!!!!!!

a+

Papou

je viens de me rendre compte que je me suis trompé de document en piece jointe donc effectivement impossible à déchiffrer!!

Mille excuses pour ça, voici le bon fichier..j'espère que tu pourras m'aider cette fois ci..

bonne soirée,

Bonjour,

Je ne suis pas sûr d'avoir compris... mais voici un code pour servir tes temps indéfiniment, du moins tant qu'il y a des colonnes sur la feuille. Après Temps4, Excel complète automatiquement le tableau avec Temps5, etc.

Dim t As Integer

Sub Colorer(clr As Long)
    [Tableau2].Cells(1, t).Interior.Color = clr
    ComboBox1.ListIndex = -1
    t = t + 1
End Sub

Private Sub btn_orange_Click()
    Colorer RGB(255, 128, 0)
End Sub

Private Sub btn_rouge_Click()
    Colorer vbRed
End Sub

Private Sub btn_vert_Click()
    Colorer vbGreen
End Sub

Private Sub ComboBox1_Change()
    If ComboBox1.ListIndex > -1 Then
        [Tableau2].Cells(1, t) = ComboBox1.Value
    End If
End Sub

Private Sub UserForm_Initialize()
    With [Tableau2]
        Do
            t = t + 1
        Loop While .Cells(1, t) <> ""
    End With
End Sub

Cordialement.

Bonjour Dediou le forum

Ta demande en retour

a+

Papou

MFerrand a écrit :

Bonjour,

Je ne suis pas sûr d'avoir compris... mais voici un code pour servir tes temps indéfiniment, du moins tant qu'il y a des colonnes sur la feuille. Après Temps4, Excel complète automatiquement le tableau avec Temps5, etc.

Dim t As Integer

Sub Colorer(clr As Long)
    [Tableau2].Cells(1, t).Interior.Color = clr
    ComboBox1.ListIndex = -1
    t = t + 1
End Sub

Private Sub btn_orange_Click()
    Colorer RGB(255, 128, 0)
End Sub

Private Sub btn_rouge_Click()
    Colorer vbRed
End Sub

Private Sub btn_vert_Click()
    Colorer vbGreen
End Sub

Private Sub ComboBox1_Change()
    If ComboBox1.ListIndex > -1 Then
        [Tableau2].Cells(1, t) = ComboBox1.Value
    End If
End Sub

Private Sub UserForm_Initialize()
    With [Tableau2]
        Do
            t = t + 1
        Loop While .Cells(1, t) <> ""
    End With
End Sub

Cordialement.

Un grand merci pour le temps passé sur mon probleme qui est maintenant résolu !

Bravo pour votre partage de compétences continuez comme ça !

bonne journée!

paritec a écrit :

Bonjour Dediou le forum

Ta demande en retour

a+

Papou

Bonjour Papou,

effectivement avec des explications claires, tu es efficace! tu as réussi à me faire ce que je voulais! Merci pour ton temps passé à m'aider, longue vie au forum d'aide et aux bienfaiteurs,

bonne journée!

Bonsoir Dediou le forum

je ne retrouve plus ton message alors je réponds sur le premier post

a+

Papou

un grand merci à toi pour ce travail..c'est parfait !

Bonne continuation,