XL 2010 Imposer saisie numérique à 2 colonnes contigues

cp4 · 6 Juin 2020

Bonjour,

Je sais que c'est faisable en utilisant la validation de données.
Cependant, Je voudrais savoir si cela est possible de faire la même chose que le code ci-dessous valable pour textbox

VB:

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
   If InStr("0123456789", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub

En utilisant par exemple l'évènenement Worksheet_SelectionChange. Pour les colonnes peu importe (A et B) par exemple.

En vous remerciant par avance.

Bon week-end.

jmfmarques · 6 Juin 2020

Bonjour

Cependant, Je voudrais savoir si cela est possible de faire la même chose que le code ci-dessous valable pour textbox

Non, dès lors que le code montré utilise, en cours de saisie, l'analyse de chaque caractère frappé alors que l'évènement Worksheet_Change n'intervient que lors de la validation de la valeur de la cellule et que l'évènement SelectionChange n'intervient qu'au moment de l'entrée dans une cellule.
Il n'existe aucun moyen de contrôle, de saisie en cours de saisie, d'une cellule Excel.
Un subterfuge/usine à gaz ? --->> utilisation d'une textbox qui vient s'imposer en tremplin obligatoire au moment de l'entrée dans la cellule. Bien cher payé pour un bénéfice très contestable par rapport à un simple contrôle de validité in fine.

cp4 · 6 Juin 2020

jmfmarques à dit:
Bonjour

Non, dès lors que le code montré utilise, en cours de saisie, l'analyse de chaque caractère frappé alors que l'évènement Worksheet_Change n'intervient que lors de la validation de la valeur de la cellule et que l'évènement SelectionChange n'intervient qu'au moment de l'entrée dans une cellule.
Il n'existe aucun moyen de contrôle, de saisie en cours de saisie, d'une cellule Excel.
Un subterfuge/usine à gaz ? --->> utilisation d'une textbox qui vient s'imposer en tremplin obligatoire au moment de l'entrée dans la cellule. Bien cher payé pour un bénéfice très contestable par rapport à un simple contrôle de validité in fine.

Merci beaucoup pour tes explications Jmfmarques. J'abandonne mon idée farfelue?!!!
Je vais me contenter de If IsNumeric(Target) Then pour contrôler que c'est bien du numérique.
Encore merci.

Bon week-end.

jmfmarques · 6 Juin 2020

Je vais me contenter de If IsNumeric(Target) Then pour contrôler que c'est bien du numérique.

On peut toujours réinventer l'eau chaude en lieu et place de l'outil de validation des données, fait pour cela et qui ne nécessite aucun code.

cp4 · 6 Juin 2020

jmfmarques à dit:
On peut toujours réinventer l'eau chaude en lieu et place de l'outil de validation des données, fait pour cela et qui ne nécessite aucun code.

Je n'envisage pas de réinventer l'eau chaude comme tu dis.
Néanmoins, il serait intéressant de réinventer la façon de la chauffer proprement.

jmfmarques · 6 Juin 2020

Utilise s'il te plait l'outil Excel de validation des données (menu -->> validation des données) qui gère parfaitement tout cela, messages éventuels inclus.

patricktoulon · 7 Juin 2020

re
bonjour cp4
t'a compris ou pan pan cucu!!!!!!!

cp4 · 7 Juin 2020

patricktoulon à dit:
re
bonjour cp4
t'a compris ou pan pan cucu!!!!!!!

Bonjour Patrick,
J'ai chialé toute la soirée d'hier

.
C'est ma bécane et je la conduis comme je veux, où je veux et quand je veux. na et na et na

.

Bonne soirée.

XL 2010 Imposer saisie numérique à 2 colonnes contigues

cp4

XLDnaute Barbatruc

jmfmarques

XLDnaute Accro

cp4

XLDnaute Barbatruc

jmfmarques

XLDnaute Accro

cp4

XLDnaute Barbatruc

jmfmarques

XLDnaute Accro

patricktoulon

XLDnaute Barbatruc

cp4

XLDnaute Barbatruc

Discussions similaires