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

Problème sur un userform

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion taupivin
  • Date de début Date de début

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
T

taupivin

Guest
Bonjour à tous,

voici mon problème,
Lorsque je ne ne rempli pas une ou plusieurs cases de mon userform et que je valide j'ai bien mon message d'avertissement mais une ligne est crée dans le tableau final. De plus je ne sais pas comment faire pour agrandir mon tableau en fonction du nombre de ligne que je vais insérer.
Si quelqu'un a une idée pour parer à ces deux problèmes...
Vous trouverez le fichier ci-joint.

Merci d'avance.
 

Pièces jointes

Trier par date Trier par votes
Re : Problème sur un userform

Bonjour,

dans un premier temps je changerai l'ordre d'écriture du code:
Code: 
Private Sub CommandButton1_Click()


If rp.Value = "" Then
MsgBox ("Vous devez choisir un responsable pédagogique")
rp.SetFocus
Exit Sub
End If

If ass.Value = "" Then
MsgBox ("Vous devez choisir une assistante")
ass.SetFocus
Exit Sub
End If


If dom.Value = "" Then
MsgBox ("Vous devez choisir un domaine")
dom.SetFocus
Exit Sub
End If

If Intit.Value = "" Then
MsgBox ("Vous devez saisir un intitulé pour la formation")
Intit.SetFocus
Exit Sub
End If

If client.Value = "" Then
MsgBox ("Vous devez saisir un nom de client ")
client.SetFocus
Exit Sub
End If

If TYPEF.Value = "" Then
MsgBox ("Vous devez indiquer de quel type d'action il est question ")
TYPEF.SetFocus
Exit Sub
End If

If REF.Value = "" Then
MsgBox ("Vous devez indiquer s'il s'agit d'une action ARA HT ou ARA Net ")
REF.SetFocus
Exit Sub
End If

num = Sheets("FEUIL1").Range("B65536").End(xlUp).Row + 1
Sheets("Feuil1").Activate
Range("B" & num).Value = datej.Value
Range("A" & num).Value = Month(datej) & "-" & Year(datej) & "-" & num
Range("C" & num).Value = rp.Value
Range("D" & num).Value = ass.Value
Range("E" & num).Value = dom.Value
Range("F" & num).Value = Intit.Value
Range("G" & num).Value = client.Value
Range("h" & num).Value = TYPEF.Value
Range("I" & num).Value = DTPicker1.Value

CHRONO.Hide
reponse = MsgBox("Le numéro chrono de cette proposition est " & Month(datej) & "-" & Year(datej) & "-" & num & Chr(10) & " " & "La proposition est bien enregistrée dans le classeur chrono, la relance peut se faire le " & CDate(datej) + 15, vbYes, "Attribution numéro chrono")

End Sub
ensuite perso je controlerai que tous les champs sont remplis avec un seul messages "veuillez remplir tous les champs" ou liberer un locked sur le bouton valider tant que les champs ne sont pas remplis complètement.
Mais ce n'est que mon point de vue.
A+
 
Vote positif 0 Vote négatif
Re : Problème sur un userform

Bonjour taupivin,

cela vient de cette partie de code qui doit se trouver en fin de procédure et non au début comme tu l'as fait
à mettre donc juste avant CHRONO.Hide
Code: 
num = Sheets("FEUIL1").Range("B65536").End(xlUp).Row + 1
Sheets("Feuil1").Activate
Range("B" & num).Value = datej.Value
Range("A" & num).Value = Month(datej) & "-" & Year(datej) & "-" & num
Range("C" & num).Value = rp.Value
Range("D" & num).Value = ass.Value
Range("E" & num).Value = dom.Value
Range("F" & num).Value = Intit.Value
Range("G" & num).Value = client.Value
Range("h" & num).Value = TYPEF.Value
Range("I" & num).Value = DTPicker1.Value
à+
Philippe

Edit: Bonjour Fhoest .................... même solution 🙂
 
Dernière édition:
Vote positif 0 Vote négatif
Bonjour taupivin et le forum.

Pour ce qui est de la création de la ligne, il faut placer l'action Range après les messages d'erreurs. 🙂

A +

Edit bonjour fhoest et philippe pas rafraîchis 🙂
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Problème sur un userform

Bonjour PHLaurent,Stephan et les autres si il y a entre temps.😱😱
Re,
pour agrandir le tableau automatiquement il suffit d'ajouté la ligne de code suivante à cette endroit:
Code: 
num = Sheets("FEUIL1").Range("B65536").End(xlUp).Row + 1

Sheets("Feuil1").Activate
'ligne a ajouter 
''''''''''''''''''''''''''''''''''''''''''''
Rows(num).Insert
''''''''''''''''''''''''''''''''''''''''''''''
Range("B" & num).Value = datej.Value
A bientôt.
 
Dernière édition:
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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

C
  • Résolu(e)
Microsoft 365 bouton pour un userform
Réponses
14
Affichages
593
C'est Génial
C
D
  • Question Question
Microsoft 365 problème d'index
2
Réponses
19
Affichages
501
dad621
D
  • Résolu(e)
Microsoft 365 Userform Filtres ne fonctionne pas
2 3 4
Réponses
46
Affichages
2 K
jcf6464
D
  • Résolu(e)
XL 2016 Filtrage ListBox d'un userform
Réponses
6
Affichages
260
dgil37
D
A
  • Question Question
Microsoft 365 problème de remplissage de listbox
Réponses
8
Affichages
396
job75
  • Question Question
XL 2019 problème sélection feuille en VBA
Réponses
7
Affichages
503
ARaul
J
  • Question Question
Microsoft 365 affichage userform
Réponses
4
Affichages
523
TooFatBoy
F
  • Question Question
Autres problème de cache de TCD menant à des données partielles
2
Réponses
20
Affichages
690
chris
C
  • Résolu(e)
Microsoft 365 Correction dans un Userform
2
Réponses
27
Affichages
1 K
C'est Génial
C
N
  • Question Question
Microsoft 365 Propagation de formule dans un tableau avec des valeurs existantes (saisies manuellement)
Réponses
4
Affichages
407
NikonvsWild
N
D
  • Résolu(e)
XL 2019 Problème de décimales
Réponses
9
Affichages
364
Danyk01
D
Y
  • Question Question
Power Query Besoin d'aide pour configurer un power query
Réponses
3
Affichages
284
alexga78
A
K
  • Question Question
XL 2016 Modification dans userform et sheet
Réponses
13
Affichages
483
Valtrase
  • Question Question
Microsoft 365 problème de modification de code VBA sur image
Réponses
6
Affichages
303
Yann71
S
  • Résolu(e)
Autres Problème avec sélection d'une cellule puis glisser
Réponses
2
Affichages
255
SPARKLETOF
S
  • Question Question
XL 2019 Copier et coller automatiquement une nouvelle donnée par un bouton, ListView décallée à la sur la page (Multipage) et vibration du Userform
2
Réponses
16
Affichages
980
TooFatBoy
  • Résolu(e)
Microsoft 365 Remplir tableau avec fonction via userform
Réponses
5
Affichages
405
TooFatBoy
S
  • Question Question
XL 2013 Classement automatique score par points et ensuite goal average
2
Réponses
21
Affichages
908
TooFatBoy
M
  • Résolu(e)
Microsoft 365 VBA Bon de commande Combo et Textbox Problème
Réponses
1
Affichages
193
vgendron
Y
  • Question Question
XL 2019 macro pour dupliquer un tableau
Réponses
3
Affichages
562
Yogean
Y
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…