Problemes Combobox et CheckBox

Re : Problemes Combobox et CheckBox

Case 11
If CheckBox1 = True Then
Sheets(feuille1).Cells(x, 3).Font.ColorIndex = 3
End If

Sheets(feuille1).Cells(x, 3).Value = CDate(Controls("Combobox" & I))
Controls("Combobox" & I) = ""
End Select

Re : Problemes Combobox et CheckBox

Re,

Grand merci, en plus j'ai un peu plus compris le fonctionnement.

lanoe

Re : Problemes Combobox et CheckBox

Re,

En testant mon code je me suis rendu compte d'un probleme:si la case 11 est vide cela créer une erreur d'excution 13.

Private Sub CommandButton1_Click()
Sheets("Taille Pied Hydro").Select
Selection.AutoFilter Field:=1
Selection.AutoFilter Field:=2

If CommandButton1.Caption = " Création" Then
x = Sheets(feuille1).Range("d65536").End(xlUp).Row + 1
For I = 1 To 12
Select Case I
Case 1 To 7
Sheets(feuille1).Cells(x, I + 3) = Controls("Textbox" & I)
Controls("Textbox" & I) = ""
Case 8 To 10
Sheets(feuille1).Cells(x, I + 3).Value = Controls("Combobox" & I).Text
Controls("Combobox" & I) = ""
Case 11
If CheckBox1 = True Then

Sheets(feuille1).Cells(x, 3).NumberFormat = "mmmm-yy"
End If

Sheets(feuille1).Cells(x, 3).Value = CDate(Controls("Combobox" & I))
Controls("Combobox" & I) = ""
End Select

Next I
End If

cbx1.Value = ""
UserForm_Initialize
Unload Me

End Sub

si des compétences comprennent, moi je bloque.

Lanoe

Re : Problemes Combobox et CheckBox

bonjour

voici ton programme rectifié mais il reste encore un bug lors de l'effacement d'une ligne.
à plus

Re : Problemes Combobox et CheckBox

Bonsoir le Pierre, lanoe,

pour le bug à la suppression de la ligne, ajoute cette condition en début de code:

Re : Problemes Combobox et CheckBox

Bonjour,

Et d'abord merci pour l'aide que vous m'avez apporté.

Aprés deux jours d'arrêt je reprends sur le projet...

En le faisant évolué j'ai ajouté un calendrier à mon Userform. Et j'ai remplacé le Combobox "Date prévu" par un listbox.

Et la mystère... je n'arrive pas à corriger le code, il m'indique une erreur.

Cela me semblais simple remplacer: Combobox par Listbox, ici...

Case 11
If Controls("ListBox" & I).Text <> "" Then
Sheets(feuille1).Cells(x, 3).Value = CDate(Controls("ListBox" & I).Text)
End If
Controls("ListBox" & I) = ""
End Select
Next I
End If

Mais cela ne fonctionne pas

Objectif: le listbox 1 doit venir se "coller" en colonne C en conservant le format "CDate"

Je fais peut-être une erreur en essayant d'installer un listbox, si il existe d'autres solutions...

Voir pièce jointe.


Lanoe