XL 2016 Validation du 0 dans un formulaire

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion hemardjean
  • 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
hemardjean

hemardjean

XLDnaute Occasionnel
Bonjour le forum

Je suis en train de finaliser mon dossier et je bloque.

Dans ma BD les cellules de K3 à Cw58 sont liés avec les cellules de I3 à J58 . Ce que je cherche dans le formulaire c'est supprimé le chiffre qui se trouve dans une cellule pour le remplacer par zéro.

Un exemple : dans mon formulaire je choisis les 1VF dans la Combobox puis je choisis septembre octobre , dans ma TextBox11 je récupère automatiquement le chiffre inscrit dans ma base de données dans celui-ci il s'agit du 13 .

Si je change le chiffre et que je valide celui-ci fonctionne par contre si je mets zéro il ne le prend pas en compte.

Je vous donne les codes que j'ai placés dans le bouton validation ainsi qu'un fichier simplifié au cas ou mon explication serait mal comprise.







je vous remercie d'avance pour votre aide.

Bien cordialement
 

Pièces jointes

Dernière édition:
Trier par date Trier par votes
hemardjean à dit:
bonjour,Etoto
pourrait tu m'expliquer ce qu'est une balise?
Cliquez pour agrandir...
Re,

En gros c'est un compartiment où sont stockés les codes dans les messages, il servent notamment à rendre le code plus lisible.

Exemple d'une balise d'une macro :
VB: 
Public Const PI As Single = 3.14159

Sub CalculPerimetre()

Dim Rayon As Integer, Circonference As Single
Rayon = InputBox("Entrez le rayon en mm", "RAYON", 0)
Circonference = 2 * PI * Rayon
MsgBox "Le perimètre est de " & Circonference & " mm"
End Sub

Pour créer une balise, tu vas sous "Répondre" et en haut de l'aperçu de ton message tu as les paramètres de la police, les émojis et tu as le bouton "Code", tu appuyes dessus, et là une fenêtre s'ouvre, tu sélectionnes VB et tu colles ton code et valides et après tu envoies ton message.
 
Vote positif 0 Vote négatif
merci Etoto de ta réponse cela me permet de progresser. Donc voici le code.je sais il est compliqué mais je ne connais pas les raccourcis, j'essaie de comprendre les codes pour avancer je n'ai aucune formation VBA.



