Bonjour,
Voilà, j'ai deux listes de noms, dans deux feuilles, je voudrais que
les noms qui ce retrouvent dans les deux listes en même temps
apparaisent d'une autre façon (autre couleur par exemple).
Automatiquement à l'écriture du nom.
Merci de votre aide.
michel
Bonsoir, Je rentre juste et je regarde cela demain dans la matinée. Suis un peu fatigué de ma journée ce soir.
-- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/
<evem&12~@wanadoo.fr> a écrit dans le message de news:
non cela est rouge que dans la derniere feuille écrite michel
Le Fri, 17 Dec 2004 09:39:25 +0100, "Pounet95" écrit:
Bonjour, Dans le module standard, dans la fonction, remplacer
If Err=0 then Chercher=True
par
If Err = 0 Then Target.Interior.ColorIndex = 3 Chercher = True End If
Ca devrait faire l'affaire (mais non testé )
Pounet95
Bonjour, Adapter les colonnes et noms de feuille, bien sûr
'Dans module feuille 1
Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next Application.ScreenUpdating = False If Not Intersect(Target, Columns("A:A")) Is Nothing Then rep = Chercher(Target.Value, "Feuil2") If rep = True Then Target.Interior.ColorIndex = 3 Else Target.Interior.ColorIndex = xlNone End If End If Sheets("Feuil1").Activate Application.ScreenUpdating = True End Sub
'Dans module feuille 2 Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next Application.ScreenUpdating = False If Not Intersect(Target, Columns("A:A")) Is Nothing Then rep = Chercher(Target.Value, "Feuil1") If rep = True Then Target.Interior.ColorIndex = 3 Else Target.Interior.ColorIndex = xlNone End If End If Sheets("Feuil2").Activate Application.ScreenUpdating = True End Sub
'Dans module standard Function Chercher(Cible As String, Feuille As String) As Boolean Sheets(Feuille).Activate Chercher = False On Error Resume Next Columns("A:A").Select Selection.Find(What:=Cible, After:¬tiveCell, LookIn:=xlValues, _ LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:úlse).Activate If Err = 0 Then ActiveCell.Interior.ColorIndex = 3 Chercher = True Else ActiveCell.Interior.ColorIndex = xlNone End If End Function
J'ai testé XL2000 XP Pro : c'est OK Peut-être éviter la cellule A1 car quand Excel sélectionne la colonne A, par défaut la cellule active devient A1 et je ne suis pas certain que la recherche Find aboutisse. Bonne journée -- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/
<evem&12~@wanadoo.fr> a écrit dans le message de news:
non cela est rouge que dans la derniere feuille écrite michel
Le Fri, 17 Dec 2004 09:39:25 +0100, "Pounet95" écrit:
Bonjour, Dans le module standard, dans la fonction, remplacer
If Err=0 then Chercher=True
par
If Err = 0 Then Target.Interior.ColorIndex = 3 Chercher = True End If
Ca devrait faire l'affaire (mais non testé )
Bonjour,
Adapter les colonnes et noms de feuille, bien sûr
'Dans module feuille 1
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Application.ScreenUpdating = False
If Not Intersect(Target, Columns("A:A")) Is Nothing Then
rep = Chercher(Target.Value, "Feuil2")
If rep = True Then
Target.Interior.ColorIndex = 3
Else
Target.Interior.ColorIndex = xlNone
End If
End If
Sheets("Feuil1").Activate
Application.ScreenUpdating = True
End Sub
'Dans module feuille 2
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Application.ScreenUpdating = False
If Not Intersect(Target, Columns("A:A")) Is Nothing Then
rep = Chercher(Target.Value, "Feuil1")
If rep = True Then
Target.Interior.ColorIndex = 3
Else
Target.Interior.ColorIndex = xlNone
End If
End If
Sheets("Feuil2").Activate
Application.ScreenUpdating = True
End Sub
'Dans module standard
Function Chercher(Cible As String, Feuille As String) As Boolean
Sheets(Feuille).Activate
Chercher = False
On Error Resume Next
Columns("A:A").Select
Selection.Find(What:=Cible, After:¬tiveCell, LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:úlse).Activate
If Err = 0 Then
ActiveCell.Interior.ColorIndex = 3
Chercher = True
Else
ActiveCell.Interior.ColorIndex = xlNone
End If
End Function
J'ai testé XL2000 XP Pro : c'est OK
Peut-être éviter la cellule A1 car quand Excel sélectionne la colonne A, par
défaut
la cellule active devient A1 et je ne suis pas certain que la recherche Find
aboutisse.
Bonne journée
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
<evem&12~@wanadoo.fr> a écrit dans le message de news:
41c2dbff.1496161@news.free.fr...
non cela est rouge que dans la derniere feuille écrite
michel
Le Fri, 17 Dec 2004 09:39:25 +0100, "Pounet95" <pasdepub@oneado.fr>
écrit:
Bonjour,
Dans le module standard, dans la fonction, remplacer
If Err=0 then Chercher=True
par
If Err = 0 Then
Target.Interior.ColorIndex = 3
Chercher = True
End If
Bonjour, Adapter les colonnes et noms de feuille, bien sûr
'Dans module feuille 1
Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next Application.ScreenUpdating = False If Not Intersect(Target, Columns("A:A")) Is Nothing Then rep = Chercher(Target.Value, "Feuil2") If rep = True Then Target.Interior.ColorIndex = 3 Else Target.Interior.ColorIndex = xlNone End If End If Sheets("Feuil1").Activate Application.ScreenUpdating = True End Sub
'Dans module feuille 2 Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next Application.ScreenUpdating = False If Not Intersect(Target, Columns("A:A")) Is Nothing Then rep = Chercher(Target.Value, "Feuil1") If rep = True Then Target.Interior.ColorIndex = 3 Else Target.Interior.ColorIndex = xlNone End If End If Sheets("Feuil2").Activate Application.ScreenUpdating = True End Sub
'Dans module standard Function Chercher(Cible As String, Feuille As String) As Boolean Sheets(Feuille).Activate Chercher = False On Error Resume Next Columns("A:A").Select Selection.Find(What:=Cible, After:¬tiveCell, LookIn:=xlValues, _ LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:úlse).Activate If Err = 0 Then ActiveCell.Interior.ColorIndex = 3 Chercher = True Else ActiveCell.Interior.ColorIndex = xlNone End If End Function
J'ai testé XL2000 XP Pro : c'est OK Peut-être éviter la cellule A1 car quand Excel sélectionne la colonne A, par défaut la cellule active devient A1 et je ne suis pas certain que la recherche Find aboutisse. Bonne journée -- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/
<evem&12~@wanadoo.fr> a écrit dans le message de news:
non cela est rouge que dans la derniere feuille écrite michel
Le Fri, 17 Dec 2004 09:39:25 +0100, "Pounet95" écrit:
Bonjour, Dans le module standard, dans la fonction, remplacer
If Err=0 then Chercher=True
par
If Err = 0 Then Target.Interior.ColorIndex = 3 Chercher = True End If
Ca devrait faire l'affaire (mais non testé )
evem&12~
Bonjour, Merci pour les réponses Cordialement Michel
le Sat, 18 Dec 2004 07:21:05 +0100, "Pounet95" écrit:
Bonjour, Adapter les colonnes et noms de feuille, bien sûr
'Dans module feuille 1
Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next Application.ScreenUpdating = False If Not Intersect(Target, Columns("A:A")) Is Nothing Then rep = Chercher(Target.Value, "Feuil2") If rep = True Then Target.Interior.ColorIndex = 3 Else Target.Interior.ColorIndex = xlNone End If End If Sheets("Feuil1").Activate Application.ScreenUpdating = True End Sub
'Dans module feuille 2 Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next Application.ScreenUpdating = False If Not Intersect(Target, Columns("A:A")) Is Nothing Then rep = Chercher(Target.Value, "Feuil1") If rep = True Then Target.Interior.ColorIndex = 3 Else Target.Interior.ColorIndex = xlNone End If End If Sheets("Feuil2").Activate Application.ScreenUpdating = True End Sub
'Dans module standard Function Chercher(Cible As String, Feuille As String) As Boolean Sheets(Feuille).Activate Chercher = False On Error Resume Next Columns("A:A").Select Selection.Find(What:=Cible, After:¬tiveCell, LookIn:=xlValues, _ LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:úlse).Activate If Err = 0 Then ActiveCell.Interior.ColorIndex = 3 Chercher = True Else ActiveCell.Interior.ColorIndex = xlNone End If End Function
J'ai testé XL2000 XP Pro : c'est OK Peut-être éviter la cellule A1 car quand Excel sélectionne la colonne A, par défaut la cellule active devient A1 et je ne suis pas certain que la recherche Find aboutisse. Bonne journée
Bonjour,
Merci pour les réponses
Cordialement Michel
le Sat, 18 Dec 2004 07:21:05 +0100, "Pounet95" <pasdepub@oneado.fr>
écrit:
Bonjour,
Adapter les colonnes et noms de feuille, bien sûr
'Dans module feuille 1
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Application.ScreenUpdating = False
If Not Intersect(Target, Columns("A:A")) Is Nothing Then
rep = Chercher(Target.Value, "Feuil2")
If rep = True Then
Target.Interior.ColorIndex = 3
Else
Target.Interior.ColorIndex = xlNone
End If
End If
Sheets("Feuil1").Activate
Application.ScreenUpdating = True
End Sub
'Dans module feuille 2
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Application.ScreenUpdating = False
If Not Intersect(Target, Columns("A:A")) Is Nothing Then
rep = Chercher(Target.Value, "Feuil1")
If rep = True Then
Target.Interior.ColorIndex = 3
Else
Target.Interior.ColorIndex = xlNone
End If
End If
Sheets("Feuil2").Activate
Application.ScreenUpdating = True
End Sub
'Dans module standard
Function Chercher(Cible As String, Feuille As String) As Boolean
Sheets(Feuille).Activate
Chercher = False
On Error Resume Next
Columns("A:A").Select
Selection.Find(What:=Cible, After:¬tiveCell, LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:úlse).Activate
If Err = 0 Then
ActiveCell.Interior.ColorIndex = 3
Chercher = True
Else
ActiveCell.Interior.ColorIndex = xlNone
End If
End Function
J'ai testé XL2000 XP Pro : c'est OK
Peut-être éviter la cellule A1 car quand Excel sélectionne la colonne A, par
défaut
la cellule active devient A1 et je ne suis pas certain que la recherche Find
aboutisse.
Bonne journée
Bonjour, Merci pour les réponses Cordialement Michel
le Sat, 18 Dec 2004 07:21:05 +0100, "Pounet95" écrit:
Bonjour, Adapter les colonnes et noms de feuille, bien sûr
'Dans module feuille 1
Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next Application.ScreenUpdating = False If Not Intersect(Target, Columns("A:A")) Is Nothing Then rep = Chercher(Target.Value, "Feuil2") If rep = True Then Target.Interior.ColorIndex = 3 Else Target.Interior.ColorIndex = xlNone End If End If Sheets("Feuil1").Activate Application.ScreenUpdating = True End Sub
'Dans module feuille 2 Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next Application.ScreenUpdating = False If Not Intersect(Target, Columns("A:A")) Is Nothing Then rep = Chercher(Target.Value, "Feuil1") If rep = True Then Target.Interior.ColorIndex = 3 Else Target.Interior.ColorIndex = xlNone End If End If Sheets("Feuil2").Activate Application.ScreenUpdating = True End Sub
'Dans module standard Function Chercher(Cible As String, Feuille As String) As Boolean Sheets(Feuille).Activate Chercher = False On Error Resume Next Columns("A:A").Select Selection.Find(What:=Cible, After:¬tiveCell, LookIn:=xlValues, _ LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:úlse).Activate If Err = 0 Then ActiveCell.Interior.ColorIndex = 3 Chercher = True Else ActiveCell.Interior.ColorIndex = xlNone End If End Function
J'ai testé XL2000 XP Pro : c'est OK Peut-être éviter la cellule A1 car quand Excel sélectionne la colonne A, par défaut la cellule active devient A1 et je ne suis pas certain que la recherche Find aboutisse. Bonne journée
