Useform et DTpicker

[titi52]

Bonjour, Je sais un petit peu manipuler les macros mais beaucoup de lacune pouvez vous m'aider?

dans un userform j'ai un combobox et un dtpicker je voudrais que la date s'affiche dans mon tableau que si le combobox est rempli comment faire?

Cordialement
titi52

 

[gosselien]

Re : Useform et DTpicker

Bonjour,

sans un fichier exemple, difficile de t'orienter 🙂

P.

 

[titi52]

Re : Useform et DTpicker

Merci à toi d'avoir répondu je joint un fichier simplifier

Merci à vous

 

[JCGL]

Re : Useform et DTpicker

Bonjour à tous,

Peux-tu essayer ceci :

Private Sub CommandButton1_Click()
    Dim Lastline&
    Lastline = Range("A65536").End(xlUp).Row + 1
    If Me.ComboBox1 = "" Or Me.ComboBox2 = "" Then
        MsgBox "Vous n'avez pas renseigné le Lieu  ou le n° d'Incident"
        Unload Me
        Exit Sub
    End If
    With Sheets("Feuil1")
        .Range("A" & Lastline) = ComboBox1
        .Range("B" & Lastline) = ComboBox2
        .Range("C" & Lastline) = Format(DTPicker1, "mm/dd/yyyy")
        .Range("D" & Lastline) = TextBox1
        .Range("E" & Lastline) = Format(DTPicker2, "mm/dd/yyyy")
    End With
    Unload Me
End Sub

A+ à tous

 

[titi52]

Re : Useform et DTpicker

Oui jai bien compris votre code JCGL mais ce nest pas ce que je veux je ne veux pas fermer mon userform si lun ou lautre nest pas rempli je connais ce procede

Ce que je souhaite c quand meme renseigner mon numero d incident mais ne pas afficher les date provenant du dtpicker1 et 2 si le lieu d incident nest pas renseigner dans le combobox2 pour essayer dexpliquer litteralement cest :

Si le combobox2 nest pas renseigner alors il ne faut pas afficher les dates du dtpicker 1 et 2 dans le tableau mais quand meme affiche le numero dincident

 

[JCGL]

Re : Useform et DTpicker

Bonjour à tous,

Si tu connais le procédé, il te sera facile de modifier ton code.

Private Sub CommandButton1_Click()
    Dim DerL&
    DerL = Range("A65536").End(xlUp).Row + 1
    'If Me.ComboBox1 = "" Or Me.ComboBox2 = "" Then
    '    MsgBox "Vous n'avez pas renseigné le Lieu  ou le n° d'Incident", vbCritical, "Oups..."
    '    Unload Me
    '    Exit Sub
    'End If
    With Sheets("Feuil1")
        .Range("A" & DerL) = ComboBox1
        .Range("B" & DerL) = ComboBox2
        .Range("C" & DerL) = IIf(ComboBox2 = "", "", Format(DTPicker1, "mm/dd/yyyy"))
        .Range("D" & DerL) = TextBox1
        .Range("E" & DerL) = IIf(ComboBox2 = "", "", Format(DTPicker2, "mm/dd/yyyy"))
    End With
    Unload Me
End Sub

A+ à tous

 

[titi52]

Re : Useform et DTpicker

Merci je ne connaissais pas du tout ce que tu ma donner comme code en dernier je vais tenter demain matin ta manipulation et je te dirais si jai reussi
Mais davance merci

Vous etes tous formidable sur ce forum

 

[titi52]

Re : Useform et DTpicker

J'ai adapter cela fonction tres bien merci du coup de main c super je ne connaissais pas cette manip ca fonction tres bien
Cela ma permis de voir aussi mon erreur ssur les dtpicker je ne remplissais pas la dernière ligne vide mais la dernière cellule jai corriger ce tire
Merci JCGL pour tes conseils

 

[titi52]

Re : Useform et DTpicker

un autre probleme survient a l'inverse
j'ai un listviewer je clic sur la ligne a modifier et cela me remonte les info dans le userform
mais du coup comme jai pas les infos au debut sur les dates quand je remontes les valeur il me dit erreur sur ce code
DTPicker2.Value = ListView1.SelectedItem.SubItems(8)

 

[JCGL]

Re : Useform et DTpicker

Bonjour,

Peux-tu essayer :

DTPicker2.Value = IIF(DTPicker2="","",ListView1.SelectedItem.SubItems(8))

A+ à tous

 

[titi52]

Re : Useform et DTpicker

Non cela ne fonctionne pas et si je met la Text a la place de value il ne l'accepte pas non plus

 

[titi52]

Re : Useform et DTpicker

Tu veux que j'essaie de le faire sur le petit fichier exemple pour que tu voie l'erreur?

 

[JCGL]

Re : Useform et DTpicker

Bonjour à tous,

Effectivement il est toujours préférable d'avoir un support pour une tentative d'aide.

A+ à tous

 

[titi52]

Re : Useform et DTpicker

Quand tu clic sur le numero ou il y a pas les date bug
justement c de pouvoir modifier ces info quand je les ai

Merci beaucoup pour ton aide n'hésite pas a mettre des explication avec je suis demandeur pour comprendre les manips

 

[titi52]

Re : Useform et DTpicker

Bonsoir j'ai trouver la solution cherchant et en ecrivant litteralement ce que je voulais j'ai retranscrit et cela donne cela
Ca fonctionne est ce qu'il y a une autre façon de l'ecrire peut etre je ne sais pas
If "" = ListView1.SelectedItem.SubItems(3) Then
DTPicker2 = Now
Else
DTPicker2.Value = ListView1.SelectedItem.SubItems(3)

Encore merci
End If