Problème avec un code Vba Excel

Version imprimable

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:

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

23/10/2007, 09h09
Jean-Philippe André

bonjour,
pourquoi n'utilises-tu pas le range Target, déjà tout fait pour toi ? :aie:
23/10/2007, 10h21
NEC14

Citation:

Envoyé par jpcheck

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

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
23/10/2007, 10h25
Jean-Philippe André

ah, je crois avoir trouvé :
remplace

Code:

Intersect(Range("ZO1"), ActiveCell)

par

Code:

Intersect(Range("A1:ZO1"), Target)
23/10/2007, 10h26
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 ! :P

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....)
23/10/2007, 10h59
NEC14

Citation:

Envoyé par 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 ! :P

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.
23/10/2007, 14h53
NEC14

Citation:

Envoyé par 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.
23/10/2007, 15h29
Invité
Bonjour NEC14,

Citation:

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:

Exit Sub

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

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.
23/10/2007, 16h43
NEC14
Citation:
Envoyé par jacques_jean

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:

Exit Sub

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

Code:

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
:salut: