macro compare

[chinel]

Salut tout le monde !


j'ai un code que pierrejean m'a donné mais j'ai ajouté des colonnes donc celui-ci ne fonctionne plus pouvez regarder mon fichier et voir le souci car je suis pas très bon en excel et vba

merci à tous !

 

[skoobi]

Re : macro compare

Bonjour,

A moins pierrejean passe par là, si tu nous donnais les colonnes que tu as inséré, ça nous prendra moins de temps pour la recherche.

 

[chinel]

Re : macro compare

Bojour tout le monde !

je voudrais avoir une réponse svp car je suis toujours dans le noir !

je suis désolé mais je n'ai pas su répondre car j'avais des soucis avec mon pc merci de votre compréhension !


merci !

 

[skoobi]

Re : macro compare

Bonjour,

As-tu lus mon message?:

si tu nous donnais les colonnes que tu as inséré, ça nous prendra moins de temps pour la recherche.

 

[chinel]

Re : macro compare

Bonjour Skoobi !

j'ai bien lu ton message mais vu que j'ai eu des soucis de pc, désolé
mais maintenant cela fonctionne car les pc c'est mon métier mais la programmation non !

j'ai ajouté comme colonne "c"-"k"-"l"-"m"-"n"-"o" j'avais une colonne "a" avec des des chiffres mais je l'ai supprimé

merci de ton aide !

 

[skoobi]

Re : macro compare

Re bonjour,

il faudrait que tu ré-expliques ton besoin, à moins que notre amis Pierrejean (que je salus au passage 🙂) passe par là car tu n'as pas mis l'ancien tableau pour comparer!!!

 

[chinel]

Re : macro compare

Salut tout le monde, toujours pas de solulutions trouvées !


merci ,besoin d'aide

 

[chinel]

Re : macro compare

Salut Skoobi voici mon fichier
dans la première feuille le code de pierrejean
dans la deuxième feuille pas de code car je ne sais pas comment faire


peux-tu voir si tu sais faire quelque chose svp !


merci de ton aide!

 

[bqtr]

Re : macro compare

Bonsoir chinel, skoobi, pierrejean😉

Voici les 2 macros de pierrejean adaptées à ta nouvelle feuille :

Sub test2()

Dim n As Long, m As Integer, tot As Byte
Dim plage As Range, cel As Range, liste

For n = 3 To 15
    liste = liste & "," & Cells(54, n)
Next n

liste = liste & ","
Set plage = Range("C3:O" & Range("A65536").End(xlUp).Row)

For Each cel In plage
   If InStr(liste, "," & cel.Value & ",") <> 0 Then cel.Interior.ColorIndex = 4
Next cel

For n = 3 To Range("A65536").End(xlUp).Row
  For m = 3 To 15
    If Cells(n, m).Interior.ColorIndex = 4 Then
      tot = tot + 1
    End If
  Next m
  Cells(n, 16) = tot
  tot = 0
Next n

End Sub

et

Sub raz2()
Cells.Interior.ColorIndex = 36 'xlNone
'Columns("P").ClearContents
Range("p3:p52").ClearContents
'Sheets("lotto").Protect ("manu4221")
End Sub

Bonne soirée

 

[skoobi]

Re : macro compare

Re bonjour,

voici le fichier avec la macro adaptée.

Edit: bonsoir bqtr, arfff, j'ais oublié la 2eme macros🙄

 

[chinel]

Re : macro compare

merci les amis !!!