Discussion :

[Bricoltou]

Bonsoir le Fil

J'ai encore besoin de vos conseils
J'aimerai comparer la colonne C de mon onglet hebdo avec la colonne J de mon onglet jour en tenant compte du nom alors que les deux onglets ne sont pas identiques .

Dans le shéma d'origine les deux onglets sont deux fichiers séparés c'est pour cela que je souhaite faire une macro

est il possible que les écart dans la colonne J soit signalé par un coloriage de la cellule .

Merci pour votre aide et conseil

@+

Bricoltou

[rvtoulon]

slt,
effectivement, c'est possible.
il y a ton fichier, mais sans code difficile de te conseiller ou de t'aider, si ce n'est faire le code à ta place.

Bon ceci dit, Comme j'aime apprendre j'ai fait un code dans le but de m'exercer, qui fonctionne pour ton cas. Il faut le mettre dans un module :

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
25
26
27
28
29
30
31
32
 
Sub comparaison()
Dim i As Long, j As Long, plagehebdo As Range, plagejour As Range
 
Sheets("Hebdo").Select
Set plagehebdo = Sheets("Hebdo").Range("A6:A" & Range("A65356").End(xlUp).Row)
 
For Each nom1 In plagehebdo
 i = nom1.Row
 heure1 = Sheets("Hebdo").Range("C" & i)
 heure1 = Format(heure1, "hh:mm")
 
 Sheets("Jour").Select
 Set plagejour = Sheets("Jour").Range("B3:B" & Range("B65356").End(xlUp).Row)
 
    For Each nom2 In plagejour
     plagejour.Select
     j = nom2.Row
     heure2 = Sheets("Jour").Range("J" & j)
     heure2 = Format(heure2, "hh:mm")
 
      If nom1 = nom2 And heure1 <> heure2 Then
      Range("J" & j).Interior.ColorIndex = 6 'Colorie en Jaune la cellule
      Exit For
      End If
    Next nom2
 
Sheets("Hebdo").Select
 
Next nom1
 
End Sub

Je pense qu'il y a certainement plus simple, quand pensez-vous?

A+

[Bricoltou]

Bonsoir le Fil, rvtoulon

rvtoulon merci pour ton aide , je vas essayer d'adapter ton code amon projet

merci encore

bricoltou