Discussion :

[lebreton22]

Bonjour
J'expose mon problème : j'ai des plages de plusieurs colonnes sur une feuille et je ne peux pas avoir de doublons sur une même plage.
Ce que je voudrais donc à partir d'une macro:
1) lorsque je clique sur une cellule, la recherche s'opère sur la plage de la cellule active
2) la macro balaye la plage et identifie les doublons en coloriant les cases
Si quelqu'un avait des idées, je suis preneur, n'y connaissant rien ou si peu en vba

[casefayere]

Bonjour,

et je ne peux pas avoir de doublons sur une même plage.

alors plutot que les colorier, pourquoi ne pas les supprimer ?, il y a beaucoup de discussions sur ce sujet

Bonne journée

[lebreton22]

Parce que je dois les déplacer : ce sont des personnes qui s'inscrivent à des formations et elle ne peuvent donc pas être à deux endroits différents à la même heure.
Donc, il faut bien que je les identifie avant de les permuter manuellement

[casefayere]

ok, je vais regarder si j'ai un exemple

[casefayere]

j'ai un code mais il donne le contraire du résultat escompté, à fouiller :

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
18
19
20
21
22
23
24
Sub doublons()
Dim plage As Range, x As Integer, lg As Integer, derlg As Integer, qui As Range
For x = 1 To 5
lg = Cells(65536, x).End(xlUp).Row
If lg > derlg Then: derlg = lg
Next x
Set plage = Range("a10:e" & derlg)
For lg = 1 To 5
For x = 10 To derlg
 
Set qui = plage.Find(Cells(x, lg), LookIn:=xlValues)
If Not qui Is Nothing Then
With qui.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
End With
End If
Next x
Next lg
 
End Sub

[laetitia]

bonjour lebreton22 casefayere le forum une variante tu rentre un nom tu click sur le bouton les doublons apparaissent pendant 2 secondes cela evite de de redefinir les couleurs a chaque fois j utilise CurrentRegion
il faut que autour de tes plages les cellules restent vide comme dans ton exemple sauf sur la derniere plage en b55 j ai rajoute 1 pour avoir la plage CurrentRegion

Code :

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

If Selection.Row > 8 And Selection.Column < 6 Then ActiveCell.CurrentRegion.Select

cela veut dire que la macro fonctionne a partir de la ligne 8 & pas superieur a la colonne 6 a adapter si ton exemple c est pas tout a fait ca
autrement on peut passer par une evenentiel type

Code :

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

1
2
3
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'code
End Sub