Traitement Tableau!!!

[blueangel2005]

Bonjour tout le monde,
je suis débutant en macro VBA🙁
j'ai une feuille excel qui contient un tableau placé sur dans des cellules de A1😀8
X Y Z Taux
105,00 105,80 0,8 100%
105,80 107,00 1,2 100%
107,00 107,80 0,8 100%
107,80 108,50 0,7 86%
108,50 109,10 0,6 100%
109,10 110,00 0,9 100%
110,00 110,80 0,8 88%
110,80 111,10 0,3 100%
je veux condenser ce tableau avec une macro pour que j'ai en sortie le tableau suivant:
X Y Taux
105,00 107,80 100%
107,80 108,50 86%
108,50 110,00 100%
110,00 110,80 88%
110,80 111,10 100%

en faite je ne conserve pas les lignes qui ont le même taux je prend pour un taux donné le min X et le max Y et j'ai supprimé la colonne des Z.
et je veux copier coller le tableau dans une autre feuille.
je trouve pas comment formuler tous cela en une marco.
Merci beaucoup pour votre aide!!

 

[porcinet82]

Re : Traitement Tableau!!!

Salut,

Simplement pour te dire qu'il ne sert a rien de multiplier les posts pour la meme demande. A la limite, tu peux faire un petit Up pour faire remonter ton fil en haut de la liste.

Sinon, je pense qu'un fichier joint serai plus parlant et eviterait surtout que l'on ai a retapé les valeurs...

@+

 

[skoobi]

Re : Traitement Tableau!!!

Bonjour porcinet82, blueangel2005,

Ci-joint un exmple reprenant tes données.

porcinet82, je suis d'accord avec toi, mais bon là j'avais un peu de temps devant moi alors....
Faut croire que les gens n'ont pas le temps de faire un fichier mais nous si 😡

 

[blueangel2005]

Re : Traitement Tableau!!!

Merci Skobi pour le coup de main!!🙂
c'est bien ça le fichier Excel que je voulais faire mais le probléme que je veux copier le tableau sur la feuille 2🙁
je suis nouveau en VBA et nouveau sur le forum aussi !!
je m'excuse pour mon mauvais post😀
et j'arrive toujours pas à créer cette macro🙁

 

[skoobi]

Re : Traitement Tableau!!!

Re,

on l'attend toujours ce fichier.

 

[porcinet82]

Re : Traitement Tableau!!!

re,

Bon, d'apres ce que j'ai compris, j'ai legerement modifié la macro de Skoobi pour passer le resultat en Feuil2.

Sub traitement()
Dim taux As Range
With Sheets("Feuil2")
    .Range(.[A2], .[C2].End(xlDown)).ClearContents
    For Each taux In Range([D2], [D2].End(xlDown))
        If taux.Offset(-1, 0).Value <> taux.Value Then  'taux avant différent
            nbmin = taux.Offset(0, -3).Value
            nbmax = taux.Offset(0, -2).Value
        ElseIf taux.Offset(-1, 0).Value = taux.Value Then 'taux avant égal
            If taux.Offset(0, -3).Value < nbmin Then
                nbmin = taux.Offset(0, -3).Value
            End If
            If taux.Offset(0, -2).Value > nbmax Then
                nbmax = taux.Offset(0, -2).Value
            End If
        End If
        If taux.Offset(1, 0).Value <> taux.Value Then 'taux après différent
            If taux.Offset(0, -3).Value < nbmin Then
                nbmin = taux.Offset(0, -3).Value
            End If
            If taux.Offset(0, -2).Value > nbmax Then
                nbmax = taux.Offset(0, -2).Value
            End If
            .Range("A65536").End(xlUp).Offset(1, 0).Value = nbmin
            .Range("B65536").End(xlUp).Offset(1, 0).Value = nbmax
            .Range("C65536").End(xlUp).Offset(1, 0).Value = taux.Value
        End If
    '    Debug.Print "X:" & nbmin, "Y:" & nbmax, "Taux" & taux.Value
    Next
End With
End Sub

@+

 

[blueangel2005]

Re : Traitement Tableau!!!

oui! oui! excusez moi quel gaffe 🙁
Merci infinément pour votre réponse je vous joints le fichier!!

 

[skoobi]

Re : Traitement Tableau!!!

Re,

le code de porcinet82 marche.

 

[porcinet82]

Re : Traitement Tableau!!!

re,

Mon code, mon code, c'est vite dit !!! C'est toi qui a fait tout le travail !!!! 😉
Au plaisir,

@+

 

[skoobi]

Re : Traitement Tableau!!!

Re,

aller, on va dire 80% c'est moi et 20% toi 😛

 

[blueangel2005]

Re : Traitement Tableau!!!

Merci les gars pour ce coup de pouce c'est genial🙂