XL 2010 Imposer saisie numérique à 2 colonnes contigues

[cp4]

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

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]

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]

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]

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]

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]

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]

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

 

[cp4]

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.