VB: 
Private Sub b_validation_Click()
  If Me.TextBox1 = "" Then
 MsgBox "Saisir un nom"
    Me.TextBox1.SetFocus
   Exit Sub
  End If
 
 


 f.Cells(ligneEnreg, 1) = Application.Proper(Me!TextBox1)
 
   For x = 2 To 98
  
  Cells(2000, 1).Value = f.Cells(ligneEnreg, x).Value
  Cells(2000, 2).Value = Me.Controls("TextBox" & x).Value
 
  Cells(2000, 3).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 4).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 5).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 6).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 7).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 8).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 9).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 10).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 11).Value = Me.Controls("TextBox" & x).Value
 
  Cells(2000, 12).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 13).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 14).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 15).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 16).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 17).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 18).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 19).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 20).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 21).Value = Me.Controls("TextBox" & x).Value
 
 Cells(2000, 22).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 23).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 24).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 25).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 26).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 27).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 28).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 29).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 30).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 31).Value = Me.Controls("TextBox" & x).Value
 
  Cells(2000, 32).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 33).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 34).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 35).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 36).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 37).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 38).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 39).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 40).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 41).Value = Me.Controls("TextBox" & x).Value
 
  Cells(2000, 42).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 43).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 44).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 45).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 46).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 47).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 48).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 49).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 50).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 51).Value = Me.Controls("TextBox" & x).Value
 
  Cells(2000, 52).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 53).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 54).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 55).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 56).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 57).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 58).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 59).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 50).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 51).Value = Me.Controls("TextBox" & x).Value
 
  Cells(2000, 52).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 53).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 54).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 55).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 56).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 57).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 58).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 59).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 60).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 61).Value = Me.Controls("TextBox" & x).Value
 
  Cells(2000, 62).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 63).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 64).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 65).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 66).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 67).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 68).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 69).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 70).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 71).Value = Me.Controls("TextBox" & x).Value
 
  Cells(2000, 72).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 73).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 74).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 75).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 76).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 77).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 78).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 79).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 80).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 81).Value = Me.Controls("TextBox" & x).Value
 
  Cells(2000, 82).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 83).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 84).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 85).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 86).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 87).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 88).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 89).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 90).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 91).Value = Me.Controls("TextBox" & x).Value
 
  Cells(2000, 92).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 93).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 94).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 95).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 96).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 97).Value = Me.Controls("TextBox" & x).Value
  Cells(2000, 98).Value = Me.Controls("TextBox" & x).Value
 
 
 
 
 
 
  'If Cells(2000, 1).Value <> Cells(2000, 2).Value <> Cells(2000, 3).Value <> Cells(2000, 4).Value <> Cells(2000, 3).Value <> Cells(2000, 2).Value <> Cells(2000, 3).Value <> Cells(2000, 2).Value <> Cells(2000, 3).Value <> Cells(2000, 4).Value <> Cells(2000, 5) <> Cells(2000, 5).Value <> Cells(2000, 6).Value <> Cells(2000, 7).Value <> Cells(2000, 8) <> Cells(2000, 9).Value <> Cells(2000, 10).Value <> Cells(2000, 11).Value <> Cells(2000, 12) <> Cells(2000, 13).Value <> Cells(2000, 14).Value <> Cells(2000, 15).Value <> Cells(2000, 16) <> Cells(2000, 17).Value <> Cells(2000, 18).Value <> Cells(2000, 19).Value <> Cells(2000, 20) <> Cells(2000, 21).Value <> Cells(2000, 22).Value <> Cells(2000, 23).Value <> Cells(2000, 24) <> Cells(2000, 25).Value <> Cells(2000, 26).Value <> Cells(2000, 27).Value <> Cells(2000, 28).Value Then

 If Cells(2000, 1).Value <> Cells(2000, 2).Value <> Cells(2000, 3).Value <> Cells(2000, 4).Value <> Cells(2000, 5).Value <> Cells(2000, 6).Value <> Cells(2000, 7).Value <> Cells(2000, 8) <> Cells(2000, 9).Value <> Cells(2000, 10).Value Then
 If Cells(2000, 11).Value <> Cells(2000, 12).Value <> Cells(2000, 13).Value <> Cells(2000, 14).Value <> Cells(2000, 15).Value <> Cells(2000, 16).Value <> Cells(2000, 17).Value <> Cells(2000, 18).Value <> Cells(2000, 19).Value <> Cells(2000, 20).Value Then
 If Cells(2000, 21).Value <> Cells(2000, 22).Value <> Cells(2000, 23).Value <> Cells(2000, 24).Value <> Cells(2000, 25).Value <> Cells(2000, 26).Value <> Cells(2000, 27).Value <> Cells(2000, 28).Value <> Cells(2000, 29).Value <> Cells(2000, 30).Value Then
  If Cells(2000, 31).Value <> Cells(2000, 32).Value <> Cells(2000, 33).Value <> Cells(2000, 34).Value <> Cells(2000, 35).Value <> Cells(2000, 36).Value <> Cells(2000, 37).Value <> Cells(2000, 38).Value <> Cells(2000, 39).Value <> Cells(2000, 40).Value Then
  If Cells(2000, 41).Value <> Cells(2000, 42).Value <> Cells(2000, 43).Value <> Cells(2000, 44).Value <> Cells(2000, 45).Value <> Cells(2000, 46).Value <> Cells(2000, 47).Value <> Cells(2000, 48).Value <> Cells(2000, 49).Value <> Cells(2000, 50).Value Then
 If Cells(2000, 51).Value <> Cells(2000, 52).Value <> Cells(2000, 53).Value <> Cells(2000, 54).Value <> Cells(2000, 55).Value <> Cells(2000, 56).Value <> Cells(2000, 57).Value <> Cells(2000, 58).Value <> Cells(2000, 59).Value <> Cells(2000, 60).Value Then
  If Cells(2000, 61).Value <> Cells(2000, 62).Value <> Cells(2000, 63).Value <> Cells(2000, 64).Value <> Cells(2000, 65).Value <> Cells(2000, 66).Value <> Cells(2000, 67).Value <> Cells(2000, 68).Value <> Cells(2000, 69).Value <> Cells(2000, 70).Value Then
  If Cells(2000, 71).Value <> Cells(2000, 72).Value <> Cells(2000, 73).Value <> Cells(2000, 74).Value <> Cells(2000, 75).Value <> Cells(2000, 76).Value <> Cells(2000, 77).Value <> Cells(2000, 78).Value <> Cells(2000, 79).Value <> Cells(2000, 80).Value Then
 If Cells(2000, 81).Value <> Cells(2000, 82).Value <> Cells(2000, 83).Value <> Cells(2000, 84).Value <> Cells(2000, 85).Value <> Cells(2000, 86).Value <> Cells(2000, 87).Value <> Cells(2000, 88).Value <> Cells(2000, 89).Value <> Cells(2000, 90).Value Then
 If Cells(2000, 91).Value <> Cells(2000, 92).Value <> Cells(2000, 93).Value <> Cells(2000, 94).Value <> Cells(2000, 95).Value <> Cells(2000, 96).Value <> Cells(2000, 97).Value <> Cells(2000, 98).Value Then
 
 
 
 
 
 
 
 
 
 
 
 
   f.Cells(ligneEnreg, x) = Me.Controls("TextBox" & x).Value
  
   End If
   End If
   End If
   End If
   End If
   End If
   End If
   End If
   End If
   End If
  
