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
j'ai dans une macro
Sub ControlCouleur()
Dim MyDate, MyWeekDay
CellCol = ActiveCell.Column
Ligne = ActiveCell.Row
MyDate = Cells(3, CellCol)
MyWeekDay = Weekday(MyDate)
If ActiveCell = "AM" Then
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
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
j'ai dans une macro
Sub ControlCouleur()
Dim MyDate, MyWeekDay
CellCol = ActiveCell.Column
Ligne = ActiveCell.Row
MyDate = Cells(3, CellCol)
MyWeekDay = Weekday(MyDate)
If ActiveCell = "AM" Then
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
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
j'ai dans une macro
Sub ControlCouleur()
Dim MyDate, MyWeekDay
CellCol = ActiveCell.Column
Ligne = ActiveCell.Row
MyDate = Cells(3, CellCol)
MyWeekDay = Weekday(MyDate)
If ActiveCell = "AM" Then
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" 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
j'ai dans une macro
Sub ControlCouleur()
Dim MyDate, MyWeekDay
CellCol = ActiveCell.Column
Ligne = ActiveCell.Row
MyDate = Cells(3, CellCol)
MyWeekDay = Weekday(MyDate)
If ActiveCell = "AM" Then
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
j'ai dans une macro
Sub ControlCouleur()
Dim MyDate, MyWeekDay
CellCol = ActiveCell.Column
Ligne = ActiveCell.Row
MyDate = Cells(3, CellCol)
MyWeekDay = Weekday(MyDate)
If ActiveCell = "AM" Then
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" 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
j'ai dans une macro
Sub ControlCouleur()
Dim MyDate, MyWeekDay
CellCol = ActiveCell.Column
Ligne = ActiveCell.Row
MyDate = Cells(3, CellCol)
MyWeekDay = Weekday(MyDate)
If ActiveCell = "AM" Then
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
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
merci
christian
"Bourby" écrivait news:Oysc3svoDHA.2416
@TK2MSFTNGP10.phx.gbl: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é
jeles ai oubliées
j'ai dans une macro
Sub ControlCouleur()
Dim MyDate, MyWeekDay
CellCol = ActiveCell.Column
Ligne = ActiveCell.Row
MyDate = Cells(3, CellCol)
MyWeekDay = Weekday(MyDate)
If ActiveCell = "AM" Then
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
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
merci
christian
"Bourby" <nospam-jchfer@wanadoo.fr> écrivait news:Oysc3svoDHA.2416
@TK2MSFTNGP10.phx.gbl:
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
j'ai dans une macro
Sub ControlCouleur()
Dim MyDate, MyWeekDay
CellCol = ActiveCell.Column
Ligne = ActiveCell.Row
MyDate = Cells(3, CellCol)
MyWeekDay = Weekday(MyDate)
If ActiveCell = "AM" Then
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
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
merci
christian
"Bourby" écrivait news:Oysc3svoDHA.2416
@TK2MSFTNGP10.phx.gbl: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é
jeles ai oubliées
j'ai dans une macro
Sub ControlCouleur()
Dim MyDate, MyWeekDay
CellCol = ActiveCell.Column
Ligne = ActiveCell.Row
MyDate = Cells(3, CellCol)
MyWeekDay = Weekday(MyDate)
If ActiveCell = "AM" Then
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 Christian,
ElseIf Not IsError(Application.Match(CLng(MyDate), Range("feriers"),
traduction libre:
sinon s'il n'y a pas d'erreur pour trouver l'equivalent (match) de
CLng(MyDate) dans la plage Range("feriers")
alors
CLng(MyDate) une date en format standard
Range("feriers") plage nommé de la feuille de calcul
isabelle
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
merci
christian
"Bourby" écrivait news:Oysc3svoDHA.2416
@TK2MSFTNGP10.phx.gbl: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
j'ai dans une macro
Sub ControlCouleur()
Dim MyDate, MyWeekDay
CellCol = ActiveCell.Column
Ligne = ActiveCell.Row
MyDate = Cells(3, CellCol)
MyWeekDay = Weekday(MyDate)
If ActiveCell = "AM" Then
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 Christian,
ElseIf Not IsError(Application.Match(CLng(MyDate), Range("feriers"),
traduction libre:
sinon s'il n'y a pas d'erreur pour trouver l'equivalent (match) de
CLng(MyDate) dans la plage Range("feriers")
alors
CLng(MyDate) une date en format standard
Range("feriers") plage nommé de la feuille de calcul
isabelle
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
merci
christian
"Bourby" <nospam-jchfer@wanadoo.fr> écrivait news:Oysc3svoDHA.2416
@TK2MSFTNGP10.phx.gbl:
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
j'ai dans une macro
Sub ControlCouleur()
Dim MyDate, MyWeekDay
CellCol = ActiveCell.Column
Ligne = ActiveCell.Row
MyDate = Cells(3, CellCol)
MyWeekDay = Weekday(MyDate)
If ActiveCell = "AM" Then
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 Christian,
ElseIf Not IsError(Application.Match(CLng(MyDate), Range("feriers"),
traduction libre:
sinon s'il n'y a pas d'erreur pour trouver l'equivalent (match) de
CLng(MyDate) dans la plage Range("feriers")
alors
CLng(MyDate) une date en format standard
Range("feriers") plage nommé de la feuille de calcul
isabelle
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
merci
christian
"Bourby" écrivait news:Oysc3svoDHA.2416
@TK2MSFTNGP10.phx.gbl: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
j'ai dans une macro
Sub ControlCouleur()
Dim MyDate, MyWeekDay
CellCol = ActiveCell.Column
Ligne = ActiveCell.Row
MyDate = Cells(3, CellCol)
MyWeekDay = Weekday(MyDate)
If ActiveCell = "AM" Then
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
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
merci
christian
"Bourby" écrivait news:Oysc3svoDHA.2416
@TK2MSFTNGP10.phx.gbl: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é
jeles ai oubliées
j'ai dans une macro
Sub ControlCouleur()
Dim MyDate, MyWeekDay
CellCol = ActiveCell.Column
Ligne = ActiveCell.Row
MyDate = Cells(3, CellCol)
MyWeekDay = Weekday(MyDate)
If ActiveCell = "AM" Then
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
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
merci
christian
"Bourby" <nospam-jchfer@wanadoo.fr> écrivait news:Oysc3svoDHA.2416
@TK2MSFTNGP10.phx.gbl:
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
j'ai dans une macro
Sub ControlCouleur()
Dim MyDate, MyWeekDay
CellCol = ActiveCell.Column
Ligne = ActiveCell.Row
MyDate = Cells(3, CellCol)
MyWeekDay = Weekday(MyDate)
If ActiveCell = "AM" Then
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
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
merci
christian
"Bourby" écrivait news:Oysc3svoDHA.2416
@TK2MSFTNGP10.phx.gbl: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é
jeles ai oubliées
j'ai dans une macro
Sub ControlCouleur()
Dim MyDate, MyWeekDay
CellCol = ActiveCell.Column
Ligne = ActiveCell.Row
MyDate = Cells(3, CellCol)
MyWeekDay = Weekday(MyDate)
If ActiveCell = "AM" Then
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