Discussion :

[eliot.raymond]

Bonjour a tous, forum bonjour,

Je cherche un code VBA pour faire a mon boulot sur Excel 2007 une Feuil1 de commande de filtre pour piscine et de chaudière.

Les colonnes A à G sont pour les informations, Réf, taille etc, etc, concernants les filtres.

La colonne (H2:H90) pour entrer et contrôler la quantité à commander.

Donc je souhaiterai en VBA tester les entrées qui seront faites dans cette colonne (H).

Alors ne laisser entrer UNIQUEMENT que les chiffres de 1 à 99 et rien d’autres.

•Aucun zéro devant le chiffre 01 non on efface et on retourne en colonne (H)

•Un ou deux zéros 0 ou 00 non on efface on retourne en colonne (H)

•Un ou deux chiffres autorisés si 3 chiffres on efface on retourne en colonne (H)

•Valider par ENTER par erreur donc cellule vide on retourne en colonne (H)

•Tout autres caractères Tels qu’ils soient on efface on retourne en colonne (H)

Ceci est strict, car une erreur faisant passer une commande pour 100 filtres par Exemple alors qu’il en faudrait que deux, boss va pas être content.

Merci pour votre aide une bonne journée a tous et bon W-end.

Cdlt Raymondo

[eliot.raymond]

Salut a tous

il me reste plus qu'a effectuer en VBA le contrôle des entrées et ensuite c'est bon et je cale la dessus.

Merci de votre aide.
Cdlt Ray

[EricDgn]

Bonjour,

Avant de faire cela en VBA, n'est-il pas possible d'utiliser la fonction "Validation des données" (onglet "Données" du ruban)?

Cordialement.

[Patrice740]

Bonjour,

il me reste plus qu'a effectuer en VBA le contrôle des entrées et ensuite c'est bon et je cale la dessus.

Avant de faire cela en VBA, n'est-il pas possible d'utiliser la fonction "Validation des données" (onglet "Données" du ruban)?

@Eric : Pour je ne sais pas quelle obscure raison, il tiens absolument à faire ça avec VBA !

Il y a donc une alternative compatible :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Option Explicit Sub VérificationSaisie()
Const min As String = "1"
Const max As String = "99"
Const titre As String = "Erreur de saisie du nombre"
Const msg As String = "Veuillez saisir un nombre entier" & vbCrLf & "compris entre " & min & " et " & max
Dim rng As Range
  Set rng = Worksheets("Feuil1").Range("H2:H90")
  With rng.Validation
    .Delete
    .Add Type:=xlValidateWholeNumber, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=min, Formula2:=max
    .IgnoreBlank = True
    .InCellDropdown = True
    .ErrorTitle = titre
    .ErrorMessage = msg
    .ShowInput = False
    .ShowError = True
  End With
End Sub