Next x
  
 
 
Cells(2000, 1).Value = ""
Cells(2000, 2).Value = ""
 Cells(2000, 3).Value = ""
Cells(2000, 4).Value = ""
Cells(2000, 5).Value = ""
Cells(2000, 6).Value = ""
Cells(2000, 7).Value = ""
Cells(2000, 8).Value = ""
Cells(2000, 9).Value = ""
Cells(2000, 10).Value = ""
Cells(2000, 11).Value = ""
Cells(2000, 12).Value = ""
Cells(2000, 13).Value = ""
Cells(2000, 14).Value = ""
Cells(2000, 15).Value = ""
Cells(2000, 16).Value = ""
Cells(2000, 17).Value = ""
Cells(2000, 18).Value = ""
Cells(2000, 19).Value = ""
Cells(2000, 20).Value = ""
Cells(2000, 21).Value = ""
Cells(2000, 22).Value = ""
Cells(2000, 23).Value = ""
Cells(2000, 24).Value = ""
Cells(2000, 25).Value = ""
Cells(2000, 26).Value = ""
Cells(2000, 27).Value = ""
Cells(2000, 28).Value = ""

Cells(2000, 29).Value = ""
Cells(2000, 30).Value = ""
Cells(2000, 31).Value = ""
Cells(2000, 32).Value = ""
Cells(2000, 33).Value = ""
Cells(2000, 34).Value = ""
Cells(2000, 35).Value = ""
Cells(2000, 36).Value = ""
Cells(2000, 37).Value = ""
Cells(2000, 38).Value = ""
Cells(2000, 39).Value = ""
Cells(2000, 40).Value = ""
Cells(2000, 41).Value = ""
Cells(2000, 42).Value = ""
Cells(2000, 43).Value = ""
Cells(2000, 44).Value = ""
Cells(2000, 45).Value = ""
Cells(2000, 46).Value = ""
Cells(2000, 47).Value = ""
Cells(2000, 48).Value = ""

Cells(2000, 49).Value = ""
Cells(2000, 50).Value = ""
Cells(2000, 51).Value = ""
Cells(2000, 52).Value = ""
Cells(2000, 53).Value = ""
Cells(2000, 54).Value = ""
Cells(2000, 55).Value = ""
Cells(2000, 56).Value = ""
Cells(2000, 57).Value = ""
Cells(2000, 58).Value = ""
Cells(2000, 59).Value = ""
Cells(2000, 60).Value = ""
Cells(2000, 61).Value = ""
Cells(2000, 62).Value = ""
Cells(2000, 63).Value = ""
Cells(2000, 64).Value = ""
Cells(2000, 65).Value = ""
Cells(2000, 66).Value = ""
Cells(2000, 67).Value = ""
Cells(2000, 68).Value = ""

