XL 2013 Attribuer un rang

Hasco

XLDnaute Barbatruc

Repose en paix

• 28 Février 2021

• #16

Re,

Oui, oui c'est plus clair comme ça.
Merci

 

Vote positif 0 Vote négatif

R@chid

XLDnaute Barbatruc

Supporter XLD

• 28 Février 2021

• #17

Re,
Bonjour Luna44,
Via Power Query c'est facule, une fois que c'est fait la première fois, tu n'auras qu'à actualiser le tableau vert en cas d'ajout de données dans le tableau Bleu.
Même tes collègues n'auront pas besoin de faire autre chose quand tu leur transfères le fichier.

 

Pièces jointes

• Luna_Rang_PowerQuery_V2.xlsx

  18.3 KB · Affichages: 11

Vote positif 0 Vote négatif

R@chid

XLDnaute Barbatruc

Supporter XLD

• 28 Février 2021

• #18

Re,
une variante par formules et colonnes intermédiaires.
Voir PJ


Cordialement

 

Pièces jointes

• Luna_Rang_Formules_V1.xlsx

  18.2 KB · Affichages: 5

Vote positif 0 Vote négatif

L

Luna44

XLDnaute Nouveau

• 28 Février 2021

• #19

@R@chid pouvez-vous m'expliquer la démarche à suivre avec PQ pour que j'essaie ?

 

Vote positif 0 Vote négatif

R@chid

XLDnaute Barbatruc

Supporter XLD

• 28 Février 2021

• #20

Re,
je viens d'éteindre mon PC et j'vais sortir, ce soir je te ferai des captures d'écran pour te guider pas à pas.

 

Vote positif 0 Vote négatif

L

Luna44

XLDnaute Nouveau

• 28 Février 2021

• #21

Super merci beaucoup !

 

Vote positif 0 Vote négatif

mdo100

XLDnaute Occasionnel

• 28 Février 2021

• #22

Re @Luna44,

Une autre proposition:
Faire un appui sur le bouton "Go" situé en "F1"

Bonne soirée.

 

Pièces jointes

• Rang Luna44 V3.xlsm

  16.4 KB · Affichages: 4

Vote positif 0 Vote négatif

L

Luna44

XLDnaute Nouveau

• 28 Février 2021

• #23

@mdo100 Si j'ai bien compris, vous avez utilisé la formule que vous m'avez transmis précédemment dans une macro ?

 

Vote positif 0 Vote négatif

mdo100

XLDnaute Occasionnel

• 28 Février 2021

• #24

Oui, c'est exactement ça.
Cela est plus rapide que tirer une formule manuellement jusqu'à la dernière ligne occupée sans risque d'effacer la formule.
Ça sera aussi moins lourd pour le fichier.

Cdlt.

 

Vote positif 0 Vote négatif

L

Luna44

XLDnaute Nouveau

• 28 Février 2021

• #25

C'est vrai que ce serait beaucoup plus simple.
Par contre, je ne vois pas comment retranscrire votre macro sur mon tableau de 120 000 lignes... sachant que je ne suis pas du tout formée à la macro, j'y travaille mais ça prend du temps
Et je n'arrive pas à vous joindre le véritable fichier car trop volumineux....

 

Vote positif 0 Vote négatif

mdo100

XLDnaute Occasionnel

• 28 Février 2021

• #26

1) Cliquer sur l'onglet "Développeur"
2) Cliquer sur "Visual Basic" Une fenêtre va s'ouvrir
3) Dans cette fenêtre cliquer sur "Insertion" ► dans le menu déroulant cliquer sur "Module"
4) Copier le code

VB:

Sub Rang()

  With Range("F3:F" & Range("A" & Rows.Count).End(xlUp).Row)
    .FormulaR1C1 = _
    "=SUMPRODUCT((R3C[-5]:R650000C[-5]=RC[-5])*(R3C[-4]:R650000C[-4]=RC[-4])*(R3C[-2]:R650000C[-2]=RC[-2])*(RC[-1]>R3C[-1]:R650000C[-1]))+SUMPRODUCT((R3C[-4]:RC[-4]=RC[-4])*(R3C[-2]:RC[-2]=RC[-2])*(R3C[-1]:RC[-1]=RC[-1]))"
    .Value = .Value
  End With

End Sub

5) Fermer la fenêtre.
6) Copier par exemple "le bouton Go" que j'ai mis dans le fichier précèdent ou en insérer un autre selon son choix.
7) Quand le bouton est copier ► faire un clic droit ► puis dans le menu déroulant choisir "Affecter une macro"
8) une petite fenêtre s'ouvre ► choisir le nom de la macro (ici "Rang").
9) Cliquer sur "OK"

Voilà c'est fini

PS: J'ai modifier la formule pour 650.000 lignes

 

Dernière édition: 28 Février 2021

Vote positif 0 Vote négatif

L

Luna44

XLDnaute Nouveau

• 28 Février 2021

• #27

J'ai tenté en modifiant les sources de données car mon tableau n'est pas identique à celui que je vous ai transmis. Mais un message s'affiche :
C'est le problème avec les macros lorsqu'il y a beaucoup de données...

 

Vote positif 0 Vote négatif

mdo100

XLDnaute Occasionnel

• 28 Février 2021

• #28

Pouvez-vous joindre une partie de votre fichier, je veux dire une cinquantaine de ligne seulement.

 

Vote positif 0 Vote négatif

L

Luna44

XLDnaute Nouveau

• 28 Février 2021

• #29

Voici

 

Pièces jointes

• Rang.xlsx

  15.6 KB · Affichages: 3

Vote positif 0 Vote négatif

mdo100

XLDnaute Occasionnel

• 28 Février 2021

• #30

En effet, pas du tout les mêmes colonnes concernées.
C'est pour ça quand on fait une demande, qu'il faut joindre un fichier représentatif fidèle au fichier joint sur le forum.
Ça permet de ne pas s'égarer dans de mauvaise réponse.

A tester dans le fichier joint, j'ai mis le bouton "Go" en "AG1" plus qu'à cliquer et remettre les données substituées au fichier original.

Cdlt

 

Pièces jointes

• Rang.xlsm

  23.1 KB · Affichages: 2

Vote positif 0 Vote négatif