Bonjour à tous,
je pense n'être pas le premier à poser la question, mais je désire avoir
une
solution en VBa, puisqu'il est presque impossible d'avoir plus de 3
conditions normalement.
Mon tableau comportent 18 colonnes de "A" à "R" (les lignes sont à peu
près
indéfinies)
Voici les dénominations qui se trouvent dans la Feuil1, qui me permettent
d'avoir en "C", via une liste de validation dans la feuil "Agenda":
OUI = (code couelur 35)
NON = (code couleur 38)
A FAIRE = (code couleur 36)
EN SUSPEND = (code couleur 40)
1 ENTRETIEN = (code couleur 8)
A FAIRE A SUIVRE = (code couelur 22)
RECHERCHE RENSEIGNEMENTS = (code couleur 46)
Il y a aussi la solution:
"vide" = (en blanc / sans mise en forme colorée)
Exemple:
C3 = EN SUSPEND, la ligne A3:R3 se changent en Brun (code couleur 40)
merci à qui pourrait m'aider à finaliser mon tableau.
Salutations à tous
Guido
Bonjour à tous,
je pense n'être pas le premier à poser la question, mais je désire avoir
une
solution en VBa, puisqu'il est presque impossible d'avoir plus de 3
conditions normalement.
Mon tableau comportent 18 colonnes de "A" à "R" (les lignes sont à peu
près
indéfinies)
Voici les dénominations qui se trouvent dans la Feuil1, qui me permettent
d'avoir en "C", via une liste de validation dans la feuil "Agenda":
OUI = (code couelur 35)
NON = (code couleur 38)
A FAIRE = (code couleur 36)
EN SUSPEND = (code couleur 40)
1 ENTRETIEN = (code couleur 8)
A FAIRE A SUIVRE = (code couelur 22)
RECHERCHE RENSEIGNEMENTS = (code couleur 46)
Il y a aussi la solution:
"vide" = (en blanc / sans mise en forme colorée)
Exemple:
C3 = EN SUSPEND, la ligne A3:R3 se changent en Brun (code couleur 40)
merci à qui pourrait m'aider à finaliser mon tableau.
Salutations à tous
Guido
Bonjour à tous,
je pense n'être pas le premier à poser la question, mais je désire avoir
une
solution en VBa, puisqu'il est presque impossible d'avoir plus de 3
conditions normalement.
Mon tableau comportent 18 colonnes de "A" à "R" (les lignes sont à peu
près
indéfinies)
Voici les dénominations qui se trouvent dans la Feuil1, qui me permettent
d'avoir en "C", via une liste de validation dans la feuil "Agenda":
OUI = (code couelur 35)
NON = (code couleur 38)
A FAIRE = (code couleur 36)
EN SUSPEND = (code couleur 40)
1 ENTRETIEN = (code couleur 8)
A FAIRE A SUIVRE = (code couelur 22)
RECHERCHE RENSEIGNEMENTS = (code couleur 46)
Il y a aussi la solution:
"vide" = (en blanc / sans mise en forme colorée)
Exemple:
C3 = EN SUSPEND, la ligne A3:R3 se changent en Brun (code couleur 40)
merci à qui pourrait m'aider à finaliser mon tableau.
Salutations à tous
Guido
Bonjour,
Un truc du genre devrait faire...
'----------
Private Sub Worksheet_Change(ByVal Target As Range)
Set selec = Application.Intersect(Target, Range("A1:R50000")) 'A adapter
If Not selec Is Nothing Then
Target.Interior.ColorIndex = xlNone
With Target.Interior
Select Case UCase(Target)
Case "OUI": .ColorIndex = 35
Case "NON": .ColorIndex = 38
Case "A FAIRE": .ColorIndex = 36
Case "EN SUSPEND": .ColorIndex = 40
Case "1 ENTRETIEN": .ColorIndex = 8
Case "A FAIRE A SUIVRE": .ColorIndex = 22
Case "RECHERCHE RENSEIGNEMENTS": .ColorIndex = 46
End Select
End With
End If
End Sub
'----------
Salutations
JJ
"Guido" a écrit dans le message de
news:Bonjour à tous,
je pense n'être pas le premier à poser la question, mais je désire avoir
unesolution en VBa, puisqu'il est presque impossible d'avoir plus de 3
conditions normalement.
Mon tableau comportent 18 colonnes de "A" à "R" (les lignes sont à peu
prèsindéfinies)
Voici les dénominations qui se trouvent dans la Feuil1, qui me
permettent
d'avoir en "C", via une liste de validation dans la feuil "Agenda":
OUI = (code couelur 35)
NON = (code couleur 38)
A FAIRE = (code couleur 36)
EN SUSPEND = (code couleur 40)
1 ENTRETIEN = (code couleur 8)
A FAIRE A SUIVRE = (code couelur 22)
RECHERCHE RENSEIGNEMENTS = (code couleur 46)
Il y a aussi la solution:
"vide" = (en blanc / sans mise en forme colorée)
Exemple:
C3 = EN SUSPEND, la ligne A3:R3 se changent en Brun (code couleur 40)
merci à qui pourrait m'aider à finaliser mon tableau.
Salutations à tous
Guido
Bonjour,
Un truc du genre devrait faire...
'----------
Private Sub Worksheet_Change(ByVal Target As Range)
Set selec = Application.Intersect(Target, Range("A1:R50000")) 'A adapter
If Not selec Is Nothing Then
Target.Interior.ColorIndex = xlNone
With Target.Interior
Select Case UCase(Target)
Case "OUI": .ColorIndex = 35
Case "NON": .ColorIndex = 38
Case "A FAIRE": .ColorIndex = 36
Case "EN SUSPEND": .ColorIndex = 40
Case "1 ENTRETIEN": .ColorIndex = 8
Case "A FAIRE A SUIVRE": .ColorIndex = 22
Case "RECHERCHE RENSEIGNEMENTS": .ColorIndex = 46
End Select
End With
End If
End Sub
'----------
Salutations
JJ
"Guido" <Guido@nospam.com> a écrit dans le message de
news:OR30lGWXGHA.3448@TK2MSFTNGP04.phx.gbl...
Bonjour à tous,
je pense n'être pas le premier à poser la question, mais je désire avoir
une
solution en VBa, puisqu'il est presque impossible d'avoir plus de 3
conditions normalement.
Mon tableau comportent 18 colonnes de "A" à "R" (les lignes sont à peu
près
indéfinies)
Voici les dénominations qui se trouvent dans la Feuil1, qui me
permettent
d'avoir en "C", via une liste de validation dans la feuil "Agenda":
OUI = (code couelur 35)
NON = (code couleur 38)
A FAIRE = (code couleur 36)
EN SUSPEND = (code couleur 40)
1 ENTRETIEN = (code couleur 8)
A FAIRE A SUIVRE = (code couelur 22)
RECHERCHE RENSEIGNEMENTS = (code couleur 46)
Il y a aussi la solution:
"vide" = (en blanc / sans mise en forme colorée)
Exemple:
C3 = EN SUSPEND, la ligne A3:R3 se changent en Brun (code couleur 40)
merci à qui pourrait m'aider à finaliser mon tableau.
Salutations à tous
Guido
Bonjour,
Un truc du genre devrait faire...
'----------
Private Sub Worksheet_Change(ByVal Target As Range)
Set selec = Application.Intersect(Target, Range("A1:R50000")) 'A adapter
If Not selec Is Nothing Then
Target.Interior.ColorIndex = xlNone
With Target.Interior
Select Case UCase(Target)
Case "OUI": .ColorIndex = 35
Case "NON": .ColorIndex = 38
Case "A FAIRE": .ColorIndex = 36
Case "EN SUSPEND": .ColorIndex = 40
Case "1 ENTRETIEN": .ColorIndex = 8
Case "A FAIRE A SUIVRE": .ColorIndex = 22
Case "RECHERCHE RENSEIGNEMENTS": .ColorIndex = 46
End Select
End With
End If
End Sub
'----------
Salutations
JJ
"Guido" a écrit dans le message de
news:Bonjour à tous,
je pense n'être pas le premier à poser la question, mais je désire avoir
unesolution en VBa, puisqu'il est presque impossible d'avoir plus de 3
conditions normalement.
Mon tableau comportent 18 colonnes de "A" à "R" (les lignes sont à peu
prèsindéfinies)
Voici les dénominations qui se trouvent dans la Feuil1, qui me
permettent
d'avoir en "C", via une liste de validation dans la feuil "Agenda":
OUI = (code couelur 35)
NON = (code couleur 38)
A FAIRE = (code couleur 36)
EN SUSPEND = (code couleur 40)
1 ENTRETIEN = (code couleur 8)
A FAIRE A SUIVRE = (code couelur 22)
RECHERCHE RENSEIGNEMENTS = (code couleur 46)
Il y a aussi la solution:
"vide" = (en blanc / sans mise en forme colorée)
Exemple:
C3 = EN SUSPEND, la ligne A3:R3 se changent en Brun (code couleur 40)
merci à qui pourrait m'aider à finaliser mon tableau.
Salutations à tous
Guido
Bonjour,
Un truc du genre devrait faire...
'----------
Private Sub Worksheet_Change(ByVal Target As Range)
Set selec = Application.Intersect(Target, Range("A1:R50000")) 'A adapter
If Not selec Is Nothing Then
Target.Interior.ColorIndex = xlNone
With Target.Interior
Select Case UCase(Target)
Case "OUI": .ColorIndex = 35
Case "NON": .ColorIndex = 38
Case "A FAIRE": .ColorIndex = 36
Case "EN SUSPEND": .ColorIndex = 40
Case "1 ENTRETIEN": .ColorIndex = 8
Case "A FAIRE A SUIVRE": .ColorIndex = 22
Case "RECHERCHE RENSEIGNEMENTS": .ColorIndex = 46
End Select
End With
End If
End Sub
'----------
Salutations
JJ
"Guido" a écrit dans le message de
news:Bonjour à tous,
je pense n'être pas le premier à poser la question, mais je désire avoir
unesolution en VBa, puisqu'il est presque impossible d'avoir plus de 3
conditions normalement.
Mon tableau comportent 18 colonnes de "A" à "R" (les lignes sont à peu
prèsindéfinies)
Voici les dénominations qui se trouvent dans la Feuil1, qui me
permettent
d'avoir en "C", via une liste de validation dans la feuil "Agenda":
OUI = (code couelur 35)
NON = (code couleur 38)
A FAIRE = (code couleur 36)
EN SUSPEND = (code couleur 40)
1 ENTRETIEN = (code couleur 8)
A FAIRE A SUIVRE = (code couelur 22)
RECHERCHE RENSEIGNEMENTS = (code couleur 46)
Il y a aussi la solution:
"vide" = (en blanc / sans mise en forme colorée)
Exemple:
C3 = EN SUSPEND, la ligne A3:R3 se changent en Brun (code couleur 40)
merci à qui pourrait m'aider à finaliser mon tableau.
Salutations à tous
Guido
Bonjour,
Un truc du genre devrait faire...
'----------
Private Sub Worksheet_Change(ByVal Target As Range)
Set selec = Application.Intersect(Target, Range("A1:R50000")) 'A adapter
If Not selec Is Nothing Then
Target.Interior.ColorIndex = xlNone
With Target.Interior
Select Case UCase(Target)
Case "OUI": .ColorIndex = 35
Case "NON": .ColorIndex = 38
Case "A FAIRE": .ColorIndex = 36
Case "EN SUSPEND": .ColorIndex = 40
Case "1 ENTRETIEN": .ColorIndex = 8
Case "A FAIRE A SUIVRE": .ColorIndex = 22
Case "RECHERCHE RENSEIGNEMENTS": .ColorIndex = 46
End Select
End With
End If
End Sub
'----------
Salutations
JJ
"Guido" <Guido@nospam.com> a écrit dans le message de
news:OR30lGWXGHA.3448@TK2MSFTNGP04.phx.gbl...
Bonjour à tous,
je pense n'être pas le premier à poser la question, mais je désire avoir
une
solution en VBa, puisqu'il est presque impossible d'avoir plus de 3
conditions normalement.
Mon tableau comportent 18 colonnes de "A" à "R" (les lignes sont à peu
près
indéfinies)
Voici les dénominations qui se trouvent dans la Feuil1, qui me
permettent
d'avoir en "C", via une liste de validation dans la feuil "Agenda":
OUI = (code couelur 35)
NON = (code couleur 38)
A FAIRE = (code couleur 36)
EN SUSPEND = (code couleur 40)
1 ENTRETIEN = (code couleur 8)
A FAIRE A SUIVRE = (code couelur 22)
RECHERCHE RENSEIGNEMENTS = (code couleur 46)
Il y a aussi la solution:
"vide" = (en blanc / sans mise en forme colorée)
Exemple:
C3 = EN SUSPEND, la ligne A3:R3 se changent en Brun (code couleur 40)
merci à qui pourrait m'aider à finaliser mon tableau.
Salutations à tous
Guido
Bonjour,
Un truc du genre devrait faire...
'----------
Private Sub Worksheet_Change(ByVal Target As Range)
Set selec = Application.Intersect(Target, Range("A1:R50000")) 'A adapter
If Not selec Is Nothing Then
Target.Interior.ColorIndex = xlNone
With Target.Interior
Select Case UCase(Target)
Case "OUI": .ColorIndex = 35
Case "NON": .ColorIndex = 38
Case "A FAIRE": .ColorIndex = 36
Case "EN SUSPEND": .ColorIndex = 40
Case "1 ENTRETIEN": .ColorIndex = 8
Case "A FAIRE A SUIVRE": .ColorIndex = 22
Case "RECHERCHE RENSEIGNEMENTS": .ColorIndex = 46
End Select
End With
End If
End Sub
'----------
Salutations
JJ
"Guido" a écrit dans le message de
news:Bonjour à tous,
je pense n'être pas le premier à poser la question, mais je désire avoir
unesolution en VBa, puisqu'il est presque impossible d'avoir plus de 3
conditions normalement.
Mon tableau comportent 18 colonnes de "A" à "R" (les lignes sont à peu
prèsindéfinies)
Voici les dénominations qui se trouvent dans la Feuil1, qui me
permettent
d'avoir en "C", via une liste de validation dans la feuil "Agenda":
OUI = (code couelur 35)
NON = (code couleur 38)
A FAIRE = (code couleur 36)
EN SUSPEND = (code couleur 40)
1 ENTRETIEN = (code couleur 8)
A FAIRE A SUIVRE = (code couelur 22)
RECHERCHE RENSEIGNEMENTS = (code couleur 46)
Il y a aussi la solution:
"vide" = (en blanc / sans mise en forme colorée)
Exemple:
C3 = EN SUSPEND, la ligne A3:R3 se changent en Brun (code couleur 40)
merci à qui pourrait m'aider à finaliser mon tableau.
Salutations à tous
Guido
Rn cas de sélection multiple, ta solution n'est pas rigoureuse.
Je propose les adaptations suivantes:
'--------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim selec As Range
Dim c As Range
Set selec = Application.Intersect(Target, Range("A1:R50000")) 'A adapter
If Not selec Is Nothing Then
For Each c In selec.Cells
With c.Interior
Select Case UCase(c.Value)
Case "OUI": .ColorIndex = 35
Case "NON": .ColorIndex = 38
Case "A FAIRE": .ColorIndex = 36
Case "EN SUSPEND": .ColorIndex = 40
Case "1 ENTRETIEN": .ColorIndex = 8
Case "A FAIRE A SUIVRE": .ColorIndex = 22
Case "RECHERCHE RENSEIGNEMENTS": .ColorIndex = 46
Case Else: c.ColorIndex = xlNone
End Select
End With
Next c
End If
End Sub
'-----------------------
"Jacky" a écrit dans le message de
news:Bonjour,
Un truc du genre devrait faire...
'----------
Private Sub Worksheet_Change(ByVal Target As Range)
Set selec = Application.Intersect(Target, Range("A1:R50000")) 'A adapter
If Not selec Is Nothing Then
Target.Interior.ColorIndex = xlNone
With Target.Interior
Select Case UCase(Target)
Case "OUI": .ColorIndex = 35
Case "NON": .ColorIndex = 38
Case "A FAIRE": .ColorIndex = 36
Case "EN SUSPEND": .ColorIndex = 40
Case "1 ENTRETIEN": .ColorIndex = 8
Case "A FAIRE A SUIVRE": .ColorIndex = 22
Case "RECHERCHE RENSEIGNEMENTS": .ColorIndex = 46
End Select
End With
End If
End Sub
'----------
Salutations
JJ
"Guido" a écrit dans le message de
news:Bonjour à tous,
je pense n'être pas le premier à poser la question, mais je désire
avoir
unesolution en VBa, puisqu'il est presque impossible d'avoir plus de 3
conditions normalement.
Mon tableau comportent 18 colonnes de "A" à "R" (les lignes sont à peu
prèsindéfinies)
Voici les dénominations qui se trouvent dans la Feuil1, qui me
permettentd'avoir en "C", via une liste de validation dans la feuil "Agenda":
OUI = (code couelur 35)
NON = (code couleur 38)
A FAIRE = (code couleur 36)
EN SUSPEND = (code couleur 40)
1 ENTRETIEN = (code couleur 8)
A FAIRE A SUIVRE = (code couelur 22)
RECHERCHE RENSEIGNEMENTS = (code couleur 46)
Il y a aussi la solution:
"vide" = (en blanc / sans mise en forme colorée)
Exemple:
C3 = EN SUSPEND, la ligne A3:R3 se changent en Brun (code couleur 40)
merci à qui pourrait m'aider à finaliser mon tableau.
Salutations à tous
Guido
Rn cas de sélection multiple, ta solution n'est pas rigoureuse.
Je propose les adaptations suivantes:
'--------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim selec As Range
Dim c As Range
Set selec = Application.Intersect(Target, Range("A1:R50000")) 'A adapter
If Not selec Is Nothing Then
For Each c In selec.Cells
With c.Interior
Select Case UCase(c.Value)
Case "OUI": .ColorIndex = 35
Case "NON": .ColorIndex = 38
Case "A FAIRE": .ColorIndex = 36
Case "EN SUSPEND": .ColorIndex = 40
Case "1 ENTRETIEN": .ColorIndex = 8
Case "A FAIRE A SUIVRE": .ColorIndex = 22
Case "RECHERCHE RENSEIGNEMENTS": .ColorIndex = 46
Case Else: c.ColorIndex = xlNone
End Select
End With
Next c
End If
End Sub
'-----------------------
"Jacky" <nospam@bidon.fr> a écrit dans le message de
news:OUvjYYWXGHA.3444@TK2MSFTNGP05.phx.gbl...
Bonjour,
Un truc du genre devrait faire...
'----------
Private Sub Worksheet_Change(ByVal Target As Range)
Set selec = Application.Intersect(Target, Range("A1:R50000")) 'A adapter
If Not selec Is Nothing Then
Target.Interior.ColorIndex = xlNone
With Target.Interior
Select Case UCase(Target)
Case "OUI": .ColorIndex = 35
Case "NON": .ColorIndex = 38
Case "A FAIRE": .ColorIndex = 36
Case "EN SUSPEND": .ColorIndex = 40
Case "1 ENTRETIEN": .ColorIndex = 8
Case "A FAIRE A SUIVRE": .ColorIndex = 22
Case "RECHERCHE RENSEIGNEMENTS": .ColorIndex = 46
End Select
End With
End If
End Sub
'----------
Salutations
JJ
"Guido" <Guido@nospam.com> a écrit dans le message de
news:OR30lGWXGHA.3448@TK2MSFTNGP04.phx.gbl...
Bonjour à tous,
je pense n'être pas le premier à poser la question, mais je désire
avoir
une
solution en VBa, puisqu'il est presque impossible d'avoir plus de 3
conditions normalement.
Mon tableau comportent 18 colonnes de "A" à "R" (les lignes sont à peu
près
indéfinies)
Voici les dénominations qui se trouvent dans la Feuil1, qui me
permettent
d'avoir en "C", via une liste de validation dans la feuil "Agenda":
OUI = (code couelur 35)
NON = (code couleur 38)
A FAIRE = (code couleur 36)
EN SUSPEND = (code couleur 40)
1 ENTRETIEN = (code couleur 8)
A FAIRE A SUIVRE = (code couelur 22)
RECHERCHE RENSEIGNEMENTS = (code couleur 46)
Il y a aussi la solution:
"vide" = (en blanc / sans mise en forme colorée)
Exemple:
C3 = EN SUSPEND, la ligne A3:R3 se changent en Brun (code couleur 40)
merci à qui pourrait m'aider à finaliser mon tableau.
Salutations à tous
Guido
Rn cas de sélection multiple, ta solution n'est pas rigoureuse.
Je propose les adaptations suivantes:
'--------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim selec As Range
Dim c As Range
Set selec = Application.Intersect(Target, Range("A1:R50000")) 'A adapter
If Not selec Is Nothing Then
For Each c In selec.Cells
With c.Interior
Select Case UCase(c.Value)
Case "OUI": .ColorIndex = 35
Case "NON": .ColorIndex = 38
Case "A FAIRE": .ColorIndex = 36
Case "EN SUSPEND": .ColorIndex = 40
Case "1 ENTRETIEN": .ColorIndex = 8
Case "A FAIRE A SUIVRE": .ColorIndex = 22
Case "RECHERCHE RENSEIGNEMENTS": .ColorIndex = 46
Case Else: c.ColorIndex = xlNone
End Select
End With
Next c
End If
End Sub
'-----------------------
"Jacky" a écrit dans le message de
news:Bonjour,
Un truc du genre devrait faire...
'----------
Private Sub Worksheet_Change(ByVal Target As Range)
Set selec = Application.Intersect(Target, Range("A1:R50000")) 'A adapter
If Not selec Is Nothing Then
Target.Interior.ColorIndex = xlNone
With Target.Interior
Select Case UCase(Target)
Case "OUI": .ColorIndex = 35
Case "NON": .ColorIndex = 38
Case "A FAIRE": .ColorIndex = 36
Case "EN SUSPEND": .ColorIndex = 40
Case "1 ENTRETIEN": .ColorIndex = 8
Case "A FAIRE A SUIVRE": .ColorIndex = 22
Case "RECHERCHE RENSEIGNEMENTS": .ColorIndex = 46
End Select
End With
End If
End Sub
'----------
Salutations
JJ
"Guido" a écrit dans le message de
news:Bonjour à tous,
je pense n'être pas le premier à poser la question, mais je désire
avoir
unesolution en VBa, puisqu'il est presque impossible d'avoir plus de 3
conditions normalement.
Mon tableau comportent 18 colonnes de "A" à "R" (les lignes sont à peu
prèsindéfinies)
Voici les dénominations qui se trouvent dans la Feuil1, qui me
permettentd'avoir en "C", via une liste de validation dans la feuil "Agenda":
OUI = (code couelur 35)
NON = (code couleur 38)
A FAIRE = (code couleur 36)
EN SUSPEND = (code couleur 40)
1 ENTRETIEN = (code couleur 8)
A FAIRE A SUIVRE = (code couelur 22)
RECHERCHE RENSEIGNEMENTS = (code couleur 46)
Il y a aussi la solution:
"vide" = (en blanc / sans mise en forme colorée)
Exemple:
C3 = EN SUSPEND, la ligne A3:R3 se changent en Brun (code couleur 40)
merci à qui pourrait m'aider à finaliser mon tableau.
Salutations à tous
Guido
Rn cas de sélection multiple, ta solution n'est pas rigoureuse.
Je propose les adaptations suivantes:
'--------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim selec As Range
Dim c As Range
Set selec = Application.Intersect(Target, Range("A1:R50000")) 'A adapter
If Not selec Is Nothing Then
For Each c In selec.Cells
With c.Interior
Select Case UCase(c.Value)
Case "OUI": .ColorIndex = 35
Case "NON": .ColorIndex = 38
Case "A FAIRE": .ColorIndex = 36
Case "EN SUSPEND": .ColorIndex = 40
Case "1 ENTRETIEN": .ColorIndex = 8
Case "A FAIRE A SUIVRE": .ColorIndex = 22
Case "RECHERCHE RENSEIGNEMENTS": .ColorIndex = 46
Case Else: c.ColorIndex = xlNone
End Select
End With
Next c
End If
End Sub
'-----------------------
"Jacky" a écrit dans le message de
news:Bonjour,
Un truc du genre devrait faire...
'----------
Private Sub Worksheet_Change(ByVal Target As Range)
Set selec = Application.Intersect(Target, Range("A1:R50000")) 'A adapter
If Not selec Is Nothing Then
Target.Interior.ColorIndex = xlNone
With Target.Interior
Select Case UCase(Target)
Case "OUI": .ColorIndex = 35
Case "NON": .ColorIndex = 38
Case "A FAIRE": .ColorIndex = 36
Case "EN SUSPEND": .ColorIndex = 40
Case "1 ENTRETIEN": .ColorIndex = 8
Case "A FAIRE A SUIVRE": .ColorIndex = 22
Case "RECHERCHE RENSEIGNEMENTS": .ColorIndex = 46
End Select
End With
End If
End Sub
'----------
Salutations
JJ
"Guido" a écrit dans le message de
news:Bonjour à tous,
je pense n'être pas le premier à poser la question, mais je désire
avoir
unesolution en VBa, puisqu'il est presque impossible d'avoir plus de 3
conditions normalement.
Mon tableau comportent 18 colonnes de "A" à "R" (les lignes sont à peu
prèsindéfinies)
Voici les dénominations qui se trouvent dans la Feuil1, qui me
permettentd'avoir en "C", via une liste de validation dans la feuil "Agenda":
OUI = (code couelur 35)
NON = (code couleur 38)
A FAIRE = (code couleur 36)
EN SUSPEND = (code couleur 40)
1 ENTRETIEN = (code couleur 8)
A FAIRE A SUIVRE = (code couelur 22)
RECHERCHE RENSEIGNEMENTS = (code couleur 46)
Il y a aussi la solution:
"vide" = (en blanc / sans mise en forme colorée)
Exemple:
C3 = EN SUSPEND, la ligne A3:R3 se changent en Brun (code couleur 40)
merci à qui pourrait m'aider à finaliser mon tableau.
Salutations à tous
Guido
Rn cas de sélection multiple, ta solution n'est pas rigoureuse.
Je propose les adaptations suivantes:
'--------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim selec As Range
Dim c As Range
Set selec = Application.Intersect(Target, Range("A1:R50000")) 'A adapter
If Not selec Is Nothing Then
For Each c In selec.Cells
With c.Interior
Select Case UCase(c.Value)
Case "OUI": .ColorIndex = 35
Case "NON": .ColorIndex = 38
Case "A FAIRE": .ColorIndex = 36
Case "EN SUSPEND": .ColorIndex = 40
Case "1 ENTRETIEN": .ColorIndex = 8
Case "A FAIRE A SUIVRE": .ColorIndex = 22
Case "RECHERCHE RENSEIGNEMENTS": .ColorIndex = 46
Case Else: c.ColorIndex = xlNone
End Select
End With
Next c
End If
End Sub
'-----------------------
"Jacky" <nospam@bidon.fr> a écrit dans le message de
news:OUvjYYWXGHA.3444@TK2MSFTNGP05.phx.gbl...
Bonjour,
Un truc du genre devrait faire...
'----------
Private Sub Worksheet_Change(ByVal Target As Range)
Set selec = Application.Intersect(Target, Range("A1:R50000")) 'A adapter
If Not selec Is Nothing Then
Target.Interior.ColorIndex = xlNone
With Target.Interior
Select Case UCase(Target)
Case "OUI": .ColorIndex = 35
Case "NON": .ColorIndex = 38
Case "A FAIRE": .ColorIndex = 36
Case "EN SUSPEND": .ColorIndex = 40
Case "1 ENTRETIEN": .ColorIndex = 8
Case "A FAIRE A SUIVRE": .ColorIndex = 22
Case "RECHERCHE RENSEIGNEMENTS": .ColorIndex = 46
End Select
End With
End If
End Sub
'----------
Salutations
JJ
"Guido" <Guido@nospam.com> a écrit dans le message de
news:OR30lGWXGHA.3448@TK2MSFTNGP04.phx.gbl...
Bonjour à tous,
je pense n'être pas le premier à poser la question, mais je désire
avoir
une
solution en VBa, puisqu'il est presque impossible d'avoir plus de 3
conditions normalement.
Mon tableau comportent 18 colonnes de "A" à "R" (les lignes sont à peu
près
indéfinies)
Voici les dénominations qui se trouvent dans la Feuil1, qui me
permettent
d'avoir en "C", via une liste de validation dans la feuil "Agenda":
OUI = (code couelur 35)
NON = (code couleur 38)
A FAIRE = (code couleur 36)
EN SUSPEND = (code couleur 40)
1 ENTRETIEN = (code couleur 8)
A FAIRE A SUIVRE = (code couelur 22)
RECHERCHE RENSEIGNEMENTS = (code couleur 46)
Il y a aussi la solution:
"vide" = (en blanc / sans mise en forme colorée)
Exemple:
C3 = EN SUSPEND, la ligne A3:R3 se changent en Brun (code couleur 40)
merci à qui pourrait m'aider à finaliser mon tableau.
Salutations à tous
Guido
Rn cas de sélection multiple, ta solution n'est pas rigoureuse.
Je propose les adaptations suivantes:
'--------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim selec As Range
Dim c As Range
Set selec = Application.Intersect(Target, Range("A1:R50000")) 'A adapter
If Not selec Is Nothing Then
For Each c In selec.Cells
With c.Interior
Select Case UCase(c.Value)
Case "OUI": .ColorIndex = 35
Case "NON": .ColorIndex = 38
Case "A FAIRE": .ColorIndex = 36
Case "EN SUSPEND": .ColorIndex = 40
Case "1 ENTRETIEN": .ColorIndex = 8
Case "A FAIRE A SUIVRE": .ColorIndex = 22
Case "RECHERCHE RENSEIGNEMENTS": .ColorIndex = 46
Case Else: c.ColorIndex = xlNone
End Select
End With
Next c
End If
End Sub
'-----------------------
"Jacky" a écrit dans le message de
news:Bonjour,
Un truc du genre devrait faire...
'----------
Private Sub Worksheet_Change(ByVal Target As Range)
Set selec = Application.Intersect(Target, Range("A1:R50000")) 'A adapter
If Not selec Is Nothing Then
Target.Interior.ColorIndex = xlNone
With Target.Interior
Select Case UCase(Target)
Case "OUI": .ColorIndex = 35
Case "NON": .ColorIndex = 38
Case "A FAIRE": .ColorIndex = 36
Case "EN SUSPEND": .ColorIndex = 40
Case "1 ENTRETIEN": .ColorIndex = 8
Case "A FAIRE A SUIVRE": .ColorIndex = 22
Case "RECHERCHE RENSEIGNEMENTS": .ColorIndex = 46
End Select
End With
End If
End Sub
'----------
Salutations
JJ
"Guido" a écrit dans le message de
news:Bonjour à tous,
je pense n'être pas le premier à poser la question, mais je désire
avoir
unesolution en VBa, puisqu'il est presque impossible d'avoir plus de 3
conditions normalement.
Mon tableau comportent 18 colonnes de "A" à "R" (les lignes sont à peu
prèsindéfinies)
Voici les dénominations qui se trouvent dans la Feuil1, qui me
permettentd'avoir en "C", via une liste de validation dans la feuil "Agenda":
OUI = (code couelur 35)
NON = (code couleur 38)
A FAIRE = (code couleur 36)
EN SUSPEND = (code couleur 40)
1 ENTRETIEN = (code couleur 8)
A FAIRE A SUIVRE = (code couelur 22)
RECHERCHE RENSEIGNEMENTS = (code couleur 46)
Il y a aussi la solution:
"vide" = (en blanc / sans mise en forme colorée)
Exemple:
C3 = EN SUSPEND, la ligne A3:R3 se changent en Brun (code couleur 40)
merci à qui pourrait m'aider à finaliser mon tableau.
Salutations à tous
Guido
Salut Jacky,
merci de ton aide.
Cela fonctionne bien sur mon tableau, mais cela me donne que la cellule
dans
C.
Comment avoir la ligne colorée suivant C.
(c'est comme mon anglais: My VBa is not rich)
A+
Guido
"Jacky" a écrit dans le message de
news:Bonjour,
Un truc du genre devrait faire...
'----------
Private Sub Worksheet_Change(ByVal Target As Range)
Set selec = Application.Intersect(Target, Range("A1:R50000")) 'A adapter
If Not selec Is Nothing Then
Target.Interior.ColorIndex = xlNone
With Target.Interior
Select Case UCase(Target)
Case "OUI": .ColorIndex = 35
Case "NON": .ColorIndex = 38
Case "A FAIRE": .ColorIndex = 36
Case "EN SUSPEND": .ColorIndex = 40
Case "1 ENTRETIEN": .ColorIndex = 8
Case "A FAIRE A SUIVRE": .ColorIndex = 22
Case "RECHERCHE RENSEIGNEMENTS": .ColorIndex = 46
End Select
End With
End If
End Sub
'----------
Salutations
JJ
"Guido" a écrit dans le message de
news:Bonjour à tous,
je pense n'être pas le premier à poser la question, mais je désire
avoir
unesolution en VBa, puisqu'il est presque impossible d'avoir plus de 3
conditions normalement.
Mon tableau comportent 18 colonnes de "A" à "R" (les lignes sont à peu
prèsindéfinies)
Voici les dénominations qui se trouvent dans la Feuil1, qui me
permettentd'avoir en "C", via une liste de validation dans la feuil "Agenda":
OUI = (code couelur 35)
NON = (code couleur 38)
A FAIRE = (code couleur 36)
EN SUSPEND = (code couleur 40)
1 ENTRETIEN = (code couleur 8)
A FAIRE A SUIVRE = (code couelur 22)
RECHERCHE RENSEIGNEMENTS = (code couleur 46)
Il y a aussi la solution:
"vide" = (en blanc / sans mise en forme colorée)
Exemple:
C3 = EN SUSPEND, la ligne A3:R3 se changent en Brun (code couleur 40)
merci à qui pourrait m'aider à finaliser mon tableau.
Salutations à tous
Guido
Salut Jacky,
merci de ton aide.
Cela fonctionne bien sur mon tableau, mais cela me donne que la cellule
dans
C.
Comment avoir la ligne colorée suivant C.
(c'est comme mon anglais: My VBa is not rich)
A+
Guido
"Jacky" <nospam@bidon.fr> a écrit dans le message de
news:OUvjYYWXGHA.3444@TK2MSFTNGP05.phx.gbl...
Bonjour,
Un truc du genre devrait faire...
'----------
Private Sub Worksheet_Change(ByVal Target As Range)
Set selec = Application.Intersect(Target, Range("A1:R50000")) 'A adapter
If Not selec Is Nothing Then
Target.Interior.ColorIndex = xlNone
With Target.Interior
Select Case UCase(Target)
Case "OUI": .ColorIndex = 35
Case "NON": .ColorIndex = 38
Case "A FAIRE": .ColorIndex = 36
Case "EN SUSPEND": .ColorIndex = 40
Case "1 ENTRETIEN": .ColorIndex = 8
Case "A FAIRE A SUIVRE": .ColorIndex = 22
Case "RECHERCHE RENSEIGNEMENTS": .ColorIndex = 46
End Select
End With
End If
End Sub
'----------
Salutations
JJ
"Guido" <Guido@nospam.com> a écrit dans le message de
news:OR30lGWXGHA.3448@TK2MSFTNGP04.phx.gbl...
Bonjour à tous,
je pense n'être pas le premier à poser la question, mais je désire
avoir
une
solution en VBa, puisqu'il est presque impossible d'avoir plus de 3
conditions normalement.
Mon tableau comportent 18 colonnes de "A" à "R" (les lignes sont à peu
près
indéfinies)
Voici les dénominations qui se trouvent dans la Feuil1, qui me
permettent
d'avoir en "C", via une liste de validation dans la feuil "Agenda":
OUI = (code couelur 35)
NON = (code couleur 38)
A FAIRE = (code couleur 36)
EN SUSPEND = (code couleur 40)
1 ENTRETIEN = (code couleur 8)
A FAIRE A SUIVRE = (code couelur 22)
RECHERCHE RENSEIGNEMENTS = (code couleur 46)
Il y a aussi la solution:
"vide" = (en blanc / sans mise en forme colorée)
Exemple:
C3 = EN SUSPEND, la ligne A3:R3 se changent en Brun (code couleur 40)
merci à qui pourrait m'aider à finaliser mon tableau.
Salutations à tous
Guido
Salut Jacky,
merci de ton aide.
Cela fonctionne bien sur mon tableau, mais cela me donne que la cellule
dans
C.
Comment avoir la ligne colorée suivant C.
(c'est comme mon anglais: My VBa is not rich)
A+
Guido
"Jacky" a écrit dans le message de
news:Bonjour,
Un truc du genre devrait faire...
'----------
Private Sub Worksheet_Change(ByVal Target As Range)
Set selec = Application.Intersect(Target, Range("A1:R50000")) 'A adapter
If Not selec Is Nothing Then
Target.Interior.ColorIndex = xlNone
With Target.Interior
Select Case UCase(Target)
Case "OUI": .ColorIndex = 35
Case "NON": .ColorIndex = 38
Case "A FAIRE": .ColorIndex = 36
Case "EN SUSPEND": .ColorIndex = 40
Case "1 ENTRETIEN": .ColorIndex = 8
Case "A FAIRE A SUIVRE": .ColorIndex = 22
Case "RECHERCHE RENSEIGNEMENTS": .ColorIndex = 46
End Select
End With
End If
End Sub
'----------
Salutations
JJ
"Guido" a écrit dans le message de
news:Bonjour à tous,
je pense n'être pas le premier à poser la question, mais je désire
avoir
unesolution en VBa, puisqu'il est presque impossible d'avoir plus de 3
conditions normalement.
Mon tableau comportent 18 colonnes de "A" à "R" (les lignes sont à peu
prèsindéfinies)
Voici les dénominations qui se trouvent dans la Feuil1, qui me
permettentd'avoir en "C", via une liste de validation dans la feuil "Agenda":
OUI = (code couelur 35)
NON = (code couleur 38)
A FAIRE = (code couleur 36)
EN SUSPEND = (code couleur 40)
1 ENTRETIEN = (code couleur 8)
A FAIRE A SUIVRE = (code couelur 22)
RECHERCHE RENSEIGNEMENTS = (code couleur 46)
Il y a aussi la solution:
"vide" = (en blanc / sans mise en forme colorée)
Exemple:
C3 = EN SUSPEND, la ligne A3:R3 se changent en Brun (code couleur 40)
merci à qui pourrait m'aider à finaliser mon tableau.
Salutations à tous
Guido
Re..
En effet
Essaie ceci
'------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 3 Then Exit Sub
plage = ("a" & Target.Row & ":r" & Target.Row)
Range([plage]).Interior.ColorIndex = xlNone
With Range([plage]).Interior
Select Case UCase(Target)
Case "OUI": .ColorIndex = 35
Case "NON": .ColorIndex = 38
Case "A FAIRE": .ColorIndex = 36
Case "EN SUSPEND": .ColorIndex = 40
Case "1 ENTRETIEN": .ColorIndex = 8
Case "A FAIRE A SUIVRE": .ColorIndex = 22
Case "RECHERCHE RENSEIGNEMENTS": .ColorIndex = 46
End Select
End With
End Sub
'---------
JJ
"Guido" a écrit dans le message de news:
%Salut Jacky,
merci de ton aide.
Cela fonctionne bien sur mon tableau, mais cela me donne que la cellule
dans
C.
Comment avoir la ligne colorée suivant C.
(c'est comme mon anglais: My VBa is not rich)
A+
Guido
"Jacky" a écrit dans le message de
news:Bonjour,
Un truc du genre devrait faire...
'----------
Private Sub Worksheet_Change(ByVal Target As Range)
Set selec = Application.Intersect(Target, Range("A1:R50000")) 'A
adapter
If Not selec Is Nothing Then
Target.Interior.ColorIndex = xlNone
With Target.Interior
Select Case UCase(Target)
Case "OUI": .ColorIndex = 35
Case "NON": .ColorIndex = 38
Case "A FAIRE": .ColorIndex = 36
Case "EN SUSPEND": .ColorIndex = 40
Case "1 ENTRETIEN": .ColorIndex = 8
Case "A FAIRE A SUIVRE": .ColorIndex = 22
Case "RECHERCHE RENSEIGNEMENTS": .ColorIndex = 46
End Select
End With
End If
End Sub
'----------
Salutations
JJ
"Guido" a écrit dans le message de
news:Bonjour à tous,
je pense n'être pas le premier à poser la question, mais je désire
avoir
unesolution en VBa, puisqu'il est presque impossible d'avoir plus de 3
conditions normalement.
Mon tableau comportent 18 colonnes de "A" à "R" (les lignes sont à
peu
prèsindéfinies)
Voici les dénominations qui se trouvent dans la Feuil1, qui me
permettentd'avoir en "C", via une liste de validation dans la feuil "Agenda":
OUI = (code couelur 35)
NON = (code couleur 38)
A FAIRE = (code couleur 36)
EN SUSPEND = (code couleur 40)
1 ENTRETIEN = (code couleur 8)
A FAIRE A SUIVRE = (code couelur 22)
RECHERCHE RENSEIGNEMENTS = (code couleur 46)
Il y a aussi la solution:
"vide" = (en blanc / sans mise en forme colorée)
Exemple:
C3 = EN SUSPEND, la ligne A3:R3 se changent en Brun (code couleur 40)
merci à qui pourrait m'aider à finaliser mon tableau.
Salutations à tous
Guido
Re..
En effet
Essaie ceci
'------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 3 Then Exit Sub
plage = ("a" & Target.Row & ":r" & Target.Row)
Range([plage]).Interior.ColorIndex = xlNone
With Range([plage]).Interior
Select Case UCase(Target)
Case "OUI": .ColorIndex = 35
Case "NON": .ColorIndex = 38
Case "A FAIRE": .ColorIndex = 36
Case "EN SUSPEND": .ColorIndex = 40
Case "1 ENTRETIEN": .ColorIndex = 8
Case "A FAIRE A SUIVRE": .ColorIndex = 22
Case "RECHERCHE RENSEIGNEMENTS": .ColorIndex = 46
End Select
End With
End Sub
'---------
JJ
"Guido" <Guido@nospam.com> a écrit dans le message de news:
%23WWitqWXGHA.4652@TK2MSFTNGP04.phx.gbl...
Salut Jacky,
merci de ton aide.
Cela fonctionne bien sur mon tableau, mais cela me donne que la cellule
dans
C.
Comment avoir la ligne colorée suivant C.
(c'est comme mon anglais: My VBa is not rich)
A+
Guido
"Jacky" <nospam@bidon.fr> a écrit dans le message de
news:OUvjYYWXGHA.3444@TK2MSFTNGP05.phx.gbl...
Bonjour,
Un truc du genre devrait faire...
'----------
Private Sub Worksheet_Change(ByVal Target As Range)
Set selec = Application.Intersect(Target, Range("A1:R50000")) 'A
adapter
If Not selec Is Nothing Then
Target.Interior.ColorIndex = xlNone
With Target.Interior
Select Case UCase(Target)
Case "OUI": .ColorIndex = 35
Case "NON": .ColorIndex = 38
Case "A FAIRE": .ColorIndex = 36
Case "EN SUSPEND": .ColorIndex = 40
Case "1 ENTRETIEN": .ColorIndex = 8
Case "A FAIRE A SUIVRE": .ColorIndex = 22
Case "RECHERCHE RENSEIGNEMENTS": .ColorIndex = 46
End Select
End With
End If
End Sub
'----------
Salutations
JJ
"Guido" <Guido@nospam.com> a écrit dans le message de
news:OR30lGWXGHA.3448@TK2MSFTNGP04.phx.gbl...
Bonjour à tous,
je pense n'être pas le premier à poser la question, mais je désire
avoir
une
solution en VBa, puisqu'il est presque impossible d'avoir plus de 3
conditions normalement.
Mon tableau comportent 18 colonnes de "A" à "R" (les lignes sont à
peu
près
indéfinies)
Voici les dénominations qui se trouvent dans la Feuil1, qui me
permettent
d'avoir en "C", via une liste de validation dans la feuil "Agenda":
OUI = (code couelur 35)
NON = (code couleur 38)
A FAIRE = (code couleur 36)
EN SUSPEND = (code couleur 40)
1 ENTRETIEN = (code couleur 8)
A FAIRE A SUIVRE = (code couelur 22)
RECHERCHE RENSEIGNEMENTS = (code couleur 46)
Il y a aussi la solution:
"vide" = (en blanc / sans mise en forme colorée)
Exemple:
C3 = EN SUSPEND, la ligne A3:R3 se changent en Brun (code couleur 40)
merci à qui pourrait m'aider à finaliser mon tableau.
Salutations à tous
Guido
Re..
En effet
Essaie ceci
'------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 3 Then Exit Sub
plage = ("a" & Target.Row & ":r" & Target.Row)
Range([plage]).Interior.ColorIndex = xlNone
With Range([plage]).Interior
Select Case UCase(Target)
Case "OUI": .ColorIndex = 35
Case "NON": .ColorIndex = 38
Case "A FAIRE": .ColorIndex = 36
Case "EN SUSPEND": .ColorIndex = 40
Case "1 ENTRETIEN": .ColorIndex = 8
Case "A FAIRE A SUIVRE": .ColorIndex = 22
Case "RECHERCHE RENSEIGNEMENTS": .ColorIndex = 46
End Select
End With
End Sub
'---------
JJ
"Guido" a écrit dans le message de news:
%Salut Jacky,
merci de ton aide.
Cela fonctionne bien sur mon tableau, mais cela me donne que la cellule
dans
C.
Comment avoir la ligne colorée suivant C.
(c'est comme mon anglais: My VBa is not rich)
A+
Guido
"Jacky" a écrit dans le message de
news:Bonjour,
Un truc du genre devrait faire...
'----------
Private Sub Worksheet_Change(ByVal Target As Range)
Set selec = Application.Intersect(Target, Range("A1:R50000")) 'A
adapter
If Not selec Is Nothing Then
Target.Interior.ColorIndex = xlNone
With Target.Interior
Select Case UCase(Target)
Case "OUI": .ColorIndex = 35
Case "NON": .ColorIndex = 38
Case "A FAIRE": .ColorIndex = 36
Case "EN SUSPEND": .ColorIndex = 40
Case "1 ENTRETIEN": .ColorIndex = 8
Case "A FAIRE A SUIVRE": .ColorIndex = 22
Case "RECHERCHE RENSEIGNEMENTS": .ColorIndex = 46
End Select
End With
End If
End Sub
'----------
Salutations
JJ
"Guido" a écrit dans le message de
news:Bonjour à tous,
je pense n'être pas le premier à poser la question, mais je désire
avoir
unesolution en VBa, puisqu'il est presque impossible d'avoir plus de 3
conditions normalement.
Mon tableau comportent 18 colonnes de "A" à "R" (les lignes sont à
peu
prèsindéfinies)
Voici les dénominations qui se trouvent dans la Feuil1, qui me
permettentd'avoir en "C", via une liste de validation dans la feuil "Agenda":
OUI = (code couelur 35)
NON = (code couleur 38)
A FAIRE = (code couleur 36)
EN SUSPEND = (code couleur 40)
1 ENTRETIEN = (code couleur 8)
A FAIRE A SUIVRE = (code couelur 22)
RECHERCHE RENSEIGNEMENTS = (code couleur 46)
Il y a aussi la solution:
"vide" = (en blanc / sans mise en forme colorée)
Exemple:
C3 = EN SUSPEND, la ligne A3:R3 se changent en Brun (code couleur 40)
merci à qui pourrait m'aider à finaliser mon tableau.
Salutations à tous
Guido
Rn cas de sélection multiple, ta solution n'est pas rigoureuse.
Je propose les adaptations suivantes:
'--------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim selec As Range
Dim c As Range
Set selec = Application.Intersect(Target, Range("A1:R50000")) 'A adapter
If Not selec Is Nothing Then
For Each c In selec.Cells
With c.Interior
Select Case UCase(c.Value)
Case "OUI": .ColorIndex = 35
Case "NON": .ColorIndex = 38
Case "A FAIRE": .ColorIndex = 36
Case "EN SUSPEND": .ColorIndex = 40
Case "1 ENTRETIEN": .ColorIndex = 8
Case "A FAIRE A SUIVRE": .ColorIndex = 22
Case "RECHERCHE RENSEIGNEMENTS": .ColorIndex = 46
Case Else: c.ColorIndex = xlNone
End Select
End With
Next c
End If
End Sub
'-----------------------
"Jacky" a écrit dans le message de
news:Bonjour,
Un truc du genre devrait faire...
'----------
Private Sub Worksheet_Change(ByVal Target As Range)
Set selec = Application.Intersect(Target, Range("A1:R50000")) 'A adapter
If Not selec Is Nothing Then
Target.Interior.ColorIndex = xlNone
With Target.Interior
Select Case UCase(Target)
Case "OUI": .ColorIndex = 35
Case "NON": .ColorIndex = 38
Case "A FAIRE": .ColorIndex = 36
Case "EN SUSPEND": .ColorIndex = 40
Case "1 ENTRETIEN": .ColorIndex = 8
Case "A FAIRE A SUIVRE": .ColorIndex = 22
Case "RECHERCHE RENSEIGNEMENTS": .ColorIndex = 46
End Select
End With
End If
End Sub
'----------
Salutations
JJ
"Guido" a écrit dans le message de
news:Bonjour à tous,
je pense n'être pas le premier à poser la question, mais je désire
avoir
unesolution en VBa, puisqu'il est presque impossible d'avoir plus de 3
conditions normalement.
Mon tableau comportent 18 colonnes de "A" à "R" (les lignes sont à peu
prèsindéfinies)
Voici les dénominations qui se trouvent dans la Feuil1, qui me
permettentd'avoir en "C", via une liste de validation dans la feuil "Agenda":
OUI = (code couelur 35)
NON = (code couleur 38)
A FAIRE = (code couleur 36)
EN SUSPEND = (code couleur 40)
1 ENTRETIEN = (code couleur 8)
A FAIRE A SUIVRE = (code couelur 22)
RECHERCHE RENSEIGNEMENTS = (code couleur 46)
Il y a aussi la solution:
"vide" = (en blanc / sans mise en forme colorée)
Exemple:
C3 = EN SUSPEND, la ligne A3:R3 se changent en Brun (code couleur 40)
merci à qui pourrait m'aider à finaliser mon tableau.
Salutations à tous
Guido
Rn cas de sélection multiple, ta solution n'est pas rigoureuse.
Je propose les adaptations suivantes:
'--------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim selec As Range
Dim c As Range
Set selec = Application.Intersect(Target, Range("A1:R50000")) 'A adapter
If Not selec Is Nothing Then
For Each c In selec.Cells
With c.Interior
Select Case UCase(c.Value)
Case "OUI": .ColorIndex = 35
Case "NON": .ColorIndex = 38
Case "A FAIRE": .ColorIndex = 36
Case "EN SUSPEND": .ColorIndex = 40
Case "1 ENTRETIEN": .ColorIndex = 8
Case "A FAIRE A SUIVRE": .ColorIndex = 22
Case "RECHERCHE RENSEIGNEMENTS": .ColorIndex = 46
Case Else: c.ColorIndex = xlNone
End Select
End With
Next c
End If
End Sub
'-----------------------
"Jacky" <nospam@bidon.fr> a écrit dans le message de
news:OUvjYYWXGHA.3444@TK2MSFTNGP05.phx.gbl...
Bonjour,
Un truc du genre devrait faire...
'----------
Private Sub Worksheet_Change(ByVal Target As Range)
Set selec = Application.Intersect(Target, Range("A1:R50000")) 'A adapter
If Not selec Is Nothing Then
Target.Interior.ColorIndex = xlNone
With Target.Interior
Select Case UCase(Target)
Case "OUI": .ColorIndex = 35
Case "NON": .ColorIndex = 38
Case "A FAIRE": .ColorIndex = 36
Case "EN SUSPEND": .ColorIndex = 40
Case "1 ENTRETIEN": .ColorIndex = 8
Case "A FAIRE A SUIVRE": .ColorIndex = 22
Case "RECHERCHE RENSEIGNEMENTS": .ColorIndex = 46
End Select
End With
End If
End Sub
'----------
Salutations
JJ
"Guido" <Guido@nospam.com> a écrit dans le message de
news:OR30lGWXGHA.3448@TK2MSFTNGP04.phx.gbl...
Bonjour à tous,
je pense n'être pas le premier à poser la question, mais je désire
avoir
une
solution en VBa, puisqu'il est presque impossible d'avoir plus de 3
conditions normalement.
Mon tableau comportent 18 colonnes de "A" à "R" (les lignes sont à peu
près
indéfinies)
Voici les dénominations qui se trouvent dans la Feuil1, qui me
permettent
d'avoir en "C", via une liste de validation dans la feuil "Agenda":
OUI = (code couelur 35)
NON = (code couleur 38)
A FAIRE = (code couleur 36)
EN SUSPEND = (code couleur 40)
1 ENTRETIEN = (code couleur 8)
A FAIRE A SUIVRE = (code couelur 22)
RECHERCHE RENSEIGNEMENTS = (code couleur 46)
Il y a aussi la solution:
"vide" = (en blanc / sans mise en forme colorée)
Exemple:
C3 = EN SUSPEND, la ligne A3:R3 se changent en Brun (code couleur 40)
merci à qui pourrait m'aider à finaliser mon tableau.
Salutations à tous
Guido
Rn cas de sélection multiple, ta solution n'est pas rigoureuse.
Je propose les adaptations suivantes:
'--------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim selec As Range
Dim c As Range
Set selec = Application.Intersect(Target, Range("A1:R50000")) 'A adapter
If Not selec Is Nothing Then
For Each c In selec.Cells
With c.Interior
Select Case UCase(c.Value)
Case "OUI": .ColorIndex = 35
Case "NON": .ColorIndex = 38
Case "A FAIRE": .ColorIndex = 36
Case "EN SUSPEND": .ColorIndex = 40
Case "1 ENTRETIEN": .ColorIndex = 8
Case "A FAIRE A SUIVRE": .ColorIndex = 22
Case "RECHERCHE RENSEIGNEMENTS": .ColorIndex = 46
Case Else: c.ColorIndex = xlNone
End Select
End With
Next c
End If
End Sub
'-----------------------
"Jacky" a écrit dans le message de
news:Bonjour,
Un truc du genre devrait faire...
'----------
Private Sub Worksheet_Change(ByVal Target As Range)
Set selec = Application.Intersect(Target, Range("A1:R50000")) 'A adapter
If Not selec Is Nothing Then
Target.Interior.ColorIndex = xlNone
With Target.Interior
Select Case UCase(Target)
Case "OUI": .ColorIndex = 35
Case "NON": .ColorIndex = 38
Case "A FAIRE": .ColorIndex = 36
Case "EN SUSPEND": .ColorIndex = 40
Case "1 ENTRETIEN": .ColorIndex = 8
Case "A FAIRE A SUIVRE": .ColorIndex = 22
Case "RECHERCHE RENSEIGNEMENTS": .ColorIndex = 46
End Select
End With
End If
End Sub
'----------
Salutations
JJ
"Guido" a écrit dans le message de
news:Bonjour à tous,
je pense n'être pas le premier à poser la question, mais je désire
avoir
unesolution en VBa, puisqu'il est presque impossible d'avoir plus de 3
conditions normalement.
Mon tableau comportent 18 colonnes de "A" à "R" (les lignes sont à peu
prèsindéfinies)
Voici les dénominations qui se trouvent dans la Feuil1, qui me
permettentd'avoir en "C", via une liste de validation dans la feuil "Agenda":
OUI = (code couelur 35)
NON = (code couleur 38)
A FAIRE = (code couleur 36)
EN SUSPEND = (code couleur 40)
1 ENTRETIEN = (code couleur 8)
A FAIRE A SUIVRE = (code couelur 22)
RECHERCHE RENSEIGNEMENTS = (code couleur 46)
Il y a aussi la solution:
"vide" = (en blanc / sans mise en forme colorée)
Exemple:
C3 = EN SUSPEND, la ligne A3:R3 se changent en Brun (code couleur 40)
merci à qui pourrait m'aider à finaliser mon tableau.
Salutations à tous
Guido