saisie INPUT

[eliot raymond]

Bonjour tous le monde, forum bonjour,

je ne sais pas comment on peut faire ce code VBA pour obtenir , mais voyez le fichier joint j'y explique pour le mieux ce que je souhaiterai si possible.

Merci de perdre un instant et dites moi si vous avez une solution, PAS de texbox svp.

Au plaisir de vous relire bonne Apres midi et merci d'avance

Raymond

 

[phlaurent55]

Re : saisie INPUT

Bonjour Eliot Raymond

un petit essai en pièce jointe

à+

 

[eliot raymond]

Re : saisie INPUT

Salut PhLaurent55, forum

Je viens d'essayer ton code écoute ca marche bien et je t'en remercie.

Mais si possible j'aurai préferer sans la texbox car si ca marche je pourrai m'en resservir dans un autre programme en cours comme ca je ferai d'une pierre 2 coups donc si on peut modifier ca serai bien si tu as le temps bien sur.

En tout cas je te remercie beaucoup au plaisir de te relire

Raymond

 

[phlaurent55]

Re : saisie INPUT

Re,Raymond

Tu as sans doute une bonne raison de ne pas vouloir de TextBox........mais je ne vois pas comment faire autrement

il existe bien un évènement "KeyPress" mais il est quand même lié à une TextBox

Public Sub [COLOR="Blue"][B]TextBox1[/B][/COLOR]_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

M'avouant vaincu, il te reste à attendre le passage d'un plus doué sur ce fil de discussion

Bonne fin de journée
Philippe

 

[allegro50]

Re : saisie INPUT

Bonjour Eliot Raymond, PhLaurent55

Une autre version avec des input box

Dis nous

 

[phlaurent55]

Re : saisie INPUT

Salut à tous

@ allegro
mais comment n'ai-je pas pense à ces InputBox
mais avoue quand-même que c'est un peu moins "élégant"

 

[eliot raymond]

Re : saisie INPUT

Re-Phlaurent55
Ce n'est pas grave je verrai plus tard je garde ton code au chaud on ne sais jamais mais je te remercie d'avoir regarder tout de meme c'est sympa j'apprécie.

si tu veux bien regarder ce code et me dire comment je pourrai faire pour me positionner en ligne 2 car j'effectue un test sur les colonnes C22 et H2:I2 et je voudrai ignorer la ligne 1 ou seront mes titres donc pas besoin de la tester je n'arrive pas a trouver
Merci par avance et si cela ne te derange pas

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Column = 3 Or .Column = 4 Or .Column = 8 Or .Column = 9 Then

If Len(.Value) > 7 Or Len(.Value) = "" Then .ClearContents: .Select
If .Value >= "0" And .Value <= "9" Or .Value = "€" Or .Value = "," Then
Else: .ClearContents: .Select

End If
End If

End With
End Sub

merci a te relire

Raymond

 

[allegro50]

Re : saisie INPUT

Philippe

J'avoue ....mais c'est ce que voulait raymond, ( qui a l'air de ne plus en avoir rien à faire)

Bonne soiree

 

[eliot raymond]

Re : saisie INPUT

salut Allegro50 et tous

je prends bonne note avec les texboxs je vais y réfléchir promis, pourvu que je craque pas, mais la nuit porte conseil
en tout cas merci pour le code archiver au cas Houuuu

A plus tard

Raymond

 

[eliot raymond]

Re : saisie INPUT

re Allegro50

non non je ne m'en fout pas bien au contraire en plus je debute en VBA et suis tres curieux et tout les codes je les imprime et les classe tout en etudiant un projet

voila Monsieur hihihihihi

je regarde tout avec attention


merci encore Ray

 

[phlaurent55]

Re : saisie INPUT

Re, raymond, allegro

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Column = 3 Or .Column = 4 Or .Column = 8 Or .Column = 9 Then

If Len(.Value) > 7 Or Len(.Value) = "" Then .ClearContents: .Select
If .Value >= "0" And .Value <= "9" Or .Value = "€" Or .Value = "," Then
Else: .ClearContents: .Select

End If
End If

End With
End Sub

Raymond, j'aurais préféré que tu me dises cela en termes plus précis du genre :
si contenu de la/les cellule(s) Cx Dx est égal à ....alors on fait ceci....

vu que ton code ne marche pas, j'ai aussi du mal à comprendre

 

[eliot raymond]

Re : saisie INPUT

Re phlaurent55

c'est vrai j'ai honte j'aurai du y penser, desolé je te fait un fichier simple et j'envoie

a plus tard merci
Ray

 

[eliot raymond]

Re : saisie INPUT

re laurent50
je viens de poster le fichier PETIT TEST.ZIP demo dit moi STP si possible ou pas

A te relire avec plaisir

Raymond

 

[phlaurent55]

Re : saisie INPUT

Re Raymond

je viens de voir que tu as ouvert un nouveau fil de discussion

tu aurais pu rester sur celui-ci

là on s'égarre

 

[eliot raymond]

Re : saisie INPUT

decidement c'est pas ma journée re desolé