Problème EXCEL VBA 2003 vers 2010

Bonjour,

Je suis en train de perfectionner mon planning, je l'ai créé et modifier avec un EXCEL 2003, et quand je veux le lire avec un EXCEL 2010. J'ai cette erreur pour la formule suivante :

Code:

'Recherche de la ligne avec la 1ere valeur du numero de semaine sur la 1ere colonne'
    RechLigne = Range("A2:A300").Find(What:=NOSEM(Now), LookIn:=xlValues, LookAt:=xlWhole).Row

la fonction NOSEM(Now) renvoie le numéro de la semaine en cours

L'idée étant de récupérer dans la 1ère colonne le numéro correspondant à la semaine en cours, pour effectuer par la suite des traitements sur la ligne en cours.

Voici le tableau complet :


je tiens à préciser que ça fonctionne parfaitement sous 2003 et que j'ai les messages d'erreur affichés plus haut sur la version 2010 et 2007

pour votre aide

personne à une idée ?

Non désolé.
Les RH ne vous font pas ça ?

Désolé je ne peux pas t'aider par contre j'ai trouvé un lien où tu pourras peut-être trouver une solution à ton problème...

http://www.developpez.net/forums/d1147238/logiciels/microsoft-office/excel/macros-vba-excel/convertisseur-macro-vba-excel-2003-vers-excel-2010-a/

monster a écrit:Non désolé.
Les RH ne vous font pas ça ?

Non car c'est un cas particuliers, puisque je fais parti de 5% des Technicien présents chez Altran

de plus ce tableau a été réalisé par mes soins, et convient parfaitement à mon besoin (normal c'est moi qui l'ai fait )

pmgamer a écrit:Désolé je ne peux pas t'aider par contre j'ai trouvé un lien où tu pourras peut-être trouver une solution à ton problème...

http://www.developpez.net/forums/d1147238/logiciels/microsoft-office/excel/macros-vba-excel/convertisseur-macro-vba-excel-2003-vers-excel-2010-a/

merci je test ce soir

Ok, car chez nous, les RH nous donnent un document tout fait, simpliste, mais où il y a tout ^^.

j'ai rédéfini la fonction

Code:

'Recherche de la ligne avec la 1ere valeur du numero de semaine sur la 1ere colonne'
    RechLigne = Range("A2:A300").Find(What:=NOSEM(Now), LookIn:=xlValues, LookAt:=xlWhole).Row

par

Code:

For intK = 2 To 300 Step 1
        If Cells(intK, 1).Value = NOSEM(Now) Then
            RechLigne = intK
        Else
        End If
    Next intK

et ça fonctionne beaucoup mieux

bizarre le fonctionnement de cette fonction intégrée ^^'