Problemes Combobox et CheckBox

[lanoe]

Bonjour,

A force de recherche sur le forum je suis arrivé au petit programme suivant, je bloque sur deux éléments :

1) Le combobox 11 ("date prévu") se « colle » actuellement en colonne N, je souhaites qu’il arrive en colonne C
2) De plus si le CheckBox est coché je désir que la date de la colonne C apparaisse en rouge.

Merci d’avance

Lanoe

 

[sousou]

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

 

[lanoe]

Re : Problemes Combobox et CheckBox

Re,

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

lanoe

 

[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

 

[Le Pierre]

Re : Problemes Combobox et CheckBox

bonjour

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

 

[skoobi]

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:

Private Sub Worksheet_Change(ByVal Target As Range)
[COLOR=Blue][B]    If Target.Count <> 1 Then Exit Sub[/B][/COLOR]
    'Si la cellule n'est pas dans la plage concernée on sort
    If Intersect(Target, Range("A4:A6000")) Is Nothing Then Exit Sub
    'Si la cellule n'est pas vide
    If Target.Text <> vbNullString Then
        'La cellule de droite= jour+1
        Target.Offset(, 1) = Date + 1
    Else
        'Sinon on efface cellule de droite
        Target.Offset(, 1).ClearContents
    End If
End Sub

 

[lanoe]

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