Controller les entrées dans une colonne

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

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

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.

Bonjour,

Citation:

---

Envoyé par eliot.raymond

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.

---

Citation:

---

Envoyé par EricDgn

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:

---

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

---