Pourquoi le Listbox ne veux pas se coller ?

lanoe · 2 Octobre 2008

Bonjour le forum,

Vous avez été déjà plusieurs à m’aider dans différentes phases de se projet, et je reviens demander de l’aide.

J’ai un calendrier dans mon Userform qui répercute la date dans une ListBox, mais celle-ci refuse obstinément de se coller en colonne C.
Et malgré des recherches dans les archives du forum je n’arrive pas à en comprendre la cause.
Mon code à un problème....

Merci pour votre aide
lanoe

RENAUDER · 2 Octobre 2008

Re : Pourquoi le Listbox ne veux pas se coller ?

Bonjour,
Je ne comprend pas pourquoi le controle que tu nommes ListBox1 est une Listbox.
Ca devrait être une TextBox car tu colles simplement une valeur avec le calendrier.

lanoe · 2 Octobre 2008

Re : Pourquoi le Listbox ne veux pas se coller ?

Bonjour,

Je suis débutant en vba j'ai trouvé le calendrier en circulant sur le forum, il était fait avec une listbox, et je n'arrive pas à "entrer" la date dans un textBox.

Si tu peix m'aider...merci d'avance

lanoe

RENAUDER · 2 Octobre 2008

Re : Pourquoi le Listbox ne veux pas se coller ?

Bonjour,
J'ai fait la modif

lanoe · 2 Octobre 2008

Re : Pourquoi le Listbox ne veux pas se coller ?

Re...

Cela fonctionne paraitement...Merci...

lanoe

lanoe · 2 Octobre 2008

Re : Pourquoi le Listbox ne veux pas se coller ?

Re-Bonjour,

Je reviens demander de l'aide avec mon code. En faisant évoluer le fichier, je suis confronté à un probleme, je désirs que le code colle les infos dans la premiere ligne vide et pas en ligne 4 comme dans le code présent.

Private Sub CommandButton1_Click()
Sheets("Taille Pied Hydro").Select

Range("A4:N4").Select
Selection.Insert Shift:=xlDown

Range("D4").Value = TextBox1.Value
Range("E4").Value = TextBox2.Value
Range("F4").Value = TextBox3.Value
Range("G4").Value = TextBox4.Value
Range("H4").Value = TextBox5.Value
Range("I4").Value = TextBox6.Value
Range("J4").Value = TextBox7.Value
Range("K4").Value = ComboBox8.Value
Range("L4").Value = ComboBox9.Value
Range("M4").Value = ComboBox10.Value

If Me.txtDatePrevue.Text <> "" Then
Sheets("Taille Pied Hydro").Range("c4").Value = CDate(Me.txtDatePrevue.Text)
End If
Me.txtDatePrevue = ""
If CheckBox1.Value = True Then
Sheets("Taille Pied Hydro").Range("c4").NumberFormat = "mmm-yy"
End If
cbx1.Value = ""
Unload Me

End Sub

merci d'avance
lanoe

bqtr · 3 Octobre 2008

Re : Pourquoi le Listbox ne veux pas se coller ?

Bonsoir lanoe, Eric

Je te propose de tester ceci :

Code:

Private Sub CommandButton1_Click()

Dim lign As Long
  With Sheets("Taille Pied Hydro")
    lign = .Range("D65536").End(xlUp).Row
      If lign <= 3 Then lign = 3
        .Range("D" & lign + 1).Value = TextBox1.Value
        .Range("E" & lign + 1).Value = TextBox2.Value
        .Range("F" & lign + 1).Value = TextBox3.Value
        .Range("G" & lign + 1).Value = TextBox4.Value
        .Range("H" & lign + 1).Value = TextBox5.Value
        .Range("I" & lign + 1).Value = TextBox6.Value
        .Range("J" & lign + 1).Value = TextBox7.Value
        .Range("K" & lign + 1).Value = ComboBox8.Value
        .Range("L" & lign + 1).Value = ComboBox9.Value
        .Range("M" & lign + 1).Value = ComboBox10.Value
            If Me.txtDatePrevue.Text <> "" Then
               .Range("C" & lign + 1).Value = CDate(Me.txtDatePrevue.Text)
            End If
            Me.txtDatePrevue = ""
            If CheckBox1.Value = True Then
               .Range("C" & lign + 1).NumberFormat = "mmm-yy"
            End If
    cbx1.Value = ""
    Unload Me
  End With

End Sub

J'utilise la colonne D pour déterminer la première ligne vide car elle semble toujours contenir une donnée.

A+

Pourquoi le Listbox ne veux pas se coller ?

lanoe

XLDnaute Occasionnel

Pièces jointes

RENAUDER

Nous a quitté

lanoe

XLDnaute Occasionnel

RENAUDER

Nous a quitté

Pièces jointes

lanoe

XLDnaute Occasionnel

lanoe

XLDnaute Occasionnel

bqtr

XLDnaute Accro

Discussions similaires

Pourquoi le Listbox ne veux pas se coller ?

lanoe

XLDnaute Occasionnel

Pièces jointes

RENAUDER

Nous a quitté

lanoe

XLDnaute Occasionnel

RENAUDER

Nous a quitté

Pièces jointes

lanoe

XLDnaute Occasionnel

lanoe

XLDnaute Occasionnel

bqtr

XLDnaute Accro

Discussions similaires

Privacy & Transparency

Privacy & Transparency