entrée donnée en fonction d'un combobox

  • Initiateur de la discussion Initiateur de la discussion josothy
  • 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 !

J

josothy

Guest
Bonjour,

Je vous expose mon problème j'ai un combobox qui me dirige vers les onglets de mon classeur et je voudrais en fonction du choix du combobox que les infos que je met dans les textbox aille se mettre dans le bonne onglet.

Si quelqu'un peut m'aider je suis preneur.

Bonne journée
 

Pièces jointes

Re : entrée donnée en fonction d'un combobox

Bonsoir
Ajoute un petit command bouton
et met ce petit code çà devrait marcher
Private Sub CommandButton1_Click()

Dim DerLigne As Integer, Cel As Range
DerLigne = ActiveSheet.Range("A65536").End(xlUp).Row + 1
If Date = "" Or Numéro = "" Or Echéance = "" Or Montant = "" Then MsgBox " il manque des infos !": Exit Sub
With ActiveSheet
.Cells(DerLigne, 1) = Date
.Cells(DerLigne, 2) = Numéro
.Cells(DerLigne, 3) = Echéance
.Cells(DerLigne, 4) = Montant

End With

End Sub

A++
 
Re : entrée donnée en fonction d'un combobox

Bonjour josothy, roro69, tous

puis-je apporter une tite touche personnelle ?
Si elle est de trop dites le moi !

Private Sub CommandButton1_Click()


Dim DerLigne As Integer, Cel As Range
DerLigne = Sheets(ComboBox1.Text).Range("A65536").End(xlUp).Row + 1
If Date = "" Or Numéro = "" Or Echéance = "" Or Montant = "" Then MsgBox " il manque des infos !": Exit Sub
With Sheets(ComboBox1.Text)
.Cells(DerLigne, 1) = Date
.Cells(DerLigne, 2) = Numéro
.Cells(DerLigne, 3) = Echéance
.Cells(DerLigne, 4) = Montant

End With


End Sub
 
Re : entrée donnée en fonction d'un combobox

Salut,

une autre touche personnelle, sans la macro Change et pour une suite éventuelle :
Code:
Private Sub CommandButton1_Click()
  Dim DerLigne As Integer
 [B] Sheets(ComboBox1.Value).Select[/B]
  DerLigne = Range("A65536").End(xlUp).Row + 1
  If Date[B]_[/B] = "" Or Numéro = "" Or Echéance = "" Or Montant = "" Then MsgBox " il manque des infos !": Exit Sub
  Cells(DerLigne, 1) = Date_
  Cells(DerLigne, 2) = Numéro
  Cells(DerLigne, 3) = Echéance
  Cells(DerLigne, 4) = Montant
  'si tu ne fermes pas l'USF ici
 [B] Date_ = ""
  Numéro = ""
  Echéance = ""
  Montant = ""
  'sinon supprimer ' dans la ligne suivante
  'Unload Me[/B]
End Sub
 
Re : entrée donnée en fonction d'un combobox

Je viens de trouver un problème. La date qui s'inscrit peu importe ce que je met dans la textbox s'enregistre toujours comme la date d'aujourd'hui
 
Re : entrée donnée en fonction d'un combobox

merci j'ai changé le mot date c'est bien ça qui mettait le bazar. Par contre j'aimerais bien mettre le format de la case montant en €uro. et je ne sais pas trop comment faire. je remet le fichier joint
 

Pièces jointes

- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
40
Affichages
2 K
Réponses
2
Affichages
196
Réponses
17
Affichages
1 K
Réponses
4
Affichages
325
Retour