Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Aide pour finir userform

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

MASSJIPE

XLDnaute Impliqué
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
 
Trier par date Trier par votes
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
Code: 
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
 
Vote positif 0 Vote négatif
Re : Aide pour finir userform

Salut MASSJIPE, PIEDEPLOMB33, le Forum

Remplace la ligne de code de Piedeplomb33

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

Code: 
   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
 
Dernière édition:
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
Re : Aide pour finir userform

Bonsoir tous le monde,

Pour ton Userform1 essaye ceci :

Code: 
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+
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
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:

Code: 
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+
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

D
  • Question Question
XL 2021 Filtre Multi Critères Listview VBA
2
Réponses
21
Affichages
3 K
Dranreb
  • Question Question
XL 2016 Aide pour userform (sujet clos)
Réponses
8
Affichages
737
tactic6
M
  • Question Question
Microsoft 365 aide sur macro pour une asso
2
Réponses
23
Affichages
2 K
moupa
M
  • Question Question
Microsoft 365 Création d'un fichier entier par rapport à des entrées via UserForm
Réponses
1
Affichages
790
job75
S
  • Question Question
XL 2019 besoin d aide pour le développement d'un fichier rangements vers les répertoires attitré
Réponses
6
Affichages
707
stef60400
S
L
  • Question Question
Microsoft 365 Macro de recherche
2
Réponses
20
Affichages
3 K
Langrand
L
A
  • Question Question
XL 2021 Automatiser la génération de documents Word à partir d’Excel avec VBA
Réponses
12
Affichages
1 K
ali591
A
D
  • Question Question
Microsoft 365 VBA pour répéter - cacher 2 colonnes consécutives selon la valeur d'une cellule.
Réponses
4
Affichages
616
Didjo
D
N
  • Question Question
XL 2013 userform multipage bouton recherche et modifier
Réponses
0
Affichages
850
nono79
N
D
  • Question Question
XL 2019 Aide à la compréhension d'un code VBA
Réponses
4
Affichages
1 K
Dudu2
L
  • Question Question
XL 2016 Barre de recherche Userform pour modifier formulaire
Réponses
2
Affichages
1 K
Laurent_7
L
R
  • Question Question
Microsoft 365 ListBox / ListView et combobox avec choix de colonnes
2
Réponses
20
Affichages
4 K
RaVenSs
R
E
  • Question Question
Microsoft 365 aide Userform
Réponses
3
Affichages
812
fanch55
K
  • Question Question
Microsoft 365 Formule INDEX/EQUIV avec plusieurs valeurs pour une même en-tête
Réponses
2
Affichages
2 K
KLfy
K
K
  • Question Question
Google Sheets Aide pour l'élaboration d'une macro sous google sheet
Réponses
2
Affichages
1 K
Kiritora
K
F
  • Résolu(e)
Microsoft 365 [RESOLU]Macro VBA + Combobox
Réponses
4
Affichages
1 K
Fofi1
F
L
  • Question Question
XL 2016 Aide pour création fichier suivi interventions
Réponses
8
Affichages
1 K
Lilchucksp
L
D
  • Question Question
XL 2019 Rapprochement entre deux fichiers Excel
Réponses
4
Affichages
2 K
chris
K
  • Question Question
XL 2019 UserForm liste déroulante (cascade) avec ajout de données/modification
2 3
Réponses
38
Affichages
10 K
kinders59
K
T
  • Résolu(e)
Autres Calculs selon 3 critères à alléger S.V.P
Réponses
5
Affichages
1 K
TYTTOU
T
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…