XL 2016 Validation du 0 dans un formulaire

hemardjean · 11 Juin 2021

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

Etoto · 11 Juin 2021

Bonjour,

Ton code, tu dois le mettre dans une balise, parce que là personne va te répondre ton code est illisible.

Bonne journée

hemardjean · 11 Juin 2021

bonjour,Etoto
pourrait tu m'expliquer ce qu'est une balise?

Etoto · 11 Juin 2021

hemardjean à dit:
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 · 11 Juin 2021

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

Etoto · 11 Juin 2021

Re,

Super désormais vu que ton code est dans une balise tu peux supprimer ton code de ton premier post comme ça cela prendra moins de place.

hemardjean · 11 Juin 2021

Re,
excuse mon ignorance je vais encore solliciter ta bienveillance pour savoir comment l'on fait pour supprimer le texte du message

Etoto · 11 Juin 2021

hemardjean à dit:
Re,
excuse mon ignorance je vais encore solliciter ta bienveillance pour savoir comment l'on fait pour supprimer le texte du message

Re,

Tu vas sur ton message tu vas sous "Modifier" et tu supprimes ton code du message.

Etoto · 11 Juin 2021

Re,

Super y'a plus rien, maintenant j'espère que quelqu'un va te venir en aide parce que en VBA je ne peux pas t'aider.

XL 2016 Validation du 0 dans un formulaire

hemardjean

XLDnaute Occasionnel

Pièces jointes

Etoto

XLDnaute Barbatruc

hemardjean

XLDnaute Occasionnel

Etoto

XLDnaute Barbatruc

hemardjean

XLDnaute Occasionnel

Etoto

XLDnaute Barbatruc

hemardjean

XLDnaute Occasionnel

Etoto

XLDnaute Barbatruc

Etoto

XLDnaute Barbatruc

Discussions similaires