Useform et DTpicker

gosselien

XLDnaute Barbatruc

• 14 Février 2015

• #2

Re : Useform et DTpicker

Bonjour,

sans un fichier exemple, difficile de t'orienter 🙂

P.

 

Vote positif 0 Vote négatif

T

titi52

Guest

• 14 Février 2015

• #3

Re : Useform et DTpicker

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

Merci à vous

 

Pièces jointes

• Classeur1.xlsm

  21.9 KB · Affichages: 43
• Classeur1.xlsm

  21.9 KB · Affichages: 55
• Classeur1.xlsm

  21.9 KB · Affichages: 58

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 14 Février 2015

• #4

Re : Useform et DTpicker

Bonjour à tous,

Peux-tu essayer ceci :

VB:

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

 

Dernière édition: 14 Février 2015

Vote positif 0 Vote négatif

T

titi52

Guest

• 14 Février 2015

• #5

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

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 14 Février 2015

• #6

Re : Useform et DTpicker

Bonjour à tous,

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

VB:

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

 

Dernière édition: 14 Février 2015

Vote positif 0 Vote négatif

T

titi52

Guest

• 14 Février 2015

• #7

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

 

Vote positif 0 Vote négatif

T

titi52

Guest

• 15 Février 2015

• #8

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

 

Vote positif 0 Vote négatif

T

titi52

Guest

• 15 Février 2015

• #9

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)

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 15 Février 2015

• #10

Re : Useform et DTpicker

Bonjour,

Peux-tu essayer :

Code:

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

A+ à tous

 

Vote positif 0 Vote négatif

T

titi52

Guest

• 15 Février 2015

• #11

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

 

Vote positif 0 Vote négatif

T

titi52

Guest

• 15 Février 2015

• #12

Re : Useform et DTpicker

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

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 15 Février 2015

• #13

Re : Useform et DTpicker

Bonjour à tous,

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

A+ à tous

 

Vote positif 0 Vote négatif

T

titi52

Guest

• 15 Février 2015

• #14

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

 

Pièces jointes

• Classeur1.xlsm

  23.8 KB · Affichages: 34
• Classeur1.xlsm

  23.8 KB · Affichages: 42
• Classeur1.xlsm

  23.8 KB · Affichages: 41

Vote positif 0 Vote négatif

T

titi52

Guest

• 15 Février 2015

• #15

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

 

Vote positif 0 Vote négatif