Aide pour finir userform

[MASSJIPE]

Bonjour à tous
Besoin d'aide pour finir userform (modif)
Le premier userform est Ok
mais c'est pour faire une recherche dans la feuille (DEQ) et faire deux modifications sachant qui l y a plusieurs de N° de quantiéme
et apporter selon vous la meilleure façon de faire
D'avance merci
Cijoint.fr - Service gratuit de dépôt de fichiers

 

[MASSJIPE]

Re : Aide pour finir userform

Bonjour
Il y a personne qui peut m'aider
merci

 

[PIEDEPLOMB33]

Re : Aide pour finir userform

Bonjour

J'avoue ne pas voir très bien saisi le sens de ta demande.
Voici ton fichier avec ce que j'ai compris.
Dis nous en plus si beoin
@+

 

[MASSJIPE]

Re : Aide pour finir userform

Bonjour
Oui c'est ça exatement mais je voudrai que la date ce met automatiquement dans userform (modif) date retour
merci

 

[PIEDEPLOMB33]

Re : Aide pour finir userform

essaie çà, adapte au besoin.
Sinon développe ta demande S.T.P

 

[MASSJIPE]

Re : Aide pour finir userform

Un dernier renseignement pour ne pas avoir l'heure

 

[PIEDEPLOMB33]

Re : Aide pour finir userform

Peut être que je ne suis pas bien réveillé, mais je ne pas pas où il y a une heure.

 

[MASSJIPE]

Re : Aide pour finir userform

Cijoint.fr - Service gratuit de dépôt de fichiers
voir avec fichier

 

[kjin]

Re : Aide pour finir userform

Bonjour,
Pas très claire ton histoire !
Il y a la formule
=Maintenant() dans la colonne E
Si tu veux juste la date
=Aujourdhui() suffit
Dans le code
= Now posera le même pb

Private Sub UserForm_Initialize()
TextBox2.Value = Date + 1 
'...

Inutile de rappeler le nom du formulaire à chaque fois, tu es déjà dans le module de ce formulaire !
En outre, ta liste renvoie des doublons (347), comment savoir quelle ligne doit-être modifiée.Ne serait-ce pas plus logique d'y associer les numéros de la colonne A
A+
kjin

 

[Dull]

Re : Aide pour finir userform

Salut MASSJIPE, PIEDEPLOMB33, le Forum

Remplace la ligne de code de Piedeplomb33

   Sheets("DEQ").Range("E" & MODIF.ComboBox1.ListIndex + 5).Value =TextBox2.Text

par

   Sheets("DEQ").Range("E" & MODIF.ComboBox1.ListIndex + 5).Value = Format(TextBox2, "dd/mm/yy")

EDITION: Salut kjin 🙂 Heu...estjusteréponduàlaquestion 😱 mais moi aussi je me suis posé la question du Maintenant() 😛

Bonne Journée

 

[PIEDEPLOMB33]

Re : Aide pour finir userform

Ci-joint ficher selon ta demande

 

[MASSJIPE]

Re : Aide pour finir userform

Bonsoir
J'ai voulu ajouter un calendrier avec DTPicker dans un 2° userform mais je bloque au niveau du code
a)le calendrier et figé à mars 2005
b) le N° et commentaire ne fonctionne plus😡
Cijoint.fr - Service gratuit de dépôt de fichiers
merci

 

[bqtr]

Re : Aide pour finir userform

Bonsoir tous le monde,

Pour ton Userform1 essaye ceci :

Private Sub UserForm_Initialize()

Dim DerLigne As Long
DerLigne = Range("A5").End(xlDown).Row
ComboBox1.RowSource = "A5:A" & DerLigne
DTPicker1.Value = Date

End Sub

Dans la procédure d'initialisation d'un Userform il ne faut pas mettre son nom. Tu avais "Private Sub UserForm1_Initialize()". Le 1 est de trop.
De même tu avais mis l'instruction pour avoir la date du jour dans la procédure "Private Sub UserForm1_Click()" donc à l'ouverture du userform1 le DTPicker1 ne pouvait pas se mettre à la date du jour.

A+

 

[MASSJIPE]

Re : Aide pour finir userform

Bonjour
Je n'arrive pas a modifier la date de retour en colonne E je sais pas quoi modifié
quant le selectionne le N° de ligne dans la case commentaire il met la date de la cellule en question pour la case commentaire l'écriture va bien dans la cellule affectée
Option Explicit

Private Sub CommandButton1_Click()
Unload Me
End Sub

Private Sub UserForm1_Click()
DTPicker1.Value = Now
End Sub


Private Sub ComboBox1_Change()
TextBox2.Value = Sheets("DEQ").Range("E" & UserForm1.ComboBox1.ListIndex + 5)
End Sub
Private Sub UserForm_Initialize()

Dim DerLigne As Long
DerLigne = Range("A5").End(xlDown).Row
ComboBox1.RowSource = "A5:A" & DerLigne
DTPicker1.Value = Date

End Sub

Private Sub VALIDER_Click()
' Sheets("DEQ").Range("E4").Value = DTPicker1.Value = Date
' Sheets("DEQ").Range("P4").Value = Me.TextBox2.Text
Sheets("DEQ").Range("E" & UserForm1.DTPicker1.Value).Value = DTPicker1.Value = Date
Sheets("DEQ").Range("P" & UserForm1.ComboBox1.ListIndex + 5).Value = Me.TextBox2.Text
Unload Me

End Sub
merci

 

[bqtr]

Re : Aide pour finir userform

Bonjour,

Si je me fie à tes codes essaye comme ca:

Supprime tout tes codes de ton userform1 et remplace les par ceux-ci:

Option Explicit

Private Sub CommandButton1_Click()
Unload Me
End Sub

Private Sub ComboBox1_Change()
TextBox2.Value = Sheets("DEQ").Range("E" & UserForm1.ComboBox1.ListIndex + 5)
End Sub

Private Sub UserForm_Initialize()

Dim DerLigne As Long
DerLigne = Range("A5").End(xlDown).Row
ComboBox1.RowSource = "A5:A" & DerLigne
DTPicker1.Value = Date

End Sub

Private Sub VALIDER_Click()

Sheets("DEQ").Range("P" & UserForm1.ComboBox1.ListIndex + 5).Value = Me.TextBox2.Text
Sheets("DEQ").Range("E" & UserForm1.ComboBox1.ListIndex + 5).Value = CDate(Format(DTPicker1, "dd/mm/yy"))
Unload Me

End Sub

A+