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

josothy · 8 Avril 2009

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 · 8 Avril 2009

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 · 8 Avril 2009

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 · 8 Avril 2009

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 · 8 Avril 2009

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

josothy · 8 Avril 2009

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 · 8 Avril 2009

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 · 8 Avril 2009

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

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

josothy

Guest

Pièces jointes

roro69

XLDnaute Impliqué

josothy

Guest

Alyrio

Guest

Fo_rum

XLDnaute Accro

josothy

Guest

Fo_rum

XLDnaute Accro

josothy

Guest

Pièces jointes

Discussions similaires

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

josothy

Guest

Pièces jointes

roro69

XLDnaute Impliqué

josothy

Guest

Alyrio

Guest

Fo_rum

XLDnaute Accro

josothy

Guest

Fo_rum

XLDnaute Accro

josothy

Guest

Pièces jointes

Discussions similaires

Privacy & Transparency

Privacy & Transparency