Problème avec le VBA dans Excel 97

Bonjour à tous,

Dans ma formule jutilise cette fonction "ActiveCell.Offset()".

Sous excel 2003 tout foctionne mais quand je passe sous excel 97 erreur.

Quel fonction peut remplacer celle-ci?

merci encore.

@+

Bonjour,

Quel message d'erreur te donne le déboggage ?

Salut Raja,

Voici le message d'erreur

"erreur d'exécution '13': Type incompatible"

encore merci pour les différentes réponce

cordialement

Bonjour, peux-tu poster un bout de code svp?

Salut Math,

voici le code qui fait l'erreur sous excel 97:

"If ActiveCell.Offset(0, 1) > 0 And ActiveCell.Offset(0, 3) > ActiveCell.Offset(0, 1) Then

MsgBox ("Quota atteint")"

merci de t'y intéresser

cordialement

Bonjour

Ton code d"erreur semble plus dire que tu compares des données incompatible. Je ne pense pas que l'erreur vienne du offset(). Peut-être ailleur dans ton code. Teste le avec des point d'arret.

Bonjour à tous,

ton code fonctionne bien, n'oublie pas le Enf If

Sub test()
If ActiveCell.Offset(0, 1) > 0 And ActiveCell.Offset(0, 3) > ActiveCell.Offset(0, 1) Then
MsgBox ("Quota atteint")
End If
End Sub

Claude.

Salut Math,

encore merci pur ta réponse.

voici le code complet:

ActiveSheet.Unprotect

Application.EnableEvents = True

[w2] = ActiveCell

[v2] = Left([w2].Value, 6)

[u9:u29].Interior.ColorIndex = 0

ActiveCell.Interior.ColorIndex = 4

If ActiveCell.Offset(0, 1) > 0 And ActiveCell.Offset(0, 3) > ActiveCell.Offset(0, 1) Then

MsgBox ("Quota atteint")

Exit Sub

End If

ActiveSheet.Protect

End Sub

tu croit pouvoir me dit ce qui peut poser ce problème.

sachant que le code surligner par excel est celui précédemment donné.

merci pour ta réponse.

@+

Bonjour,

Je saisis mal ce que tu fais dans cette ligne --> [w2] = ActiveCell

Est-ce pour sélectionner la cellule W2 ou autre chose ?

A te relire

Dan

edit : de plus quelle est la cellule active en question, W2 ou autre ??

Bonjour Nad-Dan,

en fait cette macro vient d'une feuille excel de se forum.

C'est un calendrier pour les vacances que je souhaite utiliser.

Je devrai le remplir sur un excel 97.

si joint le lien de la feuille en question

https://www.excel-pratique.com/~files/doc/Calendrier_Conges2.xls

Merci pour vos réponse

@+

re,

Cette aplication a été réalisée par notre ami Dubois. Je pense qu'il pourra t'aider au mieux.

Je viens de le contacter à ce sujet.

Juste une petite remarques dans ton code --> Supprime le APPLICATION.ENABLEEVENTS = FALSE ou alors n'oublie pas de le remettre à TRUE en fin de macro.

Je reste bien entendu dispo si tu as besoin.

Amicalement

Dan

Bonjour à tous,

Salut Dan,

Tant qu'à faire, utilise plutôt cette version :

https://www.excel-pratique.com/~files/doc/H8Q7VCal_Conges2.zip

Entre les 2 versions, j'ai évolué dans les macros !

reviens si çà coince

Claude.

Rebonjour à tous,

Merci pour vos réponses, Je vais tester vos différentes réponses demain à mon travail.

je laisse le sujet ouvert.

encore merci

@+

Bonjour à tous pour cette nouvelle journée,

Comme promis je vous informe sur la situation.

Après quelque test, je me suis aperçu que cela ne venais pas de la fonction ActiveCell.Offset() mais en faite cela fenais des valeurs mis dans les parenthèses.

Excel 2003, devait corriger ou adapter la formule alors d' excel 97 refusait les valeurs mise.

Tous fonctionne bien.

Encore merci à tous pour vos réponses.

P.S. : Merci Dubois pour ce petit calendrier.

Bonne journée à tous

@+