textbox combobox et cellules fusionnées

[pascal21]

bonsoir
je n'arive pas à faire correspondre des lignes colonnes a et les lignes fusionnées colonnes b
je m'explique:
colonne a j'ai des dates je selectionne grâce à une combobox la date voulue
colonne b j'ai des cellules fusionnées par groupe de 7 lignes correspondant à une semaine entiere (du lundi au dimanche)
j'aimerais pouvoir après avoir selectionné une date inscrire la modulation grace à un textbox
actuellement si je selactionne un lundi ça fonctionne mais pas si je selectionne un autre jour
voir classeur joint pour plus de clarté
merci

 

[Cousinhub]

Re : textbox combobox et cellules fusionnées

Bonsoir,
essaie avec ces codes (j'ai rajouté le premier pour avoir la date au format voulu dans la combo1)

Private Sub ComboBox1_Change()
Me.ComboBox1.Value = Format(Me.ComboBox1.Value, "dddd d mmmm yyyy")
End Sub

Private Sub CommandButton1_Click()
If ComboBox1.ListIndex <> -1 Then
Cells(ComboBox1.ListIndex + 2, 1).Offset(0, 1).Value = TextBox1.Value
Label3.Caption = Cells(ComboBox1.ListIndex + 2, 2).Value 'contrôle
End If
End Sub

Private Sub UserForm_Initialize()
ComboBox1.RowSource = ("dates")
End Sub

 

[pascal21]

Re : textbox combobox et cellules fusionnées

bonsoir bhbh
j'ai dù mal m'expliquer car ce n'est pas ce que je cherche
tout au moins ça ne fonctionne pas comme je voudrais
donc:
tout d'abord, il s'agit d'un tableau simplifié au maximum
à quelques choses prêt je n'ai plus que ce code qui me pose problème
si je selectionne le lundi 10 mars je peux écrire dans la cellule fusionnée B9
je peux controler ceci dans le label
par contre si je selectionne le mercredi 13 mars et que je veuille rajouter une donnée dans B9 ça ne fonctionne pas (rien dans le label)
vous me direz que je n'ai qu'a selectionner le lundi de chaque semaine et d'y inscrire la modulation
ça serait plus simple c'est sur

 

[Excel_lent]

Re : textbox combobox et cellules fusionnées

Bonsoir Pascal, Bh(1&1) sans oublier les autres.

Indépendamment de toute autre considération et si j'ai compris :
les cellules fusionnées posant problème, on les éclate, on traite puis on fusionne à nouveau.

 

[Cousinhub]

Re : textbox combobox et cellules fusionnées

Re-,
salut Excel_lent 😉
sans défusionner, mais sans le premier code de mise en forme du combo1

Private Sub CommandButton1_Click()
If ComboBox1.ListIndex <> -1 Then
x = Weekday(Me.ComboBox1.Value, 2)
Cells(ComboBox1.ListIndex + 2, 1).Offset(1 - x, 1).Value = TextBox1.Value
Label3.Caption = Cells(ComboBox1.ListIndex + 2, 1).Offset(1 - x, 1).Value 'contrôle
End If
End Sub

 

[Cousinhub]

Re : textbox combobox et cellules fusionnées

Re-,
en conservant le format de la feuille dans la combo1

tu déclares dans un module standard :

Public Flag As Boolean, LaDate

et ensuite :

Private Sub ComboBox1_Change()
If Flag Then Exit Sub
LaDate = Me.ComboBox1.Value
Flag = True
Me.ComboBox1.Value = Format(Me.ComboBox1.Value, "dddd d mmmm yyyy")
End Sub

Private Sub CommandButton1_Click()
If ComboBox1.ListIndex <> -1 Then
x = Weekday(LaDate, 2)
Cells(ComboBox1.ListIndex + 2, 1).Offset(1 - x, 1).Value = TextBox1.Value
Label3.Caption = Cells(ComboBox1.ListIndex + 2, 1).Offset(1 - x, 1).Value 'contrôle
End If
End Sub

Private Sub UserForm_Initialize()
ComboBox1.RowSource = ("dates")
End Sub

 

[Excel_lent]

Re : textbox combobox et cellules fusionnées

Re,

Bien pour ton premier code Bh(bis repetita), mais est-ce un drapeau noir dans le second ?
Le premier tour se passe bien mais après ça bloque ! J'ai recopié ce code in extenso.

 

[pascal21]

Re : textbox combobox et cellules fusionnées

bonsoir et merci pour vos réponses
je regarderai demain, là il faut aller au lit (pour une fois où je peux y aller de bonne heure)
demain il y a le boulot
bonne nuit

 

[Cousinhub]

Re : textbox combobox et cellules fusionnées

Re-,
effectivement, j'avais peut-être oublié ceci : 😱

If Flag Then Flag = False: Exit Sub

Bien vu, j'avais fait qu'un essai (ça m'apprendra 😀)

 

[skoobi]

Re : textbox combobox et cellules fusionnées

Bonsoir Pascal21,
salut bhbh Excel_lent,

si j'ai bien compris, là, l'utilisation de "Select" est utile avec activecell non?
Comme quoi parfois Select c'est utile.... 1 fois sur 1000...

Private Sub ComboBox1_Change()
Me.ComboBox1.Value = Format(Me.ComboBox1.Value, "dddd d mmmm yyyy")
End Sub

Private Sub CommandButton1_Click()
If ComboBox1.ListIndex <> -1 Then Cells(ComboBox1.ListIndex [B]+ 2, 2).Select[/B]
[B]ActiveCell.Value[/B] = TextBox1.Value 'écrire
Label3.Caption = [B]ActiveCell.Value[/B] 'contrôle
End Sub



Private Sub UserForm_Initialize()
ComboBox1.RowSource = ("dates")
End Sub

bhbh, tu auras remarqué au passage j'ai repris le code que tu as ajouté au début pour changer le format 😛

 

[Cousinhub]

Re : textbox combobox et cellules fusionnées

Re-,
skoobi 😉

Skoobi, j'avais également cette solution, mais ne voulant pas utiliser Select, j'ai cherché autre chose....😎

Comme quoi, les vieux démons.....😉