Discussion :

[NEC14]

Bonjour à tous,

Voilà, j'ai écrit ce code qui me permets lors d'un click dans une cellule d'afficher un formulaire. Les cellules correspondant à un week-end sont inactives.
Mais je dois avoir un problème quelque part car ça ne marche pas.
Les jours sont sur les lignes 4 et 5, les noms à partir de la ligne 6 colonne A
Pouvez-vous m'aider à comprendre s'il vous plait ?
Merci par avance

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
17
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Col As Long
Dim Lig As Long
Dim A As Long
    If Intersect(Range("ZO1"), ActiveCell) Is Nothing Then Exit Sub
    If IsEmpty(ActiveCell.Value) Then
Lig = 6
Col = ActiveCell.Column
A = Cells(Lig, Col).Value
    If A = 0 Then Col = Col - 1
    If Weekday(Cells(Lig, Col).Value) <> 1 And Weekday(Cells(Lig, Col).Value) <> 7 Then
Load FrmAbs
FrmAbs.Show
    End If
 End If
End Sub

[Jean-Philippe André]

bonjour,
pourquoi n'utilises-tu pas le range Target, déjà tout fait pour toi ?

[NEC14]

bonjour,
pourquoi n'utilises-tu pas le range Target, déjà tout fait pour toi ?

Bonjour,

Désolé, mais je ne comprends pas ce que tu veux dire. Je débute en Vba.
Est-ce que tu peux expliquer s'il te plait ?
Merci

[Jean-Philippe André]

ah, je crois avoir trouvé :
remplace

Code :

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

Intersect(Range("ZO1"), ActiveCell)

par

Code :

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

Intersect(Range("A1:ZO1"), Target)

[Gorfael]

Salut
Ta macro fonctionne très bien chez moi. donc, l'erreur ne vient pas de ce code.
Quelques pistes :
- une autre macro contenant un EnableEvents sans gestion des erreurs (ou autres instructions liées à Application)
- Macro pas dans le module lié à la feuille
- la définition de la plage ZO1
- le nom du formulaire

Mets un point d'arrêt sur le titre de la macro et en l'exécutant pas-à-pas, regardes où elle sort.

Le fait d'utiliser Activecell te permet d'éliminer les sélections multiples, mais, moi, je préfère quand même utiliser target, Na !

A+
NOTA : je n'ai pas vérifié la partie relative à A (qui sert vraisemblablement pour différencier les mois 30/31, mais comme je n'ai pas assez d'infos....)

[NEC14]

Salut
Ta macro fonctionne très bien chez moi. donc, l'erreur ne vient pas de ce code.
Quelques pistes :
- une autre macro contenant un EnableEvents sans gestion des erreurs (ou autres instructions liées à Application)
- Macro pas dans le module lié à la feuille
- la définition de la plage ZO1
- le nom du formulaire

Mets un point d'arrêt sur le titre de la macro et en l'exécutant pas-à-pas, regardes où elle sort.

Le fait d'utiliser Activecell te permet d'éliminer les sélections multiples, mais, moi, je préfère quand même utiliser target, Na !

A+
NOTA : je n'ai pas vérifié la partie relative à A (qui sert vraisemblablement pour différencier les mois 30/31, mais comme je n'ai pas assez d'infos....)

Chez moi, lorsque je clique dans une cellule, rien ne se passe.
Je regarde de plus près.

[NEC14]

Chez moi, lorsque je clique dans une cellule, rien ne se passe.
Je regarde de plus près.

J'ai regardé mon code, mais je ne trouve pas mon erreur. Lorsque je clique, rien ne se passe. A part sur la 1ère colonne, là ça marche, mais pas ailleurs.

[Invité]

Bonjour NEC14,

J'ai regardé mon code, mais je ne trouve pas mon erreur. Lorsque je clique, rien ne se passe. A part sur la 1ère colonne, là ça marche, mais pas ailleurs.

Je ne crois pas qu'il ne se passe vraiment rien. Je crois plutôt que dans ce cas le code qui s'exécute est :

Code :

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

Exit Sub

Pour le vérifier, placez un point d'arrêt sur la ligne :

Code :

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

1
2
 
If Intersect(Range("ZO1"), ActiveCell) Is Nothing Then Exit Sub

Je pense que vous devriez constater que le code se lance bien mais que la condition n'est pas réalisée pour passer à la suite.

[NEC14]

Bonjour NEC14,



Je ne crois pas qu'il ne se passe vraiment rien. Je crois plutôt que dans ce cas le code qui s'exécute est :

Code :

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

Exit Sub

Pour le vérifier, placez un point d'arrêt sur la ligne :

Code :

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

1
2
 
If Intersect(Range("ZO1"), ActiveCell) Is Nothing Then Exit Sub

Je pense que vous devriez constater que le code se lance bien mais que la condition n'est pas réalisée pour passer à la suite.

Ok je regarde. Par contre je vais clôre cette discussion car je pars en vacances et ne serais de retour que le 8/11
Merci pour vos nombreux conseils