intervalles et tcd

[mercibien]

Bonjour tout le monde;
ravi d'être parmi vous.
je vous remercie d'avance de votre aide et je vous serai très reconnaissant pour votre temps et votre savoir partagés généreusement .
j'ai un petit exercice que je suis en train de traiter .
plus d'infos dans le fichier joint de deux feuilles.
mes respects

 

[Odesta]

Re : intervalles et tcd

Bonjour

Une méthode pour contourner le première problème. cette technique, si l'on choisi bien les critères, est super puissante

Olivier

 

[Dugenou]

Re : intervalles et tcd

Bonjour mercibien, Odesta

Pour le premier point tu peux aussi utiliser une liste personnelle : ceci te permet de travailler direct dans le tableau

Pour le second : peux tu indiquer le calcul exact que tu veux ? car je ne comprends pas "rapport de chaque effectif à la moyenne"

Pour le point3 : tu veux classer les établissement en fonction de l'effectif ?.

 

[Odesta]

Re : intervalles et tcd

Re.
Bonjour Dugenou

J'avais réalisé il y a quelques temps une fonction permettant de récupérer le titre de chaque ligne, après un trie. C'est équivalent à la fonction GRANDE.VALEUR (matrice, k-ième), mais qui renvoie le titre :

Il est évidement en accès libre pour ceux qui en ont besoin !

Function Recup_Titre(matrice As Range, num_colonne_nom As Integer, num_colonne_valeur As Integer, rang As Double)
Dim tableau_nom() As Variant
Dim tableau_valeur() As Variant

valeur_trouve = 0

ReDim tableau_nom(matrice.Rows.Count + 1)
ReDim tableau_valeur(matrice.Rows.Count + 1)

'mettre les valeurs dans un tableau
ligne = 0
For Each ID_ligne In matrice.Rows
    ligne = ligne + 1
    tableau_valeur(ligne) = matrice(ligne, num_colonne_valeur)
    tableau_nom(ligne) = matrice(ligne, num_colonne_nom)

Next

'trier les tableaux de 1 à ligne
i = 1
While i <= ligne
    If tableau_valeur(i) < tableau_valeur(i + 1) Then
        'inverser
        valeur_temp = tableau_valeur(i)
        tableau_valeur(i) = tableau_valeur(i + 1)
        tableau_valeur(i + 1) = valeur_temp
        valeur_temp = tableau_nom(i)
        tableau_nom(i) = tableau_nom(i + 1)
        tableau_nom(i + 1) = valeur_temp
        i = 1
    Else
    i = i + 1
    End If
Wend


Recup_Titre = tableau_nom(rang)


End Function

Cordialement
Olivier

 

[mercibien]

Re : intervalles et tcd

Bonjour mercibien, Odesta

Pour le premier point tu peux aussi utiliser une liste personnelle : ceci te permet de travailler direct dans le tableau
.

Bonjour Dugenou ; bonjour Odesta; bonjour le forum
Merci pour votre contribution.
juste une question si c'est possible pour Dugenou; vous avez suggérez d'utiliser une liste personnelle.
oui je veux bien et je serai très reconnaissant si on m'explique comment faire?
merci d'avance .
et longue vie à Excel downloads
mes respects

 

[bcharef]

Re : intervalles et tcd

Bonjour mercibien, Odesta & Dugenou,
Bonjour à toutes et à tous.

Un essai relatif au classement des intervalles.

A vous lire et bon courage.

Cordialement.

BCharef