Discussion :

[LEONARDO95]

bonjour ,

Ce programme fonctionne trés bien si la plage de données commence en A1.
je débute en VBA et je n'arrive pas à modifier ce programme afin
de pouvoir selectionner une aute plage de test. (ex: a partir de O12) ,
sans me créer des problémes de test, voir le fichier joint.
merci pour votre aide.

[78chris]

Boujour

Efface ton commentaire à proximité de la plage

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub ColoriageDoublonsNbSi(Coin As Range)
  Coin.CurrentRegion.Interior.ColorIndex = xlNone
  Application.ScreenUpdating = False
  Lig = Coin.Row
  Col = Coin.Column
  Col2 = Coin.CurrentRegion.Columns.Count
  For i = Lig To Lig + Coin.CurrentRegion.Rows.Count - 1
    Set Champ = Range(Cells(i, Col), Cells(i, Col + Col2 - 1))
    For c = Col To Col + Col2 - 1
     If Application.CountIf(Champ, Cells(i, c)) > 1 Then Cells(i, c).Interior.ColorIndex = 6
    Next c
  Next i
End Sub
 
Sub test()
    ColoriageDoublonsNbSi (Cells(8, "O"))
End Sub

[LEONARDO95]

Bonsoir 78chris

Ca marche parfaitement, aprés avoir copier/coller le fichier vba,
j'ai eu un message du type (argument non facultatif) !!!!!.
aprés quelques recherches sans solution ,j'ai refait une nouvelle page excel
et la ca marche sans soucis
Merci beaucoup pour ton aide
leonardo