Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

textbox combobox et cellules fusionnées

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion pascal21
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

pascal21

XLDnaute Barbatruc
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
 

Pièces jointes

Trier par date Trier par votes
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)

Code: 
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
 
Vote positif 0 Vote négatif
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
 
Dernière édition:
Vote positif 0 Vote négatif
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.

 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
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

Code: 
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
 
Vote positif 0 Vote négatif
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 :

Code: 
Public Flag As Boolean, LaDate

et ensuite :

Code: 
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
 
Vote positif 0 Vote négatif
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.
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
Re : textbox combobox et cellules fusionnées

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

Code: 
If Flag Then Flag = False: Exit Sub

Bien vu, j'avais fait qu'un essai (ça m'apprendra 😀)
 
Vote positif 0 Vote négatif
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...

Code: 
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 😛
 
Vote positif 0 Vote négatif
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.....😉
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Résolu(e)
XL 2010 Saut de page et cellules fusionnées
Réponses
10
Affichages
653
cathodique
A
  • Question Question
XL 2010 Forcer le focus a rester dans un Textbox apres validation
Réponses
11
Affichages
1 K
aurelio.ewane
A
S
  • Résolu(e)
Microsoft 365 RechercheV et cellules fusionnées = 0
Réponses
6
Affichages
584
Spidtrip
S
S
  • Question Question
XL 2013 Formulaire de recherche cellules fusionnées qui affiche les autres colonnes avec multilignes
Réponses
13
Affichages
866
Skippy
S
G
  • Question Question
XL 2016 Lier un TCD et un tableau Excel
Réponses
7
Affichages
840
OKBI
O
J
  • Question Question
XL 2016 Combobox et cellules fusionnées
Réponses
10
Affichages
1 K
Hasco
  • Question Question
XL 2016 Aide pour userform (sujet clos)
Réponses
8
Affichages
733
tactic6
1
  • Résolu(e)
Microsoft 365 effacement conditionnel d'une plage de cellules
Réponses
5
Affichages
571
1636alain
1
J
  • Résolu(e)
Microsoft 365 macro effacement sélection cellules
2 3 4
Réponses
55
Affichages
4 K
Phil69970
P
  • Résolu(e)
XL 2016 Fusionner des cellules en fonction du nombre d'une colonne
Réponses
4
Affichages
940
Pade
P
A
  • Résolu(e)
XL 2016 problème des cellules fusionnées
Réponses
10
Affichages
2 K
amateur
A
P
  • Question Question
XL 2019 remplir des colonnes avec une textbox et une combobox
Réponses
8
Affichages
1 K
ChTi160
C
  • Résolu(e)
XL 2016 Remplir automatiquement un tableau d'après des conditions et des valeurs
Réponses
11
Affichages
2 K
ERIC S
E
  • Question Question
XL 2016 Cherche valeur d'une ligne et renvoi valeur correspondante d'une autre colonne
Réponses
1
Affichages
1 K
Chris401
B
  • Question Question
XL 2016 alimentation Combobox et liaison textbox très lente
2
Réponses
16
Affichages
3 K
patricktoulon
E
  • Question Question
XL 2016 Cherche valeur d'une ligne et renvoi valeur correspondante d'une autre ligne
Réponses
4
Affichages
2 K
elisa05000
E
D
  • Question Question
XL 2013 Recherche valeur fixe - Remplissage cellules
Réponses
9
Affichages
2 K
Dja75
D
  • Question Question
Microsoft 365 Simplification de code
Réponses
1
Affichages
1 K
GADENSEB
C
  • Résolu(e)
XL 2019 Suppression, comptage d'éléments et création d'un historique de comptage
2
Réponses
24
Affichages
3 K
Cesar1275
C
R
  • Question Question
XL 2010 VBA - Mauvaise compréhension Offset sur cellules fusionnées
Réponses
5
Affichages
2 K
rom3478
R
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…