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

Probleme else if cellule vide

  • Initiateur de la discussion Initiateur de la discussion gustwo
  • 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 !

G

gustwo

Guest
Bonjour à tous,

Je suis actuellement entrain de faire un petit programme pour la gestion de portefeuille cependant j ai deux petits soucis:

1/Lorsque je remplis mon formulaire et qu'un textbox est vide, j ai bien mon message d'erreur, je dois donc taper quelque chose dans le textbox pour que mon formulaire fonctionne cependant si je valide une fois avec une case vide cela me crée un décalage dans mon tableau de destination.

2/Si mon textbox est vide, un message d'erreur apparait et doit normalement me renvoyait au formulaire cependant la fonction marche uniquement pour le premier textbox. Si je laisse le deuxieme, troisieme ou quatrieme textbox, le message d'erreur apparait mais la macro continue et se ferme.

Pouvez vous m'aider ?

Merci d avance
 

Pièces jointes

Re : Probleme else if cellule vide

bonjour gustwo 🙂
une approche simple
avec des textboxs non renommees bien plus simple... enfin!!!

Code:
Private Sub CbOk_Click()
Dim j As Control, x As Long
x = Cells(Rows.Count, 2).End(xlUp).Row + 1
For Each j In Controls
If TypeName(j) = "TextBox" Then
If j = "" Then MsgBox j.Name & "    vide": Exit Sub
End If
Next
Cells(x, 2) = TBoxNomActions.Value
Cells(x, 3) = TBoxSecteur.Value
Cells(x, 4) = TBoxPays.Value
Cells(x, 5) = TBoxBourse.Value
[b5:e65000].Sort Key1:=Range("b5"), Order1:=xlAscending, Header:=xlGuess
End Sub
 
- 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

Réponses
4
Affichages
892
D
Réponses
9
Affichages
2 K
D
C
Réponses
6
Affichages
1 K
charette36
C
D
Réponses
49
Affichages
9 K
D
M
Réponses
3
Affichages
984
H
Réponses
3
Affichages
1 K
HugoB99
H
S
Réponses
5
Affichages
1 K
N
Réponses
23
Affichages
5 K
C
Réponses
12
Affichages
2 K
C
5
Réponses
0
Affichages
957
5
T
Réponses
3
Affichages
685
Trajic
T
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…