Bonjour , je n'arrive pas à ècrire une sub qui permettrait de reperer dans
la plage b10:b6000 si 2 valeurs sont identiques et d'appliquer la couleur
jaune à chacun des doublons.(la plage contient des chiffres).
Je débute en vba ...j'ai essayé avec for each mais cela ne fct pas
Merci pour votre aide
janus
Est-ce vraiment nécesaire de faire du code pour ça?
Sélectionne ta colonne B10:B6000 Format- Mise en forme conditionnel - La formule est: =NB.SI($B$10:$B$6000;B10)>1 Choisir la couleur jaune.
Starwing
janus51
Merci pour ta réponse , mais je souhaiterais du code vba pour l'integrer au sein d'une procédure plus large. Encore merci "Starwing" a écrit dans le message de news: 735001c4cefa$80380f80$ Bonjuor Janus,
Est-ce vraiment nécesaire de faire du code pour ça?
Sélectionne ta colonne B10:B6000 Format- Mise en forme conditionnel - La formule est: =NB.SI($B$10:$B$6000;B10)>1 Choisir la couleur jaune.
Starwing
Merci pour ta réponse , mais je souhaiterais du code vba pour l'integrer au
sein d'une procédure plus large.
Encore merci
"Starwing" <NoMail@NoMail.Niet> a écrit dans le message de news:
735001c4cefa$80380f80$a401280a@phx.gbl...
Bonjuor Janus,
Est-ce vraiment nécesaire de faire du code pour ça?
Sélectionne ta colonne B10:B6000
Format- Mise en forme conditionnel -
La formule est:
=NB.SI($B$10:$B$6000;B10)>1
Choisir la couleur jaune.
Merci pour ta réponse , mais je souhaiterais du code vba pour l'integrer au sein d'une procédure plus large. Encore merci "Starwing" a écrit dans le message de news: 735001c4cefa$80380f80$ Bonjuor Janus,
Est-ce vraiment nécesaire de faire du code pour ça?
Sélectionne ta colonne B10:B6000 Format- Mise en forme conditionnel - La formule est: =NB.SI($B$10:$B$6000;B10)>1 Choisir la couleur jaune.
Starwing
Frédéric Sigonneau
Bonsoir,
Une façon de faire :
'================ Sub test() Dim Plage As Range, i& If Application.CountIf(Range("b10:B6000"), Range("B10")) > 1 Then Set Plage = Range("B10") For i = 10 To 6000 If Range("B" & i).Value = Range("B10").Value Then Set Plage = Union(Plage, Range("B" & i)) End If Next Plage.Interior.ColorIndex = 36 End If End Sub '================ FS --- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://frederic.sigonneau.free.fr Si votre question sur Excel est urgente, évitez ma bal !
Merci pour ta réponse , mais je souhaiterais du code vba pour l'integrer au sein d'une procédure plus large. Encore merci "Starwing" a écrit dans le message de news: 735001c4cefa$80380f80$ Bonjuor Janus,
Est-ce vraiment nécesaire de faire du code pour ça?
Sélectionne ta colonne B10:B6000 Format- Mise en forme conditionnel - La formule est: =NB.SI($B$10:$B$6000;B10)>1 Choisir la couleur jaune.
Starwing
Bonsoir,
Une façon de faire :
'================ Sub test()
Dim Plage As Range, i&
If Application.CountIf(Range("b10:B6000"), Range("B10")) > 1 Then
Set Plage = Range("B10")
For i = 10 To 6000
If Range("B" & i).Value = Range("B10").Value Then
Set Plage = Union(Plage, Range("B" & i))
End If
Next
Plage.Interior.ColorIndex = 36
End If
End Sub
'================
FS
---
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://frederic.sigonneau.free.fr
Si votre question sur Excel est urgente, évitez ma bal !
Merci pour ta réponse , mais je souhaiterais du code vba pour l'integrer au
sein d'une procédure plus large.
Encore merci
"Starwing" <NoMail@NoMail.Niet> a écrit dans le message de news:
735001c4cefa$80380f80$a401280a@phx.gbl...
Bonjuor Janus,
Est-ce vraiment nécesaire de faire du code pour ça?
Sélectionne ta colonne B10:B6000
Format- Mise en forme conditionnel -
La formule est:
=NB.SI($B$10:$B$6000;B10)>1
Choisir la couleur jaune.
'================ Sub test() Dim Plage As Range, i& If Application.CountIf(Range("b10:B6000"), Range("B10")) > 1 Then Set Plage = Range("B10") For i = 10 To 6000 If Range("B" & i).Value = Range("B10").Value Then Set Plage = Union(Plage, Range("B" & i)) End If Next Plage.Interior.ColorIndex = 36 End If End Sub '================ FS --- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://frederic.sigonneau.free.fr Si votre question sur Excel est urgente, évitez ma bal !
Merci pour ta réponse , mais je souhaiterais du code vba pour l'integrer au sein d'une procédure plus large. Encore merci "Starwing" a écrit dans le message de news: 735001c4cefa$80380f80$ Bonjuor Janus,
Est-ce vraiment nécesaire de faire du code pour ça?
Sélectionne ta colonne B10:B6000 Format- Mise en forme conditionnel - La formule est: =NB.SI($B$10:$B$6000;B10)>1 Choisir la couleur jaune.
