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

[josothy]

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

 

[roro69]

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++

 

[josothy]

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

merci beaucoup. sa marche nickel. et en plus super rapidement la réponse. merci encore

 

[Alyrio]

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

 

[Fo_rum]

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

Salut,

une autre touche personnelle, sans la macro Change et pour une suite éventuelle :

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

 

[josothy]

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

 

[Fo_rum]

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

Re,

Date est un mot réservé au VB voilà pourquoi je l'ai changé : Date_ !

 

[josothy]

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