vba - différences entre deux plages avec le mot exact
2 réponses
twinley
Bonjour à tous
cette sub qui vient de là
http://www.excelabo.net/xl/comparer.php#diffencouleur
soit de JpPradier soit de AV,
met en évidence les différences entre deux plages nommées mer et soleil
en coloriant la liste 1.
Mais si un mot de la liste 1 est ADM par exemple et qu'un autre mot de
la liste 2 est ADMINISTRATIF, la sub va colorier le mot ADM.
Il trouve la suite de caractère ADM dans ADMINISTRATIF, majuscule ou
minuscule, d'ailleurs , et le colore comme occurence.
Sub colorier()
Dim cel, absent
For Each cel In Range("mer")
Set absent = Range("soleil").Find(cel, LookIn:=xlValues)
If absent Is Nothing Then
cel.Interior.ColorIndex = 3
End If
Next
End Sub
Ma question : Comment modifier cette sub pour chercher le mot exact ?
Il y a bien la deuxième sub cherch_et_color() mais je n'arrive pas à la
faire tourner.
La sub colorier() me convient bien, sauf que la petite faiblesse met
tout par terre.
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
ChrisV
Bonjour Twinley,
(non testée...)
Sub colorier() Dim cel, absent For Each cel In Range("mer") Set absent = Range("soleil").Find(cel, LookIn:=xlValues, _ LookAt:=xlWhole) If absent Is Nothing Then cel.Interior.ColorIndex = 3 End If Next End Sub
ChrisV
"twinley" a écrit dans le message de news:
Bonjour à tous
cette sub qui vient de là http://www.excelabo.net/xl/comparer.php#diffencouleur soit de JpPradier soit de AV, met en évidence les différences entre deux plages nommées mer et soleil en coloriant la liste 1.
Mais si un mot de la liste 1 est ADM par exemple et qu'un autre mot de la liste 2 est ADMINISTRATIF, la sub va colorier le mot ADM. Il trouve la suite de caractère ADM dans ADMINISTRATIF, majuscule ou minuscule, d'ailleurs , et le colore comme occurence.
Sub colorier() Dim cel, absent For Each cel In Range("mer") Set absent = Range("soleil").Find(cel, LookIn:=xlValues) If absent Is Nothing Then cel.Interior.ColorIndex = 3 End If Next End Sub
Ma question : Comment modifier cette sub pour chercher le mot exact ?
Il y a bien la deuxième sub cherch_et_color() mais je n'arrive pas à la faire tourner. La sub colorier() me convient bien, sauf que la petite faiblesse met tout par terre.
merci pour votre aide
-- à+twinley
Bonjour Twinley,
(non testée...)
Sub colorier()
Dim cel, absent
For Each cel In Range("mer")
Set absent = Range("soleil").Find(cel, LookIn:=xlValues, _
LookAt:=xlWhole)
If absent Is Nothing Then
cel.Interior.ColorIndex = 3
End If
Next
End Sub
ChrisV
"twinley" <twinleymax@hotmail.com> a écrit dans le message de news:
uIfbaIWfFHA.2484@TK2MSFTNGP15.phx.gbl...
Bonjour à tous
cette sub qui vient de là
http://www.excelabo.net/xl/comparer.php#diffencouleur
soit de JpPradier soit de AV,
met en évidence les différences entre deux plages nommées mer et soleil en
coloriant la liste 1.
Mais si un mot de la liste 1 est ADM par exemple et qu'un autre mot de la
liste 2 est ADMINISTRATIF, la sub va colorier le mot ADM.
Il trouve la suite de caractère ADM dans ADMINISTRATIF, majuscule ou
minuscule, d'ailleurs , et le colore comme occurence.
Sub colorier()
Dim cel, absent
For Each cel In Range("mer")
Set absent = Range("soleil").Find(cel, LookIn:=xlValues)
If absent Is Nothing Then
cel.Interior.ColorIndex = 3
End If
Next
End Sub
Ma question : Comment modifier cette sub pour chercher le mot exact ?
Il y a bien la deuxième sub cherch_et_color() mais je n'arrive pas à la
faire tourner.
La sub colorier() me convient bien, sauf que la petite faiblesse met tout
par terre.
Sub colorier() Dim cel, absent For Each cel In Range("mer") Set absent = Range("soleil").Find(cel, LookIn:=xlValues, _ LookAt:=xlWhole) If absent Is Nothing Then cel.Interior.ColorIndex = 3 End If Next End Sub
ChrisV
"twinley" a écrit dans le message de news:
Bonjour à tous
cette sub qui vient de là http://www.excelabo.net/xl/comparer.php#diffencouleur soit de JpPradier soit de AV, met en évidence les différences entre deux plages nommées mer et soleil en coloriant la liste 1.
Mais si un mot de la liste 1 est ADM par exemple et qu'un autre mot de la liste 2 est ADMINISTRATIF, la sub va colorier le mot ADM. Il trouve la suite de caractère ADM dans ADMINISTRATIF, majuscule ou minuscule, d'ailleurs , et le colore comme occurence.
Sub colorier() Dim cel, absent For Each cel In Range("mer") Set absent = Range("soleil").Find(cel, LookIn:=xlValues) If absent Is Nothing Then cel.Interior.ColorIndex = 3 End If Next End Sub
Ma question : Comment modifier cette sub pour chercher le mot exact ?
Il y a bien la deuxième sub cherch_et_color() mais je n'arrive pas à la faire tourner. La sub colorier() me convient bien, sauf que la petite faiblesse met tout par terre.
merci pour votre aide
-- à+twinley
twinley
Bonjour ChrisV
La perfection rêvée... impeccable.
Merci beaucoup
à+twinley
ChrisV wrote:
Bonjour Twinley,
(non testée...)
Sub colorier() Dim cel, absent For Each cel In Range("mer") Set absent = Range("soleil").Find(cel, LookIn:=xlValues, _ LookAt:=xlWhole) If absent Is Nothing Then cel.Interior.ColorIndex = 3 End If Next End Sub
ChrisV
"twinley" a écrit dans le message de news:
Bonjour à tous
cette sub qui vient de là http://www.excelabo.net/xl/comparer.php#diffencouleur soit de JpPradier soit de AV, met en évidence les différences entre deux plages nommées mer et soleil en coloriant la liste 1.
Mais si un mot de la liste 1 est ADM par exemple et qu'un autre mot de la liste 2 est ADMINISTRATIF, la sub va colorier le mot ADM. Il trouve la suite de caractère ADM dans ADMINISTRATIF, majuscule ou minuscule, d'ailleurs , et le colore comme occurence.
Sub colorier() Dim cel, absent For Each cel In Range("mer") Set absent = Range("soleil").Find(cel, LookIn:=xlValues) If absent Is Nothing Then cel.Interior.ColorIndex = 3 End If Next End Sub
Ma question : Comment modifier cette sub pour chercher le mot exact ?
Il y a bien la deuxième sub cherch_et_color() mais je n'arrive pas à la faire tourner. La sub colorier() me convient bien, sauf que la petite faiblesse met tout par terre.
merci pour votre aide
-- à+twinley
Bonjour ChrisV
La perfection rêvée... impeccable.
Merci beaucoup
à+twinley
ChrisV wrote:
Bonjour Twinley,
(non testée...)
Sub colorier()
Dim cel, absent
For Each cel In Range("mer")
Set absent = Range("soleil").Find(cel, LookIn:=xlValues, _
LookAt:=xlWhole)
If absent Is Nothing Then
cel.Interior.ColorIndex = 3
End If
Next
End Sub
ChrisV
"twinley" <twinleymax@hotmail.com> a écrit dans le message de news:
uIfbaIWfFHA.2484@TK2MSFTNGP15.phx.gbl...
Bonjour à tous
cette sub qui vient de là
http://www.excelabo.net/xl/comparer.php#diffencouleur
soit de JpPradier soit de AV,
met en évidence les différences entre deux plages nommées mer et soleil en
coloriant la liste 1.
Mais si un mot de la liste 1 est ADM par exemple et qu'un autre mot de la
liste 2 est ADMINISTRATIF, la sub va colorier le mot ADM.
Il trouve la suite de caractère ADM dans ADMINISTRATIF, majuscule ou
minuscule, d'ailleurs , et le colore comme occurence.
Sub colorier()
Dim cel, absent
For Each cel In Range("mer")
Set absent = Range("soleil").Find(cel, LookIn:=xlValues)
If absent Is Nothing Then
cel.Interior.ColorIndex = 3
End If
Next
End Sub
Ma question : Comment modifier cette sub pour chercher le mot exact ?
Il y a bien la deuxième sub cherch_et_color() mais je n'arrive pas à la
faire tourner.
La sub colorier() me convient bien, sauf que la petite faiblesse met tout
par terre.
Sub colorier() Dim cel, absent For Each cel In Range("mer") Set absent = Range("soleil").Find(cel, LookIn:=xlValues, _ LookAt:=xlWhole) If absent Is Nothing Then cel.Interior.ColorIndex = 3 End If Next End Sub
ChrisV
"twinley" a écrit dans le message de news:
Bonjour à tous
cette sub qui vient de là http://www.excelabo.net/xl/comparer.php#diffencouleur soit de JpPradier soit de AV, met en évidence les différences entre deux plages nommées mer et soleil en coloriant la liste 1.
Mais si un mot de la liste 1 est ADM par exemple et qu'un autre mot de la liste 2 est ADMINISTRATIF, la sub va colorier le mot ADM. Il trouve la suite de caractère ADM dans ADMINISTRATIF, majuscule ou minuscule, d'ailleurs , et le colore comme occurence.
Sub colorier() Dim cel, absent For Each cel In Range("mer") Set absent = Range("soleil").Find(cel, LookIn:=xlValues) If absent Is Nothing Then cel.Interior.ColorIndex = 3 End If Next End Sub
Ma question : Comment modifier cette sub pour chercher le mot exact ?
Il y a bien la deuxième sub cherch_et_color() mais je n'arrive pas à la faire tourner. La sub colorier() me convient bien, sauf que la petite faiblesse met tout par terre.
