Un calcul avec des tri et compare ...

[tvhabdo]

Bonjour tous, Besoin d'aide cher collegues 🙂

JE joint un fichier Excel avec les explication de ce que je souhaiterais
Si c'est possible, bien sur...
pour moi, c'est du chinois de trouver une telle formule,

Merci, les EXperts, à Bientôt Patrick 🙂

 

[tvhabdo]

Re : Un calcul avec des tri et compare ...

Deude effectivement , je suis sur MAC Excel 2004..

J'essais avec = et je te dis..

Patrick

 

[tvhabdo]

Re : Un calcul avec des tri et compare ...

Deude... j'ai remplacer le signe < par = (il ne m'a fait que 1 amalgame)

j'ai remis < (valider quitter et relancer Excel) il ne met plus erreur de debogage, mais il ne prends pas la limit de 53000 (le 19000 est topujours avec 136000)

ci dessous le bout de macro modifié (lar la colonne D pour toi est ma colonne I dans mon fichier de travail)

Trouver les amalgames qui ne sont pas des doublons
For k = 2 To L
For m = k + 1 To L
If Ws.Range("E" & k) = 4 And Ws.Range("G" & k) = 70 And Ws.Range("C" & k) = "" And _
Ws.Range("E" & m) = 4 And Ws.Range("G" & m) = 70 And Ws.Range("C" & m) = "" And Ws.Range("I" & m).Value < Ws.Range("I" & k).Value + 53000 Then
Ws.Range("C" & k) = "Amal " & a
Ws.Range("C" & m) = "Amal " & a
a = a + 1
End If
If Ws.Range("E" & k) = 4 And Ws.Range("G" & k) = 90 And Ws.Range("C" & k) = "" And _
Ws.Range("E" & m) = 4 And Ws.Range("G" & m) = 90 And Ws.Range("C" & m) = "" And Ws.Range("I" & m).Value < Ws.Range("I" & k).Value + 53000 Then
Ws.Range("C" & k) = "Amal " & a
Ws.Range("C" & m) = "Amal " & a
a = a + 1
End If

Patrick

 

[deudecos]

Re : Un calcul avec des tri et compare ...

re Patrick,

En effet, si tu remplace < par = Tu ne peux obtenir que les doublons, parce qu'il est rare que tu trouve un amalgame avec juste 53000 de difference entre les deux nombres, par contre, si tu mets les deux signes, a savoir <= ou =< peut etre que ca fera la difference. Mais encore une fois, c'est theorique puisque je ne connais pas cette version d'excel...

Bonne journee

Olivier

 

[tvhabdo]

Re : Un calcul avec des tri et compare ... (fin)

Salut, Deude... j'ai enfin la soluce par un collegue de travail Excel Barbapapatruc
je te donne son bout de MACRO que j'ai inseré dans ta base...

Sub ChercherDoublons()
Dim L As Integer, i As Integer, j As Integer, Ws As Worksheet, a As Integer, k As Integer, m As Integer
Set Ws = Sheets("BRODARD")
Limit = 53000
a = 1
L = Ws.Range("A65536").End(xlUp).Row

'Trouver tout les doublons et les numeroter
For i = 2 To L
For j = i + 1 To L
If Ws.Range("I" & i) = Ws.Range("I" & j) And Ws.Range("C" & i) = "" And _
Ws.Range("E" & i) = Ws.Range("E" & j) And Ws.Range("E" & i) = 4 And _
Ws.Range("G" & i) = Ws.Range("G" & j) And (Ws.Range("G" & i) = 70 Or Ws.Range("G" & i) = 90) Then
Ws.Range("C" & i) = "Amal " & a
Ws.Range("C" & j) = "Amal " & a
' inscrire en face de chacun, le nombre le plus eleve de chaque amalgame
Ws.Range("J" & i).Formula = "=MAX(I" & i & ",I" & j & ")"
Ws.Range("J" & j).Formula = "=MAX(I" & i & ",I" & j & ")"
a = a + 1
End If
Next
Next
'Trouver les amalgames qui ne sont pas des doublons, mais avec une limite donnée
For i = 2 To L
For j = i + 1 To L
If Ws.Range("C" & i) = "" And Ws.Range("C" & j) = "" And _
Abs(Ws.Range("I" & i) - Ws.Range("I" & j)) < Limit And _
Ws.Range("E" & i) = Ws.Range("E" & j) And Ws.Range("E" & i) = 4 And _
Ws.Range("G" & i) = Ws.Range("G" & j) And (Ws.Range("G" & i) = 70 Or Ws.Range("G" & i) = 90) Then
Ws.Range("C" & i) = "Amal " & a
Ws.Range("C" & j) = "Amal " & a
' inscrire en face de chacun, le nombre le plus eleve de chaque amalgame
Ws.Range("J" & i).Formula = "=MAX(I" & i & ",I" & j & ")"
Ws.Range("J" & j).Formula = "=MAX(I" & i & ",I" & j & ")"
a = a + 1
End If
Next
Next

End Sub

Deude... comme ça fonctionne, je pense que ce sera le dernier Post pour cette discussion..

Encore Merci pour ton Savoir et à bientôt pour de nouvelles aventures sur d'autres fil de discut - Ciao Patrick (Merciiiiiiiiiiiiiiiiiiiiii, Deude) 🙂