Discussion :

[Crachover]

Bonjour,

J'ai une cellule pouvant contenir une heure, exemple 12h00

Lorsque je quitte cette cellule, cela lance du code VBA pour certaines vérifications; comme un changement de couleur si les conditions ne sont pas respectées et ensuite je clique sur un bouton pour imprimer.

Mon problème est que beaucoup de personne entre l'heure, ne quitte pas la cellule et imprime, ce qui à pour conséquence que les vérifications se font après...

Est-il possible de dire pour une cellule précise, si tu ne quittes pas, si tu ne valides pas la cellule rien ne se passe...

Ou comment tester si une cellule précise est sélectionnée ? (Focus...)

Merci d'avance ;-)

[QuestVba]

Bonjour,

Tu devrais passer par une macro pour tester la cellule. Tu rajoutes ton test sur la cellule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Workbook BeforePrint(Cancel As Boolean)
MsgBox "Que nenni !"
Cancel = True
End Sub

[Crachover]

Bonjour,

Merci pour la réponse :-)

Mais est-il possible d'utiliser ceci directement sur l'onglet ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Worksheet_BeforePrint(Cancel As Boolean)
MsgBox "Que nenni !"
Cancel = True
End Sub

Et surtout comment mettre un test sur une cellule en particulier (AN8) dans mon cas ?

Ps : Ce n'est pas forcement avant une impression ! C'est juste que j'aimerais obliger les utilisateurs à ne pas rester sur la cellule qu'il viennent d'encoder...

Bien à toi

[joe.levrai]

Bonjour,

le plus simple, c'est de définir une cellule où doit être positionné le curseur par défaut, et faire débuter la procédure qui lance l'impression par une mécanique de ce type, par exemple (2 même, suivant le contexte) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub iooi()
    If Not Intersect(ActiveCell, Range("A1")) Is Nothing Then
        ' //////////
        ' exemple 1
        MsgBox "On est en A1, arrêt du processus"
        Exit Sub
        ' //////////
 
        ' //////////
        ' exemple 2 // activera la procédure évènementielle SelectionChange
        Range("B1").Select
        ' //////////
    End If
 
    ' Le Traitement d'impression
End Sub

En remplaçant A1 (cellule interdite) et B1 (cellule de sécurité) par tes propres agencements


S'il y a plusieurs cellules à contrôler, les unir via application.Union pour utiliser cette plage dans le test Intersect, et adapter le comportement du bloc d'exécution au sein du If/End If
Mais si tel était le cas, il deviendrait plus pertinent de créer une procédure dédiée à la vérification des saisies, voire même de l'éclater en plusieurs sous-procédures d'audit, que tu pourras plus facilement réutiliser dans ton projet ou mettre à jour

[Crachover]

Merci :-)

[QuestVba]

Bonjour,

Tu pourrais exécuter un macro sur ta feuille toutes les x secondes : voir ici.
Et forcer la validation : là.

Le plus simple serait de bien expliquer tout le processus à tes 'collaborateurs' et qu'ils prennent conscience que le système ne peut fonctionner correctement que s'ils fonctionnent aussi correctement.