Bonjour,
Dans une procédure j'utilise le code suivant
--------------
.........
NumLigne = Application.WorksheetFunction.Match(NomOrganisme,
Range("A:A"), 0)
Cells(NumLigne, 4) = NbHeuresPrescrites
NumOnglet = Format(Me.ListeMois, "m") + 1
ActiveWorkbook.Worksheets(NumOnglet).Activate
NumLigne = Application.WorksheetFunction.Match(NomOrganisme,
Range("A:A"), 0)
........
FinProc:
Application.ScreenUpdating = True
Exit Sub
TraitementErreur:
MsgBox "Erreur " & Err.Number & " : " & Err.Description
Resume FinProc
End Sub
------------------------------
A l'exécution, sur le 2° NumLigne=...., je reçois le message suivant :
Impossible de lire la propriété Match de la classe WorkSheetFunction
Si je mets un point d'arrêt sur le MsgBox dans le traitement d'erreur et que
j'exécute le ligne dans la fenêtre Exécution, je récupère bien la valeur
attendue dans NumLigne.
Si je mets un point d'arrêt sur NumLigne=.... et que j'appuie sur F5 à
chaque passage (c'est dans une boucle) je n'ai pas d'erreur
Avez-vous une idée pour résoudre ce problème?
Merci d'avance
Bonjour,
Dans une procédure j'utilise le code suivant
--------------
.........
NumLigne = Application.WorksheetFunction.Match(NomOrganisme,
Range("A:A"), 0)
Cells(NumLigne, 4) = NbHeuresPrescrites
NumOnglet = Format(Me.ListeMois, "m") + 1
ActiveWorkbook.Worksheets(NumOnglet).Activate
NumLigne = Application.WorksheetFunction.Match(NomOrganisme,
Range("A:A"), 0)
........
FinProc:
Application.ScreenUpdating = True
Exit Sub
TraitementErreur:
MsgBox "Erreur " & Err.Number & " : " & Err.Description
Resume FinProc
End Sub
------------------------------
A l'exécution, sur le 2° NumLigne=...., je reçois le message suivant :
Impossible de lire la propriété Match de la classe WorkSheetFunction
Si je mets un point d'arrêt sur le MsgBox dans le traitement d'erreur et que
j'exécute le ligne dans la fenêtre Exécution, je récupère bien la valeur
attendue dans NumLigne.
Si je mets un point d'arrêt sur NumLigne=.... et que j'appuie sur F5 à
chaque passage (c'est dans une boucle) je n'ai pas d'erreur
Avez-vous une idée pour résoudre ce problème?
Merci d'avance
Bonjour,
Dans une procédure j'utilise le code suivant
--------------
.........
NumLigne = Application.WorksheetFunction.Match(NomOrganisme,
Range("A:A"), 0)
Cells(NumLigne, 4) = NbHeuresPrescrites
NumOnglet = Format(Me.ListeMois, "m") + 1
ActiveWorkbook.Worksheets(NumOnglet).Activate
NumLigne = Application.WorksheetFunction.Match(NomOrganisme,
Range("A:A"), 0)
........
FinProc:
Application.ScreenUpdating = True
Exit Sub
TraitementErreur:
MsgBox "Erreur " & Err.Number & " : " & Err.Description
Resume FinProc
End Sub
------------------------------
A l'exécution, sur le 2° NumLigne=...., je reçois le message suivant :
Impossible de lire la propriété Match de la classe WorkSheetFunction
Si je mets un point d'arrêt sur le MsgBox dans le traitement d'erreur et que
j'exécute le ligne dans la fenêtre Exécution, je récupère bien la valeur
attendue dans NumLigne.
Si je mets un point d'arrêt sur NumLigne=.... et que j'appuie sur F5 à
chaque passage (c'est dans une boucle) je n'ai pas d'erreur
Avez-vous une idée pour résoudre ce problème?
Merci d'avance
Bonjour.
Ajoute :
MsgBox NomOrganisme
devant la ligne pour contrôler la valeur de la variable (le message se
produit si la variable n'est pas renseignée).
Cordialement.
Daniel
> Bonjour,
>
> Dans une procédure j'utilise le code suivant
> --------------
> .........
> NumLigne = Application.WorksheetFunction.Match(NomOrganisme,
> Range("A:A"), 0)
> Cells(NumLigne, 4) = NbHeuresPrescrites
> NumOnglet = Format(Me.ListeMois, "m") + 1
> ActiveWorkbook.Worksheets(NumOnglet).Activate
> NumLigne = Application.WorksheetFunction.Match(NomOrganisme,
> Range("A:A"), 0)
> ........
> FinProc:
> Application.ScreenUpdating = True
> Exit Sub
> TraitementErreur:
> MsgBox "Erreur " & Err.Number & " : " & Err.Description
> Resume FinProc
> End Sub
> ------------------------------
>
> A l'exécution, sur le 2° NumLigne=...., je reçois le message suivant :
> Impossible de lire la propriété Match de la classe WorkSheetFunction
>
> Si je mets un point d'arrêt sur le MsgBox dans le traitement d'erreur et
> j'exécute le ligne dans la fenêtre Exécution, je récupère bien la valeur
> attendue dans NumLigne.
> Si je mets un point d'arrêt sur NumLigne=.... et que j'appuie sur F5 à
> chaque passage (c'est dans une boucle) je n'ai pas d'erreur
>
> Avez-vous une idée pour résoudre ce problème?
>
> Merci d'avance
Bonjour.
Ajoute :
MsgBox NomOrganisme
devant la ligne pour contrôler la valeur de la variable (le message se
produit si la variable n'est pas renseignée).
Cordialement.
Daniel
> Bonjour,
>
> Dans une procédure j'utilise le code suivant
> --------------
> .........
> NumLigne = Application.WorksheetFunction.Match(NomOrganisme,
> Range("A:A"), 0)
> Cells(NumLigne, 4) = NbHeuresPrescrites
> NumOnglet = Format(Me.ListeMois, "m") + 1
> ActiveWorkbook.Worksheets(NumOnglet).Activate
> NumLigne = Application.WorksheetFunction.Match(NomOrganisme,
> Range("A:A"), 0)
> ........
> FinProc:
> Application.ScreenUpdating = True
> Exit Sub
> TraitementErreur:
> MsgBox "Erreur " & Err.Number & " : " & Err.Description
> Resume FinProc
> End Sub
> ------------------------------
>
> A l'exécution, sur le 2° NumLigne=...., je reçois le message suivant :
> Impossible de lire la propriété Match de la classe WorkSheetFunction
>
> Si je mets un point d'arrêt sur le MsgBox dans le traitement d'erreur et
> j'exécute le ligne dans la fenêtre Exécution, je récupère bien la valeur
> attendue dans NumLigne.
> Si je mets un point d'arrêt sur NumLigne=.... et que j'appuie sur F5 à
> chaque passage (c'est dans une boucle) je n'ai pas d'erreur
>
> Avez-vous une idée pour résoudre ce problème?
>
> Merci d'avance
Bonjour.
Ajoute :
MsgBox NomOrganisme
devant la ligne pour contrôler la valeur de la variable (le message se
produit si la variable n'est pas renseignée).
Cordialement.
Daniel
> Bonjour,
>
> Dans une procédure j'utilise le code suivant
> --------------
> .........
> NumLigne = Application.WorksheetFunction.Match(NomOrganisme,
> Range("A:A"), 0)
> Cells(NumLigne, 4) = NbHeuresPrescrites
> NumOnglet = Format(Me.ListeMois, "m") + 1
> ActiveWorkbook.Worksheets(NumOnglet).Activate
> NumLigne = Application.WorksheetFunction.Match(NomOrganisme,
> Range("A:A"), 0)
> ........
> FinProc:
> Application.ScreenUpdating = True
> Exit Sub
> TraitementErreur:
> MsgBox "Erreur " & Err.Number & " : " & Err.Description
> Resume FinProc
> End Sub
> ------------------------------
>
> A l'exécution, sur le 2° NumLigne=...., je reçois le message suivant :
> Impossible de lire la propriété Match de la classe WorkSheetFunction
>
> Si je mets un point d'arrêt sur le MsgBox dans le traitement d'erreur et
> j'exécute le ligne dans la fenêtre Exécution, je récupère bien la valeur
> attendue dans NumLigne.
> Si je mets un point d'arrêt sur NumLigne=.... et que j'appuie sur F5 à
> chaque passage (c'est dans une boucle) je n'ai pas d'erreur
>
> Avez-vous une idée pour résoudre ce problème?
>
> Merci d'avance
Bonjour,
La variable NomOrganisme est bien renseignée, je l'utilise quelques lignes
plus haut pour la même fonction (sur une autre feuille) qui ne pose pas de
problème.
Cette erreur se produit lorsqu'il ne trouve pas la valeur recherchée.
Mais elle y est bien vu que l'erreur ne se produit pas avec un point d'arrêt
sur la ligne.
Sans espoir, j'ai ajouté un DoEvents avant. Sans succès non plus!
--
Cordialement,
Gilbert
"Daniel.C" a écrit dans le message de
news:%Bonjour.
Ajoute :
MsgBox NomOrganisme
devant la ligne pour contrôler la valeur de la variable (le message se
produit si la variable n'est pas renseignée).
Cordialement.
DanielBonjour,
Dans une procédure j'utilise le code suivant
--------------
.........
NumLigne = Application.WorksheetFunction.Match(NomOrganisme,
Range("A:A"), 0)
Cells(NumLigne, 4) = NbHeuresPrescrites
NumOnglet = Format(Me.ListeMois, "m") + 1
ActiveWorkbook.Worksheets(NumOnglet).Activate
NumLigne = Application.WorksheetFunction.Match(NomOrganisme,
Range("A:A"), 0)
........
FinProc:
Application.ScreenUpdating = True
Exit Sub
TraitementErreur:
MsgBox "Erreur " & Err.Number & " : " & Err.Description
Resume FinProc
End Sub
------------------------------
A l'exécution, sur le 2° NumLigne=...., je reçois le message suivant :
Impossible de lire la propriété Match de la classe WorkSheetFunction
Si je mets un point d'arrêt sur le MsgBox dans le traitement d'erreur et
que j'exécute le ligne dans la fenêtre Exécution, je récupère bien la
valeur attendue dans NumLigne.
Si je mets un point d'arrêt sur NumLigne=.... et que j'appuie sur F5 à
chaque passage (c'est dans une boucle) je n'ai pas d'erreur
Avez-vous une idée pour résoudre ce problème?
Merci d'avance
Bonjour,
La variable NomOrganisme est bien renseignée, je l'utilise quelques lignes
plus haut pour la même fonction (sur une autre feuille) qui ne pose pas de
problème.
Cette erreur se produit lorsqu'il ne trouve pas la valeur recherchée.
Mais elle y est bien vu que l'erreur ne se produit pas avec un point d'arrêt
sur la ligne.
Sans espoir, j'ai ajouté un DoEvents avant. Sans succès non plus!
--
Cordialement,
Gilbert
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de
news:%23XgiNHwdJHA.3948@TK2MSFTNGP04.phx.gbl...
Bonjour.
Ajoute :
MsgBox NomOrganisme
devant la ligne pour contrôler la valeur de la variable (le message se
produit si la variable n'est pas renseignée).
Cordialement.
Daniel
Bonjour,
Dans une procédure j'utilise le code suivant
--------------
.........
NumLigne = Application.WorksheetFunction.Match(NomOrganisme,
Range("A:A"), 0)
Cells(NumLigne, 4) = NbHeuresPrescrites
NumOnglet = Format(Me.ListeMois, "m") + 1
ActiveWorkbook.Worksheets(NumOnglet).Activate
NumLigne = Application.WorksheetFunction.Match(NomOrganisme,
Range("A:A"), 0)
........
FinProc:
Application.ScreenUpdating = True
Exit Sub
TraitementErreur:
MsgBox "Erreur " & Err.Number & " : " & Err.Description
Resume FinProc
End Sub
------------------------------
A l'exécution, sur le 2° NumLigne=...., je reçois le message suivant :
Impossible de lire la propriété Match de la classe WorkSheetFunction
Si je mets un point d'arrêt sur le MsgBox dans le traitement d'erreur et
que j'exécute le ligne dans la fenêtre Exécution, je récupère bien la
valeur attendue dans NumLigne.
Si je mets un point d'arrêt sur NumLigne=.... et que j'appuie sur F5 à
chaque passage (c'est dans une boucle) je n'ai pas d'erreur
Avez-vous une idée pour résoudre ce problème?
Merci d'avance
Bonjour,
La variable NomOrganisme est bien renseignée, je l'utilise quelques lignes
plus haut pour la même fonction (sur une autre feuille) qui ne pose pas de
problème.
Cette erreur se produit lorsqu'il ne trouve pas la valeur recherchée.
Mais elle y est bien vu que l'erreur ne se produit pas avec un point d'arrêt
sur la ligne.
Sans espoir, j'ai ajouté un DoEvents avant. Sans succès non plus!
--
Cordialement,
Gilbert
"Daniel.C" a écrit dans le message de
news:%Bonjour.
Ajoute :
MsgBox NomOrganisme
devant la ligne pour contrôler la valeur de la variable (le message se
produit si la variable n'est pas renseignée).
Cordialement.
DanielBonjour,
Dans une procédure j'utilise le code suivant
--------------
.........
NumLigne = Application.WorksheetFunction.Match(NomOrganisme,
Range("A:A"), 0)
Cells(NumLigne, 4) = NbHeuresPrescrites
NumOnglet = Format(Me.ListeMois, "m") + 1
ActiveWorkbook.Worksheets(NumOnglet).Activate
NumLigne = Application.WorksheetFunction.Match(NomOrganisme,
Range("A:A"), 0)
........
FinProc:
Application.ScreenUpdating = True
Exit Sub
TraitementErreur:
MsgBox "Erreur " & Err.Number & " : " & Err.Description
Resume FinProc
End Sub
------------------------------
A l'exécution, sur le 2° NumLigne=...., je reçois le message suivant :
Impossible de lire la propriété Match de la classe WorkSheetFunction
Si je mets un point d'arrêt sur le MsgBox dans le traitement d'erreur et
que j'exécute le ligne dans la fenêtre Exécution, je récupère bien la
valeur attendue dans NumLigne.
Si je mets un point d'arrêt sur NumLigne=.... et que j'appuie sur F5 à
chaque passage (c'est dans une boucle) je n'ai pas d'erreur
Avez-vous une idée pour résoudre ce problème?
Merci d'avance
Essaie en mettant :
NumLigne = Application.Match(NomOrganisme, Range("A:A"), 0)
J'ai lu un jour qu'il y avait parfois des résultats avec
"WorksheetFunction.Match"
DanielBonjour,
La variable NomOrganisme est bien renseignée, je l'utilise quelques lignes
plus haut pour la même fonction (sur une autre feuille) qui ne pose pas de
problème.
Cette erreur se produit lorsqu'il ne trouve pas la valeur recherchée.
Mais elle y est bien vu que l'erreur ne se produit pas avec un point
d'arrêt
sur la ligne.
Sans espoir, j'ai ajouté un DoEvents avant. Sans succès non plus!
-- Cordialement,
Gilbert
"Daniel.C" a écrit dans le message de
news:%Bonjour.
Ajoute :
MsgBox NomOrganisme
devant la ligne pour contrôler la valeur de la variable (le message se
produit si la variable n'est pas renseignée).
Cordialement.
DanielBonjour,
Dans une procédure j'utilise le code suivant
--------------
.........
NumLigne = Application.WorksheetFunction.Match(NomOrganisme,
Range("A:A"), 0)
Cells(NumLigne, 4) = NbHeuresPrescrites
NumOnglet = Format(Me.ListeMois, "m") + 1
ActiveWorkbook.Worksheets(NumOnglet).Activate
NumLigne = Application.WorksheetFunction.Match(NomOrganisme,
Range("A:A"), 0)
........
FinProc:
Application.ScreenUpdating = True
Exit Sub
TraitementErreur:
MsgBox "Erreur " & Err.Number & " : " & Err.Description
Resume FinProc
End Sub
------------------------------
A l'exécution, sur le 2° NumLigne=...., je reçois le message suivant :
Impossible de lire la propriété Match de la classe WorkSheetFunction
Si je mets un point d'arrêt sur le MsgBox dans le traitement d'erreur et
que j'exécute le ligne dans la fenêtre Exécution, je récupère bien la
valeur attendue dans NumLigne.
Si je mets un point d'arrêt sur NumLigne=.... et que j'appuie sur F5 à
chaque passage (c'est dans une boucle) je n'ai pas d'erreur
Avez-vous une idée pour résoudre ce problème?
Merci d'avance
Essaie en mettant :
NumLigne = Application.Match(NomOrganisme, Range("A:A"), 0)
J'ai lu un jour qu'il y avait parfois des résultats avec
"WorksheetFunction.Match"
Daniel
Bonjour,
La variable NomOrganisme est bien renseignée, je l'utilise quelques lignes
plus haut pour la même fonction (sur une autre feuille) qui ne pose pas de
problème.
Cette erreur se produit lorsqu'il ne trouve pas la valeur recherchée.
Mais elle y est bien vu que l'erreur ne se produit pas avec un point
d'arrêt
sur la ligne.
Sans espoir, j'ai ajouté un DoEvents avant. Sans succès non plus!
-- Cordialement,
Gilbert
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de
news:%23XgiNHwdJHA.3948@TK2MSFTNGP04.phx.gbl...
Bonjour.
Ajoute :
MsgBox NomOrganisme
devant la ligne pour contrôler la valeur de la variable (le message se
produit si la variable n'est pas renseignée).
Cordialement.
Daniel
Bonjour,
Dans une procédure j'utilise le code suivant
--------------
.........
NumLigne = Application.WorksheetFunction.Match(NomOrganisme,
Range("A:A"), 0)
Cells(NumLigne, 4) = NbHeuresPrescrites
NumOnglet = Format(Me.ListeMois, "m") + 1
ActiveWorkbook.Worksheets(NumOnglet).Activate
NumLigne = Application.WorksheetFunction.Match(NomOrganisme,
Range("A:A"), 0)
........
FinProc:
Application.ScreenUpdating = True
Exit Sub
TraitementErreur:
MsgBox "Erreur " & Err.Number & " : " & Err.Description
Resume FinProc
End Sub
------------------------------
A l'exécution, sur le 2° NumLigne=...., je reçois le message suivant :
Impossible de lire la propriété Match de la classe WorkSheetFunction
Si je mets un point d'arrêt sur le MsgBox dans le traitement d'erreur et
que j'exécute le ligne dans la fenêtre Exécution, je récupère bien la
valeur attendue dans NumLigne.
Si je mets un point d'arrêt sur NumLigne=.... et que j'appuie sur F5 à
chaque passage (c'est dans une boucle) je n'ai pas d'erreur
Avez-vous une idée pour résoudre ce problème?
Merci d'avance
Essaie en mettant :
NumLigne = Application.Match(NomOrganisme, Range("A:A"), 0)
J'ai lu un jour qu'il y avait parfois des résultats avec
"WorksheetFunction.Match"
DanielBonjour,
La variable NomOrganisme est bien renseignée, je l'utilise quelques lignes
plus haut pour la même fonction (sur une autre feuille) qui ne pose pas de
problème.
Cette erreur se produit lorsqu'il ne trouve pas la valeur recherchée.
Mais elle y est bien vu que l'erreur ne se produit pas avec un point
d'arrêt
sur la ligne.
Sans espoir, j'ai ajouté un DoEvents avant. Sans succès non plus!
-- Cordialement,
Gilbert
"Daniel.C" a écrit dans le message de
news:%Bonjour.
Ajoute :
MsgBox NomOrganisme
devant la ligne pour contrôler la valeur de la variable (le message se
produit si la variable n'est pas renseignée).
Cordialement.
DanielBonjour,
Dans une procédure j'utilise le code suivant
--------------
.........
NumLigne = Application.WorksheetFunction.Match(NomOrganisme,
Range("A:A"), 0)
Cells(NumLigne, 4) = NbHeuresPrescrites
NumOnglet = Format(Me.ListeMois, "m") + 1
ActiveWorkbook.Worksheets(NumOnglet).Activate
NumLigne = Application.WorksheetFunction.Match(NomOrganisme,
Range("A:A"), 0)
........
FinProc:
Application.ScreenUpdating = True
Exit Sub
TraitementErreur:
MsgBox "Erreur " & Err.Number & " : " & Err.Description
Resume FinProc
End Sub
------------------------------
A l'exécution, sur le 2° NumLigne=...., je reçois le message suivant :
Impossible de lire la propriété Match de la classe WorkSheetFunction
Si je mets un point d'arrêt sur le MsgBox dans le traitement d'erreur et
que j'exécute le ligne dans la fenêtre Exécution, je récupère bien la
valeur attendue dans NumLigne.
Si je mets un point d'arrêt sur NumLigne=.... et que j'appuie sur F5 à
chaque passage (c'est dans une boucle) je n'ai pas d'erreur
Avez-vous une idée pour résoudre ce problème?
Merci d'avance
Essaie en mettant :
NumLigne = Application.Match(NomOrganisme, Range("A:A"), 0)
J'ai lu un jour qu'il y avait parfois des résultats avec
"WorksheetFunction.Match"
Daniel
> Bonjour,
>
> La variable NomOrganisme est bien renseignée, je l'utilise quelques
> plus haut pour la même fonction (sur une autre feuille) qui ne pose pas
> problème.
> Cette erreur se produit lorsqu'il ne trouve pas la valeur recherchée.
> Mais elle y est bien vu que l'erreur ne se produit pas avec un point
> sur la ligne.
> Sans espoir, j'ai ajouté un DoEvents avant. Sans succès non plus!
>
> --
> Cordialement,
>
> Gilbert
>
>
> "Daniel.C" a écrit dans le message de
> news:%
>> Bonjour.
>> Ajoute :
>> MsgBox NomOrganisme
>> devant la ligne pour contrôler la valeur de la variable (le message se
>> produit si la variable n'est pas renseignée).
>> Cordialement.
>> Daniel
>>
>>> Bonjour,
>>>
>>> Dans une procédure j'utilise le code suivant
>>> --------------
>>> .........
>>> NumLigne = Application.WorksheetFunction.Match(NomOrganisme,
>>> Range("A:A"), 0)
>>> Cells(NumLigne, 4) = NbHeuresPrescrites
>>> NumOnglet = Format(Me.ListeMois, "m") + 1
>>> ActiveWorkbook.Worksheets(NumOnglet).Activate
>>> NumLigne = Application.WorksheetFunction.Match(NomOrganisme,
>>> Range("A:A"), 0)
>>> ........
>>> FinProc:
>>> Application.ScreenUpdating = True
>>> Exit Sub
>>> TraitementErreur:
>>> MsgBox "Erreur " & Err.Number & " : " & Err.Description
>>> Resume FinProc
>>> End Sub
>>> ------------------------------
>>>
>>> A l'exécution, sur le 2° NumLigne=...., je reçois le message suivant :
>>> Impossible de lire la propriété Match de la classe
>>>
>>> Si je mets un point d'arrêt sur le MsgBox dans le traitement d'erreur
>>> que j'exécute le ligne dans la fenêtre Exécution, je récupère bien la
>>> valeur attendue dans NumLigne.
>>> Si je mets un point d'arrêt sur NumLigne=.... et que j'appuie sur F5 à
>>> chaque passage (c'est dans une boucle) je n'ai pas d'erreur
>>>
>>> Avez-vous une idée pour résoudre ce problème?
>>>
>>> Merci d'avance
Essaie en mettant :
NumLigne = Application.Match(NomOrganisme, Range("A:A"), 0)
J'ai lu un jour qu'il y avait parfois des résultats avec
"WorksheetFunction.Match"
Daniel
> Bonjour,
>
> La variable NomOrganisme est bien renseignée, je l'utilise quelques
> plus haut pour la même fonction (sur une autre feuille) qui ne pose pas
> problème.
> Cette erreur se produit lorsqu'il ne trouve pas la valeur recherchée.
> Mais elle y est bien vu que l'erreur ne se produit pas avec un point
> sur la ligne.
> Sans espoir, j'ai ajouté un DoEvents avant. Sans succès non plus!
>
> --
> Cordialement,
>
> Gilbert
>
>
> "Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de
> news:%23XgiNHwdJHA.3948@TK2MSFTNGP04.phx.gbl...
>> Bonjour.
>> Ajoute :
>> MsgBox NomOrganisme
>> devant la ligne pour contrôler la valeur de la variable (le message se
>> produit si la variable n'est pas renseignée).
>> Cordialement.
>> Daniel
>>
>>> Bonjour,
>>>
>>> Dans une procédure j'utilise le code suivant
>>> --------------
>>> .........
>>> NumLigne = Application.WorksheetFunction.Match(NomOrganisme,
>>> Range("A:A"), 0)
>>> Cells(NumLigne, 4) = NbHeuresPrescrites
>>> NumOnglet = Format(Me.ListeMois, "m") + 1
>>> ActiveWorkbook.Worksheets(NumOnglet).Activate
>>> NumLigne = Application.WorksheetFunction.Match(NomOrganisme,
>>> Range("A:A"), 0)
>>> ........
>>> FinProc:
>>> Application.ScreenUpdating = True
>>> Exit Sub
>>> TraitementErreur:
>>> MsgBox "Erreur " & Err.Number & " : " & Err.Description
>>> Resume FinProc
>>> End Sub
>>> ------------------------------
>>>
>>> A l'exécution, sur le 2° NumLigne=...., je reçois le message suivant :
>>> Impossible de lire la propriété Match de la classe
>>>
>>> Si je mets un point d'arrêt sur le MsgBox dans le traitement d'erreur
>>> que j'exécute le ligne dans la fenêtre Exécution, je récupère bien la
>>> valeur attendue dans NumLigne.
>>> Si je mets un point d'arrêt sur NumLigne=.... et que j'appuie sur F5 à
>>> chaque passage (c'est dans une boucle) je n'ai pas d'erreur
>>>
>>> Avez-vous une idée pour résoudre ce problème?
>>>
>>> Merci d'avance
Essaie en mettant :
NumLigne = Application.Match(NomOrganisme, Range("A:A"), 0)
J'ai lu un jour qu'il y avait parfois des résultats avec
"WorksheetFunction.Match"
Daniel
> Bonjour,
>
> La variable NomOrganisme est bien renseignée, je l'utilise quelques
> plus haut pour la même fonction (sur une autre feuille) qui ne pose pas
> problème.
> Cette erreur se produit lorsqu'il ne trouve pas la valeur recherchée.
> Mais elle y est bien vu que l'erreur ne se produit pas avec un point
> sur la ligne.
> Sans espoir, j'ai ajouté un DoEvents avant. Sans succès non plus!
>
> --
> Cordialement,
>
> Gilbert
>
>
> "Daniel.C" a écrit dans le message de
> news:%
>> Bonjour.
>> Ajoute :
>> MsgBox NomOrganisme
>> devant la ligne pour contrôler la valeur de la variable (le message se
>> produit si la variable n'est pas renseignée).
>> Cordialement.
>> Daniel
>>
>>> Bonjour,
>>>
>>> Dans une procédure j'utilise le code suivant
>>> --------------
>>> .........
>>> NumLigne = Application.WorksheetFunction.Match(NomOrganisme,
>>> Range("A:A"), 0)
>>> Cells(NumLigne, 4) = NbHeuresPrescrites
>>> NumOnglet = Format(Me.ListeMois, "m") + 1
>>> ActiveWorkbook.Worksheets(NumOnglet).Activate
>>> NumLigne = Application.WorksheetFunction.Match(NomOrganisme,
>>> Range("A:A"), 0)
>>> ........
>>> FinProc:
>>> Application.ScreenUpdating = True
>>> Exit Sub
>>> TraitementErreur:
>>> MsgBox "Erreur " & Err.Number & " : " & Err.Description
>>> Resume FinProc
>>> End Sub
>>> ------------------------------
>>>
>>> A l'exécution, sur le 2° NumLigne=...., je reçois le message suivant :
>>> Impossible de lire la propriété Match de la classe
>>>
>>> Si je mets un point d'arrêt sur le MsgBox dans le traitement d'erreur
>>> que j'exécute le ligne dans la fenêtre Exécution, je récupère bien la
>>> valeur attendue dans NumLigne.
>>> Si je mets un point d'arrêt sur NumLigne=.... et que j'appuie sur F5 à
>>> chaque passage (c'est dans une boucle) je n'ai pas d'erreur
>>>
>>> Avez-vous une idée pour résoudre ce problème?
>>>
>>> Merci d'avance
Le problème est le même. L'erreur est différente.
Cette fois-ci je récupère le message "Incompatibilité de type"
Si je mets un point d'arrêt : pas de problème!
Je n'y comprends rien.
--
Cordialement,
Gilbert
"Daniel.C" a écrit dans le message de
news:%Essaie en mettant :
NumLigne = Application.Match(NomOrganisme, Range("A:A"), 0)
J'ai lu un jour qu'il y avait parfois des résultats avec
"WorksheetFunction.Match"
DanielBonjour,
La variable NomOrganisme est bien renseignée, je l'utilise quelques lignes
plus haut pour la même fonction (sur une autre feuille) qui ne pose pas de
problème.
Cette erreur se produit lorsqu'il ne trouve pas la valeur recherchée.
Mais elle y est bien vu que l'erreur ne se produit pas avec un point
d'arrêt sur la ligne.
Sans espoir, j'ai ajouté un DoEvents avant. Sans succès non plus!
--
Cordialement,
Gilbert
"Daniel.C" a écrit dans le message de
news:%Bonjour.
Ajoute :
MsgBox NomOrganisme
devant la ligne pour contrôler la valeur de la variable (le message se
produit si la variable n'est pas renseignée).
Cordialement.
DanielBonjour,
Dans une procédure j'utilise le code suivant
--------------
.........
NumLigne = Application.WorksheetFunction.Match(NomOrganisme,
Range("A:A"), 0)
Cells(NumLigne, 4) = NbHeuresPrescrites
NumOnglet = Format(Me.ListeMois, "m") + 1
ActiveWorkbook.Worksheets(NumOnglet).Activate
NumLigne = Application.WorksheetFunction.Match(NomOrganisme,
Range("A:A"), 0)
........
FinProc:
Application.ScreenUpdating = True
Exit Sub
TraitementErreur:
MsgBox "Erreur " & Err.Number & " : " & Err.Description
Resume FinProc
End Sub
------------------------------
A l'exécution, sur le 2° NumLigne=...., je reçois le message suivant :
Impossible de lire la propriété Match de la classe WorkSheetFunction
Si je mets un point d'arrêt sur le MsgBox dans le traitement d'erreur et
que j'exécute le ligne dans la fenêtre Exécution, je récupère bien la
valeur attendue dans NumLigne.
Si je mets un point d'arrêt sur NumLigne=.... et que j'appuie sur F5 à
chaque passage (c'est dans une boucle) je n'ai pas d'erreur
Avez-vous une idée pour résoudre ce problème?
Merci d'avance
Le problème est le même. L'erreur est différente.
Cette fois-ci je récupère le message "Incompatibilité de type"
Si je mets un point d'arrêt : pas de problème!
Je n'y comprends rien.
--
Cordialement,
Gilbert
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de
news:%233sfyRwdJHA.3520@TK2MSFTNGP05.phx.gbl...
Essaie en mettant :
NumLigne = Application.Match(NomOrganisme, Range("A:A"), 0)
J'ai lu un jour qu'il y avait parfois des résultats avec
"WorksheetFunction.Match"
Daniel
Bonjour,
La variable NomOrganisme est bien renseignée, je l'utilise quelques lignes
plus haut pour la même fonction (sur une autre feuille) qui ne pose pas de
problème.
Cette erreur se produit lorsqu'il ne trouve pas la valeur recherchée.
Mais elle y est bien vu que l'erreur ne se produit pas avec un point
d'arrêt sur la ligne.
Sans espoir, j'ai ajouté un DoEvents avant. Sans succès non plus!
--
Cordialement,
Gilbert
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de
news:%23XgiNHwdJHA.3948@TK2MSFTNGP04.phx.gbl...
Bonjour.
Ajoute :
MsgBox NomOrganisme
devant la ligne pour contrôler la valeur de la variable (le message se
produit si la variable n'est pas renseignée).
Cordialement.
Daniel
Bonjour,
Dans une procédure j'utilise le code suivant
--------------
.........
NumLigne = Application.WorksheetFunction.Match(NomOrganisme,
Range("A:A"), 0)
Cells(NumLigne, 4) = NbHeuresPrescrites
NumOnglet = Format(Me.ListeMois, "m") + 1
ActiveWorkbook.Worksheets(NumOnglet).Activate
NumLigne = Application.WorksheetFunction.Match(NomOrganisme,
Range("A:A"), 0)
........
FinProc:
Application.ScreenUpdating = True
Exit Sub
TraitementErreur:
MsgBox "Erreur " & Err.Number & " : " & Err.Description
Resume FinProc
End Sub
------------------------------
A l'exécution, sur le 2° NumLigne=...., je reçois le message suivant :
Impossible de lire la propriété Match de la classe WorkSheetFunction
Si je mets un point d'arrêt sur le MsgBox dans le traitement d'erreur et
que j'exécute le ligne dans la fenêtre Exécution, je récupère bien la
valeur attendue dans NumLigne.
Si je mets un point d'arrêt sur NumLigne=.... et que j'appuie sur F5 à
chaque passage (c'est dans une boucle) je n'ai pas d'erreur
Avez-vous une idée pour résoudre ce problème?
Merci d'avance
Le problème est le même. L'erreur est différente.
Cette fois-ci je récupère le message "Incompatibilité de type"
Si je mets un point d'arrêt : pas de problème!
Je n'y comprends rien.
--
Cordialement,
Gilbert
"Daniel.C" a écrit dans le message de
news:%Essaie en mettant :
NumLigne = Application.Match(NomOrganisme, Range("A:A"), 0)
J'ai lu un jour qu'il y avait parfois des résultats avec
"WorksheetFunction.Match"
DanielBonjour,
La variable NomOrganisme est bien renseignée, je l'utilise quelques lignes
plus haut pour la même fonction (sur une autre feuille) qui ne pose pas de
problème.
Cette erreur se produit lorsqu'il ne trouve pas la valeur recherchée.
Mais elle y est bien vu que l'erreur ne se produit pas avec un point
d'arrêt sur la ligne.
Sans espoir, j'ai ajouté un DoEvents avant. Sans succès non plus!
--
Cordialement,
Gilbert
"Daniel.C" a écrit dans le message de
news:%Bonjour.
Ajoute :
MsgBox NomOrganisme
devant la ligne pour contrôler la valeur de la variable (le message se
produit si la variable n'est pas renseignée).
Cordialement.
DanielBonjour,
Dans une procédure j'utilise le code suivant
--------------
.........
NumLigne = Application.WorksheetFunction.Match(NomOrganisme,
Range("A:A"), 0)
Cells(NumLigne, 4) = NbHeuresPrescrites
NumOnglet = Format(Me.ListeMois, "m") + 1
ActiveWorkbook.Worksheets(NumOnglet).Activate
NumLigne = Application.WorksheetFunction.Match(NomOrganisme,
Range("A:A"), 0)
........
FinProc:
Application.ScreenUpdating = True
Exit Sub
TraitementErreur:
MsgBox "Erreur " & Err.Number & " : " & Err.Description
Resume FinProc
End Sub
------------------------------
A l'exécution, sur le 2° NumLigne=...., je reçois le message suivant :
Impossible de lire la propriété Match de la classe WorkSheetFunction
Si je mets un point d'arrêt sur le MsgBox dans le traitement d'erreur et
que j'exécute le ligne dans la fenêtre Exécution, je récupère bien la
valeur attendue dans NumLigne.
Si je mets un point d'arrêt sur NumLigne=.... et que j'appuie sur F5 à
chaque passage (c'est dans une boucle) je n'ai pas d'erreur
Avez-vous une idée pour résoudre ce problème?
Merci d'avance
Ca ne sent pas bon...
Pour tester, peux-tu recopier les feuilles nécessaires à l'exécution de
la macro dans un nouveau classeur et exécuter la macro ?
Daniel
> Le problème est le même. L'erreur est différente.
> Cette fois-ci je récupère le message "Incompatibilité de type"
> Si je mets un point d'arrêt : pas de problème!
> Je n'y comprends rien.
>
> --
> Cordialement,
>
> Gilbert
>
>
> "Daniel.C" a écrit dans le message de
> news:%
>> Essaie en mettant :
>> NumLigne = Application.Match(NomOrganisme, Range("A:A"), 0)
>> J'ai lu un jour qu'il y avait parfois des résultats avec
>> "WorksheetFunction.Match"
>> Daniel
>>> Bonjour,
>>>
>>> La variable NomOrganisme est bien renseignée, je l'utilise quelques
>>> plus haut pour la même fonction (sur une autre feuille) qui ne pose
>>> problème.
>>> Cette erreur se produit lorsqu'il ne trouve pas la valeur recherchée.
>>> Mais elle y est bien vu que l'erreur ne se produit pas avec un point
>>> d'arrêt sur la ligne.
>>> Sans espoir, j'ai ajouté un DoEvents avant. Sans succès non plus!
>>>
>>> --
>>> Cordialement,
>>>
>>> Gilbert
>>>
>>>
>>> "Daniel.C" a écrit dans le message de
>>> news:%
>>>> Bonjour.
>>>> Ajoute :
>>>> MsgBox NomOrganisme
>>>> devant la ligne pour contrôler la valeur de la variable (le message
>>>> produit si la variable n'est pas renseignée).
>>>> Cordialement.
>>>> Daniel
>>>>
>>>>> Bonjour,
>>>>>
>>>>> Dans une procédure j'utilise le code suivant
>>>>> --------------
>>>>> .........
>>>>> NumLigne = Application.WorksheetFunction.Match(NomOrganisme,
>>>>> Range("A:A"), 0)
>>>>> Cells(NumLigne, 4) = NbHeuresPrescrites
>>>>> NumOnglet = Format(Me.ListeMois, "m") + 1
>>>>> ActiveWorkbook.Worksheets(NumOnglet).Activate
>>>>> NumLigne = Application.WorksheetFunction.Match(NomOrganisme,
>>>>> Range("A:A"), 0)
>>>>> ........
>>>>> FinProc:
>>>>> Application.ScreenUpdating = True
>>>>> Exit Sub
>>>>> TraitementErreur:
>>>>> MsgBox "Erreur " & Err.Number & " : " & Err.Description
>>>>> Resume FinProc
>>>>> End Sub
>>>>> ------------------------------
>>>>>
>>>>> A l'exécution, sur le 2° NumLigne=...., je reçois le message suivant
>>>>> Impossible de lire la propriété Match de la classe
>>>>>
>>>>> Si je mets un point d'arrêt sur le MsgBox dans le traitement
>>>>> que j'exécute le ligne dans la fenêtre Exécution, je récupère bien
>>>>> valeur attendue dans NumLigne.
>>>>> Si je mets un point d'arrêt sur NumLigne=.... et que j'appuie sur F5
>>>>> chaque passage (c'est dans une boucle) je n'ai pas d'erreur
>>>>>
>>>>> Avez-vous une idée pour résoudre ce problème?
>>>>>
>>>>> Merci d'avance
Ca ne sent pas bon...
Pour tester, peux-tu recopier les feuilles nécessaires à l'exécution de
la macro dans un nouveau classeur et exécuter la macro ?
Daniel
> Le problème est le même. L'erreur est différente.
> Cette fois-ci je récupère le message "Incompatibilité de type"
> Si je mets un point d'arrêt : pas de problème!
> Je n'y comprends rien.
>
> --
> Cordialement,
>
> Gilbert
>
>
> "Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de
> news:%233sfyRwdJHA.3520@TK2MSFTNGP05.phx.gbl...
>> Essaie en mettant :
>> NumLigne = Application.Match(NomOrganisme, Range("A:A"), 0)
>> J'ai lu un jour qu'il y avait parfois des résultats avec
>> "WorksheetFunction.Match"
>> Daniel
>>> Bonjour,
>>>
>>> La variable NomOrganisme est bien renseignée, je l'utilise quelques
>>> plus haut pour la même fonction (sur une autre feuille) qui ne pose
>>> problème.
>>> Cette erreur se produit lorsqu'il ne trouve pas la valeur recherchée.
>>> Mais elle y est bien vu que l'erreur ne se produit pas avec un point
>>> d'arrêt sur la ligne.
>>> Sans espoir, j'ai ajouté un DoEvents avant. Sans succès non plus!
>>>
>>> --
>>> Cordialement,
>>>
>>> Gilbert
>>>
>>>
>>> "Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de
>>> news:%23XgiNHwdJHA.3948@TK2MSFTNGP04.phx.gbl...
>>>> Bonjour.
>>>> Ajoute :
>>>> MsgBox NomOrganisme
>>>> devant la ligne pour contrôler la valeur de la variable (le message
>>>> produit si la variable n'est pas renseignée).
>>>> Cordialement.
>>>> Daniel
>>>>
>>>>> Bonjour,
>>>>>
>>>>> Dans une procédure j'utilise le code suivant
>>>>> --------------
>>>>> .........
>>>>> NumLigne = Application.WorksheetFunction.Match(NomOrganisme,
>>>>> Range("A:A"), 0)
>>>>> Cells(NumLigne, 4) = NbHeuresPrescrites
>>>>> NumOnglet = Format(Me.ListeMois, "m") + 1
>>>>> ActiveWorkbook.Worksheets(NumOnglet).Activate
>>>>> NumLigne = Application.WorksheetFunction.Match(NomOrganisme,
>>>>> Range("A:A"), 0)
>>>>> ........
>>>>> FinProc:
>>>>> Application.ScreenUpdating = True
>>>>> Exit Sub
>>>>> TraitementErreur:
>>>>> MsgBox "Erreur " & Err.Number & " : " & Err.Description
>>>>> Resume FinProc
>>>>> End Sub
>>>>> ------------------------------
>>>>>
>>>>> A l'exécution, sur le 2° NumLigne=...., je reçois le message suivant
>>>>> Impossible de lire la propriété Match de la classe
>>>>>
>>>>> Si je mets un point d'arrêt sur le MsgBox dans le traitement
>>>>> que j'exécute le ligne dans la fenêtre Exécution, je récupère bien
>>>>> valeur attendue dans NumLigne.
>>>>> Si je mets un point d'arrêt sur NumLigne=.... et que j'appuie sur F5
>>>>> chaque passage (c'est dans une boucle) je n'ai pas d'erreur
>>>>>
>>>>> Avez-vous une idée pour résoudre ce problème?
>>>>>
>>>>> Merci d'avance
Ca ne sent pas bon...
Pour tester, peux-tu recopier les feuilles nécessaires à l'exécution de
la macro dans un nouveau classeur et exécuter la macro ?
Daniel
> Le problème est le même. L'erreur est différente.
> Cette fois-ci je récupère le message "Incompatibilité de type"
> Si je mets un point d'arrêt : pas de problème!
> Je n'y comprends rien.
>
> --
> Cordialement,
>
> Gilbert
>
>
> "Daniel.C" a écrit dans le message de
> news:%
>> Essaie en mettant :
>> NumLigne = Application.Match(NomOrganisme, Range("A:A"), 0)
>> J'ai lu un jour qu'il y avait parfois des résultats avec
>> "WorksheetFunction.Match"
>> Daniel
>>> Bonjour,
>>>
>>> La variable NomOrganisme est bien renseignée, je l'utilise quelques
>>> plus haut pour la même fonction (sur une autre feuille) qui ne pose
>>> problème.
>>> Cette erreur se produit lorsqu'il ne trouve pas la valeur recherchée.
>>> Mais elle y est bien vu que l'erreur ne se produit pas avec un point
>>> d'arrêt sur la ligne.
>>> Sans espoir, j'ai ajouté un DoEvents avant. Sans succès non plus!
>>>
>>> --
>>> Cordialement,
>>>
>>> Gilbert
>>>
>>>
>>> "Daniel.C" a écrit dans le message de
>>> news:%
>>>> Bonjour.
>>>> Ajoute :
>>>> MsgBox NomOrganisme
>>>> devant la ligne pour contrôler la valeur de la variable (le message
>>>> produit si la variable n'est pas renseignée).
>>>> Cordialement.
>>>> Daniel
>>>>
>>>>> Bonjour,
>>>>>
>>>>> Dans une procédure j'utilise le code suivant
>>>>> --------------
>>>>> .........
>>>>> NumLigne = Application.WorksheetFunction.Match(NomOrganisme,
>>>>> Range("A:A"), 0)
>>>>> Cells(NumLigne, 4) = NbHeuresPrescrites
>>>>> NumOnglet = Format(Me.ListeMois, "m") + 1
>>>>> ActiveWorkbook.Worksheets(NumOnglet).Activate
>>>>> NumLigne = Application.WorksheetFunction.Match(NomOrganisme,
>>>>> Range("A:A"), 0)
>>>>> ........
>>>>> FinProc:
>>>>> Application.ScreenUpdating = True
>>>>> Exit Sub
>>>>> TraitementErreur:
>>>>> MsgBox "Erreur " & Err.Number & " : " & Err.Description
>>>>> Resume FinProc
>>>>> End Sub
>>>>> ------------------------------
>>>>>
>>>>> A l'exécution, sur le 2° NumLigne=...., je reçois le message suivant
>>>>> Impossible de lire la propriété Match de la classe
>>>>>
>>>>> Si je mets un point d'arrêt sur le MsgBox dans le traitement
>>>>> que j'exécute le ligne dans la fenêtre Exécution, je récupère bien
>>>>> valeur attendue dans NumLigne.
>>>>> Si je mets un point d'arrêt sur NumLigne=.... et que j'appuie sur F5
>>>>> chaque passage (c'est dans une boucle) je n'ai pas d'erreur
>>>>>
>>>>> Avez-vous une idée pour résoudre ce problème?
>>>>>
>>>>> Merci d'avance
Bonjour,
Dans une procédure j'utilise le code suivant
--------------
.........
NumLigne = Application.WorksheetFunction.Match(NomOrganisme,
Range("A:A"), 0)
Cells(NumLigne, 4) = NbHeuresPrescrites
NumOnglet = Format(Me.ListeMois, "m") + 1
ActiveWorkbook.Worksheets(NumOnglet).Activate
NumLigne = Application.WorksheetFunction.Match(NomOrganisme,
Range("A:A"), 0)
........
FinProc:
Application.ScreenUpdating = True
Exit Sub
TraitementErreur:
MsgBox "Erreur " & Err.Number & " : " & Err.Description
Resume FinProc
End Sub
------------------------------
A l'exécution, sur le 2° NumLigne=...., je reçois le message suivant :
Impossible de lire la propriété Match de la classe WorkSheetFunction
Si je mets un point d'arrêt sur le MsgBox dans le traitement d'erreur et que
j'exécute le ligne dans la fenêtre Exécution, je récupère bien la valeur
attendue dans NumLigne.
Si je mets un point d'arrêt sur NumLigne=.... et que j'appuie sur F5 à
chaque passage (c'est dans une boucle) je n'ai pas d'erreur
Avez-vous une idée pour résoudre ce problème?
Merci d'avance
Bonjour,
Dans une procédure j'utilise le code suivant
--------------
.........
NumLigne = Application.WorksheetFunction.Match(NomOrganisme,
Range("A:A"), 0)
Cells(NumLigne, 4) = NbHeuresPrescrites
NumOnglet = Format(Me.ListeMois, "m") + 1
ActiveWorkbook.Worksheets(NumOnglet).Activate
NumLigne = Application.WorksheetFunction.Match(NomOrganisme,
Range("A:A"), 0)
........
FinProc:
Application.ScreenUpdating = True
Exit Sub
TraitementErreur:
MsgBox "Erreur " & Err.Number & " : " & Err.Description
Resume FinProc
End Sub
------------------------------
A l'exécution, sur le 2° NumLigne=...., je reçois le message suivant :
Impossible de lire la propriété Match de la classe WorkSheetFunction
Si je mets un point d'arrêt sur le MsgBox dans le traitement d'erreur et que
j'exécute le ligne dans la fenêtre Exécution, je récupère bien la valeur
attendue dans NumLigne.
Si je mets un point d'arrêt sur NumLigne=.... et que j'appuie sur F5 à
chaque passage (c'est dans une boucle) je n'ai pas d'erreur
Avez-vous une idée pour résoudre ce problème?
Merci d'avance
Bonjour,
Dans une procédure j'utilise le code suivant
--------------
.........
NumLigne = Application.WorksheetFunction.Match(NomOrganisme,
Range("A:A"), 0)
Cells(NumLigne, 4) = NbHeuresPrescrites
NumOnglet = Format(Me.ListeMois, "m") + 1
ActiveWorkbook.Worksheets(NumOnglet).Activate
NumLigne = Application.WorksheetFunction.Match(NomOrganisme,
Range("A:A"), 0)
........
FinProc:
Application.ScreenUpdating = True
Exit Sub
TraitementErreur:
MsgBox "Erreur " & Err.Number & " : " & Err.Description
Resume FinProc
End Sub
------------------------------
A l'exécution, sur le 2° NumLigne=...., je reçois le message suivant :
Impossible de lire la propriété Match de la classe WorkSheetFunction
Si je mets un point d'arrêt sur le MsgBox dans le traitement d'erreur et que
j'exécute le ligne dans la fenêtre Exécution, je récupère bien la valeur
attendue dans NumLigne.
Si je mets un point d'arrêt sur NumLigne=.... et que j'appuie sur F5 à
chaque passage (c'est dans une boucle) je n'ai pas d'erreur
Avez-vous une idée pour résoudre ce problème?
Merci d'avance
Un petit exemple :
Dans la colonne A1:A10 -> des cellules au
format texte contenant des valeurs numériques
X = Application.Match(1, Range("A1:A10"), 0)
x = erreur -> 2042
Par contre
X = Application.Match("1", Range("A1:A10"), 0)
retourne la valeur attendue.
Est-ce que le type de valeur du premier argument de
la fonction Match correspond au type de valeur affichée
dans la plage de cellules ?
Est-ce que tu es sûr que c'est la bonne feuille qui est affichée
auquel range("a:A") fait référence dans la fonction.
Si ta procédure est écrite dans un module feuille, Range("a:a")
fait obligatoirement référence à cette feuille si tu n'as pas
spécifié le nom de la feuille à laquelle il appartient.
"Gilbert" a écrit dans le message de
discussion :
Bonjour,
Dans une procédure j'utilise le code suivant
--------------
.........
NumLigne = Application.WorksheetFunction.Match(NomOrganisme,
Range("A:A"), 0)
Cells(NumLigne, 4) = NbHeuresPrescrites
NumOnglet = Format(Me.ListeMois, "m") + 1
ActiveWorkbook.Worksheets(NumOnglet).Activate
NumLigne = Application.WorksheetFunction.Match(NomOrganisme,
Range("A:A"), 0)
........
FinProc:
Application.ScreenUpdating = True
Exit Sub
TraitementErreur:
MsgBox "Erreur " & Err.Number & " : " & Err.Description
Resume FinProc
End Sub
------------------------------
A l'exécution, sur le 2° NumLigne=...., je reçois le message suivant :
Impossible de lire la propriété Match de la classe WorkSheetFunction
Si je mets un point d'arrêt sur le MsgBox dans le traitement d'erreur et
j'exécute le ligne dans la fenêtre Exécution, je récupère bien la valeur
attendue dans NumLigne.
Si je mets un point d'arrêt sur NumLigne=.... et que j'appuie sur F5 à
chaque passage (c'est dans une boucle) je n'ai pas d'erreur
Avez-vous une idée pour résoudre ce problème?
Merci d'avance
--
Cordialement,
Gilbert
Un petit exemple :
Dans la colonne A1:A10 -> des cellules au
format texte contenant des valeurs numériques
X = Application.Match(1, Range("A1:A10"), 0)
x = erreur -> 2042
Par contre
X = Application.Match("1", Range("A1:A10"), 0)
retourne la valeur attendue.
Est-ce que le type de valeur du premier argument de
la fonction Match correspond au type de valeur affichée
dans la plage de cellules ?
Est-ce que tu es sûr que c'est la bonne feuille qui est affichée
auquel range("a:A") fait référence dans la fonction.
Si ta procédure est écrite dans un module feuille, Range("a:a")
fait obligatoirement référence à cette feuille si tu n'as pas
spécifié le nom de la feuille à laquelle il appartient.
"Gilbert" <ZZZgilbertvie@NOSPAMlaposte.net> a écrit dans le message de
discussion : ulFbjDvdJHA.4900@TK2MSFTNGP06.phx.gbl...
Bonjour,
Dans une procédure j'utilise le code suivant
--------------
.........
NumLigne = Application.WorksheetFunction.Match(NomOrganisme,
Range("A:A"), 0)
Cells(NumLigne, 4) = NbHeuresPrescrites
NumOnglet = Format(Me.ListeMois, "m") + 1
ActiveWorkbook.Worksheets(NumOnglet).Activate
NumLigne = Application.WorksheetFunction.Match(NomOrganisme,
Range("A:A"), 0)
........
FinProc:
Application.ScreenUpdating = True
Exit Sub
TraitementErreur:
MsgBox "Erreur " & Err.Number & " : " & Err.Description
Resume FinProc
End Sub
------------------------------
A l'exécution, sur le 2° NumLigne=...., je reçois le message suivant :
Impossible de lire la propriété Match de la classe WorkSheetFunction
Si je mets un point d'arrêt sur le MsgBox dans le traitement d'erreur et
j'exécute le ligne dans la fenêtre Exécution, je récupère bien la valeur
attendue dans NumLigne.
Si je mets un point d'arrêt sur NumLigne=.... et que j'appuie sur F5 à
chaque passage (c'est dans une boucle) je n'ai pas d'erreur
Avez-vous une idée pour résoudre ce problème?
Merci d'avance
--
Cordialement,
Gilbert
Un petit exemple :
Dans la colonne A1:A10 -> des cellules au
format texte contenant des valeurs numériques
X = Application.Match(1, Range("A1:A10"), 0)
x = erreur -> 2042
Par contre
X = Application.Match("1", Range("A1:A10"), 0)
retourne la valeur attendue.
Est-ce que le type de valeur du premier argument de
la fonction Match correspond au type de valeur affichée
dans la plage de cellules ?
Est-ce que tu es sûr que c'est la bonne feuille qui est affichée
auquel range("a:A") fait référence dans la fonction.
Si ta procédure est écrite dans un module feuille, Range("a:a")
fait obligatoirement référence à cette feuille si tu n'as pas
spécifié le nom de la feuille à laquelle il appartient.
"Gilbert" a écrit dans le message de
discussion :
Bonjour,
Dans une procédure j'utilise le code suivant
--------------
.........
NumLigne = Application.WorksheetFunction.Match(NomOrganisme,
Range("A:A"), 0)
Cells(NumLigne, 4) = NbHeuresPrescrites
NumOnglet = Format(Me.ListeMois, "m") + 1
ActiveWorkbook.Worksheets(NumOnglet).Activate
NumLigne = Application.WorksheetFunction.Match(NomOrganisme,
Range("A:A"), 0)
........
FinProc:
Application.ScreenUpdating = True
Exit Sub
TraitementErreur:
MsgBox "Erreur " & Err.Number & " : " & Err.Description
Resume FinProc
End Sub
------------------------------
A l'exécution, sur le 2° NumLigne=...., je reçois le message suivant :
Impossible de lire la propriété Match de la classe WorkSheetFunction
Si je mets un point d'arrêt sur le MsgBox dans le traitement d'erreur et
j'exécute le ligne dans la fenêtre Exécution, je récupère bien la valeur
attendue dans NumLigne.
Si je mets un point d'arrêt sur NumLigne=.... et que j'appuie sur F5 à
chaque passage (c'est dans une boucle) je n'ai pas d'erreur
Avez-vous une idée pour résoudre ce problème?
Merci d'avance
--
Cordialement,
Gilbert