Cells(2000, 69).Value = ""
Cells(2000, 70).Value = ""
Cells(2000, 71).Value = ""
Cells(2000, 72).Value = ""
Cells(2000, 73).Value = ""
Cells(2000, 74).Value = ""
Cells(2000, 75).Value = ""
Cells(2000, 76).Value = ""
Cells(2000, 77).Value = ""
Cells(2000, 78).Value = ""
Cells(2000, 79).Value = ""
Cells(2000, 80).Value = ""
Cells(2000, 81).Value = ""
Cells(2000, 82).Value = ""
Cells(2000, 83).Value = ""
Cells(2000, 84).Value = ""
Cells(2000, 85).Value = ""
Cells(2000, 86).Value = ""
Cells(2000, 87).Value = ""
Cells(2000, 88).Value = ""

Cells(2000, 89).Value = ""
Cells(2000, 90).Value = ""
Cells(2000, 91).Value = ""
Cells(2000, 92).Value = ""
Cells(2000, 93).Value = ""
Cells(2000, 94).Value = ""
Cells(2000, 95).Value = ""
Cells(2000, 96).Value = ""
Cells(2000, 97).Value = ""
Cells(2000, 98).Value = ""

  
 
  
  
  
   UserForm_Initialize
End Sub
 
Vote positif 0 Vote négatif
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

lestoiles1
  • Question Question
Access Formulaire pour une recherche et validation de donnée
Réponses
1
Affichages
98
Valtrase
Valtrase
C
  • Question Question
XL 2021 Cellules qui ne s'effacent pas sur formulaire et renvoi de valeurs du formulaire
Réponses
1
Affichages
494
gbinforme
G
Electron24
  • Résolu(e)
Microsoft 365 Boucle FOR
Réponses
7
Affichages
363
TooFatBoy
TooFatBoy
T
  • Question Question
XL 2016 Evolution budgétaire ( + ou - ) depuis un TCD
Réponses
4
Affichages
316
tuti
T
H
  • Question Question
XL 2016 Données dans un feuille à partir d'un formulaire
Réponses
6
Affichages
638
TooFatBoy
TooFatBoy
R
  • Question Question
XL pour MAC Ne pas afficher valeurs nulles dans un graphique
Réponses
5
Affichages
164
rtlv17
R
B
  • Question Question
XL 2019 Conserver les formules qui sont enregistrées dans des cellules
Réponses
8
Affichages
276
Phil69970
Phil69970
jeff1494
  • Question Question
XL 2021 Saisie de lignes multiples dans un formulaire
2
Réponses
15
Affichages
886
jeff1494
jeff1494
CISCO
  • Résolu(e)
Autres Collage spécial. Ajout d'une courbe sur un graphique existant.
Réponses
7
Affichages
126
CISCO
CISCO
B
  • Résolu(e)
Microsoft 365 Problème dans formule VBA
Réponses
7
Affichages
356
BOILEAU
B
B
  • Résolu(e)
XL 2021 Impossible d'annuler une modification dans un fichier
Réponses
5
Affichages
140
BJ1
B
R
  • Résolu(e)
XL 2010 vba excel : recherche concordance chaine texte dans cellule et données stockées dans un tablo (array)
Réponses
4
Affichages
177
Raynaud.JF
R
jeff1494
  • Question Question
XL 2021 Comment supprimer des noms du gestionnaire de noms dans un classeur
Réponses
7
Affichages
537
jeff1494
jeff1494
O
  • Question Question
XL 2021 finaliser un script VBA pour répartir une liste de personnes dans des villes.
2
Réponses
19
Affichages
468
gbinforme
G
S
  • Résolu(e)
XL 2019 Figer une date si validation OK
Réponses
6
Affichages
706
sum01
S
M
  • Question Question
Microsoft 365 Calcul du nombre de chiffres dans une cellule. Mise en page d'un fichier.
Réponses
2
Affichages
428
MCOTTEND
M
Q
  • Question Question
Microsoft 365 Créer un formulaire pour duplication d'onglet avec tableau
Réponses
6
Affichages
579
job75
job75
kkamadou
  • Question Question
importation de donnees dans un fichier excel dans un formulaire
Réponses
3
Affichages
518
kkamadou
kkamadou
J
  • Question Question
XL 2019 Nommer exportation
Réponses
7
Affichages
1 K
JacquesO
J
A
  • Question Question
XL 2010 Forcer le focus a rester dans un Textbox apres validation
Réponses
11
Affichages
855
aurelio.ewane
A
Retour