Aux specialistes des macros excel: tabulation automatique

Aux specialistes des macros excel: tabulation automatique - VB/VBA/VBS - Programmation

Marsh Posté le 05-10-2005 à 11:24:30    

Salut
Je cherche a introduire des donnes dans un tableau excel, a partir du clavier numerique, et cela le plus rapidement possible. Chaque valeur introduite (1 chiffre!)  est testee (si elle se trouve dans la bonne plage). Actuellement, l'utilisateur doit toujours appuyer sur le bouton tabulation pour passer a la colonne suivante. Existe-t'il un moyen pour que des que l'on entre une valeur, et que celle-ci est teste, de changer de colonne, sans appuyer sur tab?
D'avance merci


Message édité par korben le 05-10-2005 à 11:35:11
Reply

Marsh Posté le 05-10-2005 à 11:24:30   

Reply

Marsh Posté le 06-10-2005 à 17:38:01    

Personne n'a une idee de comment simuler la pression d'une touche (la touche tab dans cet exemple) dans une macro excel?

Reply

Marsh Posté le 07-10-2005 à 12:31:53    

y a pas une fonction SendKeys ?

Reply

Marsh Posté le 07-10-2005 à 18:52:02    

Tu peux changer le sens du déplacement et utiliser la touche Enter qui est dans le pavé numérique.


---------------
Si on vous donne une info qui marche, DITES-LE!!!! ------ Si vous trouvez seul, AUSSI, votre solution peut servir à d'autres! ------ Je dois la majorité de mes connaissances à mes erreurs!
Reply

Marsh Posté le 08-10-2005 à 14:06:55    

Tu n'as qu'a changer de cellule à chaque fois que celle-ci est modifiée...
Utilises les offsets .

Reply

Marsh Posté le 08-10-2005 à 17:27:33    

AlainTech a écrit :

Tu peux changer le sens du déplacement et utiliser la touche Enter qui est dans le pavé numérique.


Non. Je veux justement ne pas devoir appuyer sur une touche supplementaire.
 

Fred_l a écrit :

Tu n'as qu'a changer de cellule à chaque fois que celle-ci est modifiée...
Utilises les offsets .


Merci. Tu as un exemple?

Reply

Marsh Posté le 08-10-2005 à 18:46:57    

Après test, je n'ai pas de valeur dans la ellule tant que celle si n'est pas validée...
 
Sinon voilà avec les offsets :
MaxCols = 254
MaxRows = 65534
 
i = 0 ' Colone Excel
j = 0 ' Ligne Excel
ActiveWorkbook.Sheets("Feuil1" ).Select
Set Rng = Range("A1" )
Range("A10" ).Select
Init = True
Do
   If Not Init Then
    If Rng.Offset(i, j).Value <> "" And Rng.Offset(i, j).Activate Then
        j = j + 1
        Rng.Offset(i, j).Select
    End If
    If j = MaxCols Then
        j = 0
        i = i + 1
    End If
    End If
    DoEvents
Loop Until i > MaxRows
 
Faudait avoir le moyen de savoir que la cellule est modifiée avant la validation...
 

Reply

Marsh Posté le 14-10-2005 à 14:01:28    

D'après moi, ce n'est pas une simple macro Excel qui peut t'aider.
 
Un appel d'API, peut-être...

Reply

Marsh Posté le 15-10-2005 à 20:55:20    

Si le travail de saisie est vraiment très volumineux, il est peut-être envisageable de créer un clavier numérique virtuel (USF ou images pop-up) avec des numéros cliquables.
A+

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed