Placer résultat TextBox suivant sélection ComboBox dans cellules
Résolu
Yoyo01000
Messages postés
1720
Statut
Membre
-
Yoyo01000 Messages postés 1720 Statut Membre -
Yoyo01000 Messages postés 1720 Statut Membre -
Bonjour le forum,
Je n'arrive pas à placer le résultat d'une TextBox dont la valeur sera un nombre dans une cellule liée au mois sélectionné dans la ComboBox.
Si par exemple je sélectionne Janvier dans la ComboBox et que j'inscris 35 dans la TextBox, j'aimerais qu'en cellule S1 il y ait le résultat 35.
Et ainsi de suite pour les autres 11 mois de l'année.
Voici le fichier : https://www.cjoint.com/c/JLBl3upumpK
Je n'arrive pas à placer le résultat d'une TextBox dont la valeur sera un nombre dans une cellule liée au mois sélectionné dans la ComboBox.
Si par exemple je sélectionne Janvier dans la ComboBox et que j'inscris 35 dans la TextBox, j'aimerais qu'en cellule S1 il y ait le résultat 35.
Et ainsi de suite pour les autres 11 mois de l'année.
Voici le fichier : https://www.cjoint.com/c/JLBl3upumpK
Configuration: Windows / Chrome 87.0.4280.88
A voir également:
- Placer résultat TextBox suivant sélection ComboBox dans cellules
- Placer des points sur une carte - Guide
- Resultat foot - Télécharger - Vie quotidienne
- Verrouiller cellules excel - Guide
- Formule excel pour additionner plusieurs cellules - Guide
- Lexer resultat - Télécharger - Sport
3 réponses
Bonjour,
sers toi de la propriété ListIndex de ta combobox
sers toi de la propriété ListIndex de ta combobox
Private Sub CommandButton1_Click()
Range("S" & Mois.ListIndex + 1) = TextBox1.Text
End Sub
Bonjour Yoyo,
Par exemple :
Par exemple :
Private Sub CommandButton1_Click()
If Me.Mois.ListIndex >= 0 And Me.TextBox1.Value <> "" Then
With ThisWorkbook.Worksheets("Feuil1").Range("S1")
.Offset(Me.Mois.ListIndex).Value = Val(Me.TextBox1.Value)
End With
End If
End Sub
Bonjour Patrice ,
au final, j'ai utilisé la solution de Le Pivert avant de voir ta réponse !
Voici le code complet que j'ai utilisé, avec la ligne ListIndex proposée :
Merci pour ta contribution et ton aide, bonnes fêtes de fin d'année à toi :-)
au final, j'ai utilisé la solution de Le Pivert avant de voir ta réponse !
Voici le code complet que j'ai utilisé, avec la ligne ListIndex proposée :
Private Sub CommandButton1_Click()
Sheets("Datas Jauges").Visible = True
Sheets("Datas Jauges").Activate
Range("S" & Mois.ListIndex + 1) = Nombre.Text
Sheets("Datas Jauges").Visible = False
Unload Charges
Sheets("UEP Polyvalence 2021").Activate
End Sub
Merci pour ta contribution et ton aide, bonnes fêtes de fin d'année à toi :-)
Du coup, j'ai fait d'une manière un peu archaïque pouvant sans doute être optimisée :
Private Sub CommandButton1_Click()
If Mois.Value = "Janvier" Then
Range("S1").Value = Nombre.Value
Else
If Mois.Value = "Février" Then
Range("S2").Value = Nombre.Value
Else
If Mois.Value = "Mars" Then
Range("S3").Value = Nombre.Value
Else
If Mois.Value = "Avril" Then
Range("S4").Value = Nombre.Value
Else
If Mois.Value = "Mai" Then
Range("S5").Value = Nombre.Value
Else
If Mois.Value = "Juin" Then
Range("S6").Value = Nombre.Value
Else
If Mois.Value = "Juillet" Then
Range("S7").Value = Nombre.Value
Else
If Mois.Value = "Août" Then
Range("S8").Value = Nombre.Value
Else
If Mois.Value = "Septembre" Then
Range("S9").Value = Nombre.Value
Else
If Mois.Value = "Octobre" Then
Range("S10").Value = Nombre.Value
Else
If Mois.Value = "Novembre" Then
Range("S11").Value = Nombre.Value
Else
If Mois.Value = "Décembre" Then
Range("S12").Value = Nombre.Value
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End Sub
Tellement plus simple ainsi...!
Merci et bonne fêtes à toi :-)