XL 2016 Validation du 0 dans un formulaire

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

  • Effectifs.xlsm
    132 KB · Affichages: 15
Dernière édition:

Etoto

XLDnaute Barbatruc
bonjour,Etoto
pourrait tu m'expliquer ce qu'est une balise?
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.
 

hemardjean

XLDnaute Occasionnel
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
 

Discussions similaires

Réponses
28
Affichages
921

Statistiques des forums

Discussions
311 725
Messages
2 081 941
Membres
101 846
dernier inscrit
Silhabib