macro compare

skoobi

XLDnaute Barbatruc

• 17 Janvier 2008

• #2

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.

 

Vote positif 0 Vote négatif

chinel

XLDnaute Impliqué

• 3 Février 2008

• #3

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 !

 

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 3 Février 2008

• #4

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.

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

chinel

XLDnaute Impliqué

• 3 Février 2008

• #5

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 !

 

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 4 Février 2008

• #6

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!!!

 

Vote positif 0 Vote négatif

chinel

XLDnaute Impliqué

• 5 Février 2008

• #7

Re : macro compare

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


merci ,besoin d'aide

 

Vote positif 0 Vote négatif

chinel

XLDnaute Impliqué

• 5 Février 2008

• #8

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!

 

Pièces jointes

• LOTTO by Manu.xls

  44 KB · Affichages: 87
• LOTTO by Manu.xls

  44 KB · Affichages: 86
• LOTTO by Manu.xls

  44 KB · Affichages: 88

Vote positif 0 Vote négatif

bqtr

XLDnaute Accro

• 5 Février 2008

• #9

Re : macro compare

Bonsoir chinel, skoobi, pierrejean😉

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

Code:

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

Code:

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

Bonne soirée

 

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 5 Février 2008

• #10

Re : macro compare

Re bonjour,

voici le fichier avec la macro adaptée.

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

 

Pièces jointes

• LOTTO by Manu.zip

  16.1 KB · Affichages: 68

Vote positif 0 Vote négatif

chinel

XLDnaute Impliqué

• 5 Février 2008

• #11

Re : macro compare

merci les amis !!!

 

Vote positif 0 Vote négatif