j'ai eu il y quelques temps l'aide d'un colistier*sur une formule
mais je ne me rapelle pas qui et les explications qu'il m'avait donné je
les ai oubliées
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Bourby
Bonjour,
ElseIf Not IsError(Application.Match(CLng(MyDate), Range("feriers"), 0)) ... il est peut-être allergique aux fautes d'orthographe? (juste pour la blague et sans méchanceté).
En revanche, si tu n'as pas nommé un plage "feriers", il ne va pas la trouver. Est-ce ça le problème?
Cordialement.
Bourby
"Christian Raoux" a écrit dans le message news:
salut
j'ai eu il y quelques temps l'aide d'un colistier*sur une formule mais je ne me rapelle pas qui et les explications qu'il m'avait donné je les ai oubliées
If MyWeekDay = 1 Then ActiveCell = "AMD" Selection.Font.ColorIndex = 3 Selection.Interior.ColorIndex = Sheets("Parametres").Range _ ("I3").Interior.ColorIndex ElseIf Not IsError(Application.Match(CLng(MyDate), Range("feriers"), 0)) Then ActiveCell = "AMF" Selection.Font.ColorIndex = 3 Selection.Interior.ColorIndex = Sheets("Parametres").Range ("I3").Interior.ColorIndex Else 'ActiveCell = "A" Selection.Font.ColorIndex = 1 Selection.Interior.ColorIndex = Sheets("Parametres").Range ("I3").Interior.ColorIndex End If End If
peut on m'expliquer la ligne suivante
ElseIf Not IsError(Application.Match(CLng(MyDate), Range("feriers"), 0)) Then
car je la macro ne fonctione plus
merci d'avance
Christian
Bonjour,
ElseIf Not IsError(Application.Match(CLng(MyDate), Range("feriers"), 0))
... il est peut-être allergique aux fautes d'orthographe?
(juste pour la blague et sans méchanceté).
En revanche, si tu n'as pas nommé un plage "feriers",
il ne va pas la trouver. Est-ce ça le problème?
Cordialement.
Bourby
"Christian Raoux" <christian.raoux@free.fr> a écrit dans le message news:
XnF9429ADC42D11Dchristianraoux@213.228.0.138...
salut
j'ai eu il y quelques temps l'aide d'un colistier*sur une formule
mais je ne me rapelle pas qui et les explications qu'il m'avait donné je
les ai oubliées
ElseIf Not IsError(Application.Match(CLng(MyDate), Range("feriers"), 0)) ... il est peut-être allergique aux fautes d'orthographe? (juste pour la blague et sans méchanceté).
En revanche, si tu n'as pas nommé un plage "feriers", il ne va pas la trouver. Est-ce ça le problème?
Cordialement.
Bourby
"Christian Raoux" a écrit dans le message news:
salut
j'ai eu il y quelques temps l'aide d'un colistier*sur une formule mais je ne me rapelle pas qui et les explications qu'il m'avait donné je les ai oubliées
ElseIf Not IsError(Application.Match(CLng(MyDate), Range("feriers"), 0)) ... il est peut-être allergique aux fautes d'orthographe? (juste pour la blague et sans méchanceté).
En revanche, si tu n'as pas nommé un plage "feriers", il ne va pas la trouver. Est-ce ça le problème?
Cordialement.
Bourby
"Christian Raoux" a écrit dans le message news:
salut
j'ai eu il y quelques temps l'aide d'un colistier*sur une formule mais je ne me rapelle pas qui et les explications qu'il m'avait donné je les ai oubliées
ElseIf Not IsError(Application.Match(CLng(MyDate),
Range("feriers"), 0)) ... il est peut-être allergique aux fautes
d'orthographe? (juste pour la blague et sans méchanceté).
En revanche, si tu n'as pas nommé un plage "feriers", il ne va pas
la trouver. Est-ce ça le problème?
Cordialement.
Bourby
"Christian Raoux" <christian.raoux@free.fr> a écrit dans le message
news: XnF9429ADC42D11Dchristianraoux@213.228.0.138...
salut
j'ai eu il y quelques temps l'aide d'un colistier*sur une formule
mais je ne me rapelle pas qui et les explications qu'il m'avait
donné je les ai oubliées
ElseIf Not IsError(Application.Match(CLng(MyDate), Range("feriers"), 0)) ... il est peut-être allergique aux fautes d'orthographe? (juste pour la blague et sans méchanceté).
En revanche, si tu n'as pas nommé un plage "feriers", il ne va pas la trouver. Est-ce ça le problème?
Cordialement.
Bourby
"Christian Raoux" a écrit dans le message news:
salut
j'ai eu il y quelques temps l'aide d'un colistier*sur une formule mais je ne me rapelle pas qui et les explications qu'il m'avait donné je les ai oubliées
If MyWeekDay = 1 Then ActiveCell = "AMD" Selection.Font.ColorIndex = 3 Selection.Interior.ColorIndex = Sheets("Parametres").Range _ ("I3").Interior.ColorIndex ElseIf Not IsError(Application.Match(CLng(MyDate), Range("feriers"), 0)) Then ActiveCell = "AMF" Selection.Font.ColorIndex = 3 Selection.Interior.ColorIndex = Sheets("Parametres").Range ("I3").Interior.ColorIndex Else 'ActiveCell = "A" Selection.Font.ColorIndex = 1 Selection.Interior.ColorIndex = Sheets("Parametres").Range ("I3").Interior.ColorIndex End If End If
peut on m'expliquer la ligne suivante
ElseIf Not IsError(Application.Match(CLng(MyDate), Range("feriers"), 0)) Then
car je la macro ne fonctione plus
merci d'avance
Christian
Bourby
re bonjour,
je ne suispas un grand spécialiste, mais voilà ce qu'il m'en semble:
IsError est une fonction de VBA; elle renvoie une valeur logique (faux ou vrai ) selon que la méthode (Î qui est entre parenthèses) s'est exécutée correctement ou non. L'idée est que si Match ne trouve pas ce qu'il cherche (maDate convertie en nombre), il retournera une valeur d'erreur, et donc Iserror(Match....) sera VRAI.
Mais il y a un hic: Match n'est pas une méthode de VBA, (c'est une fonction d'Excel je crois). Tu pourrais essayer avec la méthode VBA Find. Si elle ne trouve rien, elle renvoie une plage vide (Nothing) et non pas un code d'erreur. La fonction qui teste si une plage "maCellule" est vide ou pleine est if range("maCellule") is Nothing. Il me semble donc que le code correct serait: ElseIf Not Range("feriers").Find(CLng(MyDate)) is Nothing
N'hésite pas à consulter l'aide de VBA.
Je n'ai plus de temps ce soir, j'espère que tu t'en sortiras.
Cordialement
Bourby
"Christian Raoux" a écrit dans le message news:
salut il y une plage nommé "feriers" (sans accents)
mais c'est sur cette lique que je voudrais des explications car je ne comprend pas IsError et Aplication.Match
If MyWeekDay = 1 Then ActiveCell = "AMD" Selection.Font.ColorIndex = 3 Selection.Interior.ColorIndex = Sheets("Parametres").Range _ ("I3").Interior.ColorIndex ElseIf Not IsError(Application.Match(CLng(MyDate), Range("feriers"), 0)) Then ActiveCell = "AMF" Selection.Font.ColorIndex = 3 Selection.Interior.ColorIndex = Sheets("Parametres").Range ("I3").Interior.ColorIndex Else 'ActiveCell = "A" Selection.Font.ColorIndex = 1 Selection.Interior.ColorIndex = Sheets("Parametres").Range ("I3").Interior.ColorIndex End If End If
peut on m'expliquer la ligne suivante
ElseIf Not IsError(Application.Match(CLng(MyDate), Range("feriers"), 0))
Then
car je la macro ne fonctione plus
merci d'avance
Christian
re bonjour,
je ne suispas un grand spécialiste, mais voilà ce qu'il m'en semble:
IsError est une fonction de VBA; elle renvoie une valeur logique
(faux ou vrai ) selon que la méthode (Î qui est entre parenthèses)
s'est exécutée correctement ou non.
L'idée est que si Match ne trouve pas ce qu'il cherche
(maDate convertie en nombre), il retournera une valeur d'erreur, et donc
Iserror(Match....) sera VRAI.
Mais il y a un hic: Match n'est pas une méthode de VBA,
(c'est une fonction d'Excel je crois).
Tu pourrais essayer avec la méthode VBA Find.
Si elle ne trouve rien, elle renvoie une plage vide
(Nothing) et non pas un code d'erreur.
La fonction qui teste si une plage "maCellule" est vide ou pleine
est if range("maCellule") is Nothing.
Il me semble donc que le code correct serait:
ElseIf Not Range("feriers").Find(CLng(MyDate)) is Nothing
N'hésite pas à consulter l'aide de VBA.
Je n'ai plus de temps ce soir, j'espère que tu t'en sortiras.
Cordialement
Bourby
"Christian Raoux" <christian.raoux@free.fr> a écrit dans le message news:
XnF9429BFEEC4244christianraoux@213.228.0.138...
salut
il y une plage nommé "feriers" (sans accents)
mais c'est sur cette lique que je voudrais des explications car je ne
comprend pas IsError et Aplication.Match
je ne suispas un grand spécialiste, mais voilà ce qu'il m'en semble:
IsError est une fonction de VBA; elle renvoie une valeur logique (faux ou vrai ) selon que la méthode (Î qui est entre parenthèses) s'est exécutée correctement ou non. L'idée est que si Match ne trouve pas ce qu'il cherche (maDate convertie en nombre), il retournera une valeur d'erreur, et donc Iserror(Match....) sera VRAI.
Mais il y a un hic: Match n'est pas une méthode de VBA, (c'est une fonction d'Excel je crois). Tu pourrais essayer avec la méthode VBA Find. Si elle ne trouve rien, elle renvoie une plage vide (Nothing) et non pas un code d'erreur. La fonction qui teste si une plage "maCellule" est vide ou pleine est if range("maCellule") is Nothing. Il me semble donc que le code correct serait: ElseIf Not Range("feriers").Find(CLng(MyDate)) is Nothing
N'hésite pas à consulter l'aide de VBA.
Je n'ai plus de temps ce soir, j'espère que tu t'en sortiras.
Cordialement
Bourby
"Christian Raoux" a écrit dans le message news:
salut il y une plage nommé "feriers" (sans accents)
mais c'est sur cette lique que je voudrais des explications car je ne comprend pas IsError et Aplication.Match
