Interdire encodage cellule feuille via formulaire

Bonjour à tous,

Mon soucis est le suivant:

J'ai un formule de donnée à chaque validation, mes données s'encode à la suite de l'autre.

Cependant j'aimerais quand mes articles arrive par exemple à la cellule A10 qu'un msgbox apparaisse et me dit "donnée maximum, vous pouvez plus ajouter".

Pour ce fait dans ma feuille je suis allée dans donnée de validation.
Si je change manuellement sur ma feuille y a pas de soucis, mon msgbox s'effectue et je ne sais pas encoder

Cependant quand j'encode avec mon formulaire, mon msgbox ne marche pas et encode alors ma donnée.

En vous remerciant

Ajouter un bouton de validation qui, après encodage dans le formulaire, calcule le nombre x de lignes (via un code) déjà remplies et qui empêche de nouvelles entrées si x > 10.
Si x>10, vous devez effacer les données encodées et réinitialiser le formulaire.

Citation:

---

Envoyé par _flori_

Cependant j'aimerais quand mes articles arrive

---

Comment tes articles "arrivent-ils" dans tes cellules ?

Citation:

---

Cependant quand j'encode avec mon formulaire, mon msgbox ne marche pas et encode alors ma donnée.

---

Montre le code permettant de transférer la valeur du formulaire à la cellule.

Bonjour,

Mes données sont encodé dans un formulaire qui les transferts à ma feuille excel

Voici le code:

Code:

---

1 2 3 4 5 6 7

Private Sub CommandButton1_Click() 'Enregistrement des données sur la feuille 'Cherche la dernière ligne de la colonne A Dim Der_Ligne As Long Der_Ligne = Range("A65536").End(xlUp).Row + 1 Cells(Der_Ligne, 1) = TextBox1 End Sub

---

Quand j'encode directement par la feuille, y a pas de soucis ma validation de donnée avec son msgbox marche
cependant en passant par mon userform, mes données s'encode bien mais ne s'arrête pas à ma validation

En vous remerciant

Bonjour
Dans ton code juste tester si la dernière ligne est sup à 10

Code:

---

1 2 3 4 5

if derlig > 10 then msgbox " vous avez dépasser..." exit sub Else Cells ( derlig,2)= textbox1.value

---

Désoler de ne pas baliser le code vue que je réponds depuis mon téléphone
Bonne journée à tous

Salut

Citation:

---

Envoyé par _flori_

[...]

Quand j'encode directement par la feuille, y a pas de soucis ma validation de donnée avec son msgbox marche
cependant en passant par mon userform, mes données s'encode bien mais ne s'arrête pas à ma validation

En vous remerciant

---

C'est normal. La validation est une validation de saisie. Cela veut dire qu'elle est bloquante uniquement pour la saisie manuelle des données. Même en Excel, si tu réalises un collage spécial valeurs, la validation ne bloquera rien.

C'est dans ton userform que tu dois vérifier les données avant de les envoyer dans les cellules.

Une solution encore plus adaptable : tester directement ta validation de données en VBA avec sa propriété Value.
https://msdn.microsoft.com/fr-fr/VBA...property-excel
https://msdn.microsoft.com/fr-fr/VBA...n-object-excel
https://msdn.microsoft.com/fr-fr/VBA...n-object-excel

Si la plage n'est pas valide après avoir mis la valeur supplémentaire, il suffit de l'effacer.
Ta macro peut même récupérer le message d'erreur de la validation de données et l'afficher en MsgBox. Comme ça, la concordance avec une saisie manuelle est complète.

Bonjour à tous,

Je vous remercie de vos réponses.

J'ai utilisé ce que tu m'as donné BENNASR et je te remercie énormément, c'est exactement ce que je chercher.

Puis-je abusé d'une dernière question, stp

Mon encodage ce fais parfaitement

Cependant, quand c'est des nombres, ça me marque toujours une erreur car les nombres sont encodé en format texte

Comment puis-je forcer l'encodage en format nombre

En te remerciant encore

Bonjour
essayer avec CDBL :

Code:

---

Cells(Der_Ligne, 1) = cdbl(TextBox1.value)

---

BONNE JOURNÉE A TOUTES et A TOUS

Bonjour,

Un grand merci

C'est super