aide programmation VBA/ Saisie d'une note Résolu/Fermé

Question

Bonjour,

1)Je dois constituer une  grille de notation, et les notes attribuées aux objets sont comprises entre 1 et 5. je souhaiterai que tant que la note rentrée ne soit pas comprise entre 1 et 5 on ne puisse pas passer à la cellule suivante.
2)Je dois répéter cette opération sur 10 cellules qui sont sur des lignes impaires.
 Pour le 1 j'ai écrit un programme en Vba: 

       Private Sub Worksheet_Change(ByVal Target As Range)
       Select Case Target.Address
       Case "$A$1"
       If Target.Value < 1 Or Target.Value > 5 Then MsgBox "Erreur. La note doit être comprise entre 1 et 5"
       Target.Select
       End Select
       End Sub

je ne sais pas comment constituer une boucle est ce que je peux écrire "$a$k"? 

Merci pour votre Aide.

Le Pingou · Answer

Bonjour,
Juste en passant, est-ce que la programmation VBA est imposé ?

Novikov · Answer

oui de préférence

lermite222 · Answer

Bonjour,
Hello Jean-Louis,
D'accord avec toi dans les cas comme celui exposé ici, se servir des puissantes fonctions d'excel, mais certainement pas dans les cas de répètition de formules et encore moins quand elles sont longues comme un jour sans pain, cela surcharge inutilement le classeur.
J'ai déjà fait l'expérience sur 3000 lignes, formule à chaque ligne 
Classeur = 1,6 Mo
Avec une formule VBA 67Ko. !
Evidement, faut bien connaître le VBA pour y arriver.
Cette réflexion pour faire comprendre que chacun procède de la façon qui est le plus dans ses cordes.
Et qu'importe le mode, du moment que le résultat est là.

Moi : Anti-Formule Surchageuratoire. :DD

Cordialement.

eriiic · Answer

Bonjour,

une chose que tu ne précises pas c'est si ta macro doit bloquer tout autre saisie tant que ces 10 cellules là sont vides...
Sinon pour ta boucle tu peux utiliser qcq chose comme :

for i = 1 to target.row-1 step 2 ' pour i = 1 à ligne-1 de la cellule saisie
if cells(i,1) >=0 and cells(i,1) <=5 ' si cellule ligne i, colonne 1 (A) .....
 'alors faire ça
else
'sinon faire ça
endif
next 

Si tu ne veux pas bloquer tout autre saisie il faudrait tester target auparavant pour sortir de la macro si besoin.

eric

Le Pingou · Answer

Bonjour à Vous Tous,
L'essentiel étant dit, je me retire.
Bonne journée.

Novikov · Answer

Merci pour vos interventions! Mon problème est résolu,  Merci beaucoup.

Aide programmation VBA/ Saisie d'une note

6 réponses

Discussions similaires