XL 2021 Trier tableau

julienha · 11 Juillet 2023

Bonjour,

Dans le fichier joint, j'aimerais trier le tableau A1:L19 (avec la fonction trier par éventuellement) avec les critères ci-dessous:
- la colonne L en ordre décroissant si toutes les valeurs de la colonne K sont égales à "Put"
- la colonne L en ordre croissant si toutes les valeurs de la colonne K sont égales à "Call"
- sinon trier la colonne J en ordre décroissant

Merci par avance

job75 · 24 Juillet 2023

julienha à dit:
Quand j'efface les données de A2:AG19, j'ai le message d'erreur ci-joint:
Erreur d'execution '13'
Icompatibilité de type

C'est tout à fait normal puisqu'il faut des valeurs numériques en colonne A.

Pour éviter le bug placez On Error Resume Next après la ligne Application.EnableEvents = False

julienha · 25 Juillet 2023

job75 à dit:
C'est tout à fait normal puisqu'il faut des valeurs numériques en colonne A.

Pour éviter le bug placez On Error Resume Next après la ligne Application.EnableEvents = False

Merci bcp. Je dois cliquer ds une cellule pour que la macro s'active, est-ce normal?
Est-ce possible de l'activer dès que je colle les nouvelles données?

job75 · 25 Juillet 2023

julienha à dit:
Est-ce possible de l'activer dès que je colle les nouvelles données?

Coller les données déclenche la macro.

julienha · 25 Juillet 2023

job75 à dit:
Coller les données déclenche la macro.

Etant donné que parfois je n'ai pas de valeurs en colonne A:
- j'ai rajouté la formule =SIERREUR(--SI(ESTVIDE(D2);"";"1");"") en colonne A (si vs avez une autre solution avec Macro je suis preneur)
- et je colle mes données à partir de la colonne B

Ci-joint le fichier "final" avec toutes les formules BDP.
Par contre, j'ai réessayé plusieurs fois, la macro ne s'active que lorsque je rentre dans une cellule.

Merci

job75 · 25 Juillet 2023

julienha à dit:
Etant donné que parfois je n'ai pas de valeurs en colonne A:

Alors laissez-la vide et déterminez la ligne de la dernière valeur numérique en colonne C :

VB:

With Range("A1:AG" & Application.Match([9^9], [C:C]))

julienha à dit:
Par contre, j'ai réessayé plusieurs fois, la macro ne s'active que lorsque je rentre dans une cellule.

Ben oui puisque c'est une Worksheet_Change, elle se recalcule quand on colle de nouvelles données.

julienha · 26 Juillet 2023

job75 à dit:
Alors laissez-la vide et déterminez la ligne de la dernière valeur numérique en colonne C :

VB:

With Range("A1:AG" & Application.Match([9^9], [C:C]))

Ben oui puisque c'est une Worksheet_Change, elle se recalcule quand on colle de nouvelles données.

En fait, elle ne se recalcule pas dès que je colle, mais uniquement après avoir double cliqué ds une cellule de la zone A2:AG19.
L'idéal est d'avoir le recalcule dès que les données sont collées sans avoir à double cliquer ds une cellule.
Merci encore

job75 · 26 Juillet 2023

Bonjour julienha,

julienha à dit:
En fait, elle ne se recalcule pas dès que je colle, mais uniquement après avoir double cliqué ds une cellule de la zone A2:AG19.

Comment collez-vous les données, par macro ?

Dans cette macro il y a peut-être Application.EnableEvents = False qui neutralise la macro Worksheet_Change.

Sinon je le répète le collage de données dans la feuille provoque forcément son exécution.

A+

julienha · 26 Juillet 2023

job75 à dit:
Bonjour julienha,

Comment collez-vous les données, par macro ?

Dans cette macro il y a peut-être Application.EnableEvents = False qui neutralise la macro Worksheet_Change.

Sinon je le répète le collage de données dans la feuille provoque forcément son exécution.

A+

Bonjour, je colle les données vace la macro ci-dessous:

Sub Pricing()
'
' Pricing Macro
'

'
Sheets("Feuil2").Select
Range("A2:Y19").Select
Selection.ClearContents
Range("A2").Select
ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
False, NoHTMLFormatting:=True
Range("B1").Select
ActiveCell.FormulaR1C1 = "N°"
Range("B2").Select
Sheets("Feuil1").Select
End Sub

Je vous envoie en PJ des exemples concrets de tri si jamais ca peut aider à clarifier et éventuellement corriger.
Merci

job75 · 26 Juillet 2023

Votre macro est une plaisanterie.

Après l'effacement rien n'est copié donc rien ne peut être collé.

En supposant que les données à copier sont en Feuil1 utilisez :

VB:

Sub Pricing()
With Sheets("Feuil2")
    .Range("A2:Y19").ClearContents
    .Range("A2:Y19") = Sheets("Feuil1").Range("A2:Y19").Value 'copie les valeurs
    .Range("B1") = "N°"
End With
End Sub

La macro Worksheet_Change s'exécute bien.

job75 · 26 Juillet 2023

En fait puisqu'on copie une plage sur une autre de même dimension inutile d'effacer :

VB:

Sub Pricing()
With Sheets("Feuil2")
    .Range("A2:Y19") = Sheets("Feuil1").Range("A2:Y19").Value 'copie les valeurs
    .Range("B1") = "N°"
End With
End Sub

oguruma · 26 Juillet 2023

julienha à dit:
Bonjour,

Dans le fichier joint, j'aimerais trier le tableau A1:L19 (avec la fonction trier par éventuellement) avec les critères ci-dessous:
- la colonne L en ordre décroissant si toutes les valeurs de la colonne K sont égales à "Put"
- la colonne L en ordre croissant si toutes les valeurs de la colonne K sont égales à "Call"
- sinon trier la colonne J en ordre décroissant

Merci par avance

PowerQuery ton sauveur. Il ne faut plus hésiter l'utiliser. Par 5 ou 6 étapes en PWQ on peut s'économiser des lignes de code et de la galère en maintenance.....
Le VBA est en revanche à mettre en oeuvre si tu veux automatiser les appels PWQ ou faire du PWQ dynamique. Mais là c'est du niveau 3

oguruma · 26 Juillet 2023

job75 à dit:
Votre macro est une plaisanterie.

Après l'effacement rien n'est copié donc rien ne peut être collé.

En supposant que les données à copier sont en Feuil1 utilisez :

VB:

Sub Pricing() With Sheets("Feuil2") .Range("A2:Y19").ClearContents .Range("A2:Y19") = Sheets("Feuil1").Range("A2:Y19").Value 'copie les valeurs .Range("B1") = "N°" End With End Sub

La macro Worksheet_Change s'exécute bien.

"A2:Y19" éviter de coder en "dur" des adresses de plages de cellules. C'est galère pour la maintenance.
Utiliser les champs nommés static ou dans des cas plus complexes des champs nommé dynamic (DECALER te permet de faire cela avec NBVAL)

Idem "Feuil2" à éviter. Nommer la feuille explicitement et utiliser les noms d'onglets par des paramètres.
On nom d'onglet en paramètres dans une feuille de calcul : le nom de l'onglet change, on change sa valeur de paramètre et ainsi on ne touche pas au code....

julienha · 31 Juillet 2023

job75 à dit:
Votre macro est une plaisanterie.

Après l'effacement rien n'est copié donc rien ne peut être collé.

En supposant que les données à copier sont en Feuil1 utilisez :

VB:

Sub Pricing() With Sheets("Feuil2") .Range("A2:Y19").ClearContents .Range("A2:Y19") = Sheets("Feuil1").Range("A2:Y19").Value 'copie les valeurs .Range("B1") = "N°" End With End Sub

La macro Worksheet_Change s'exécute bien.

Les données que je copie proviennent d'un logiciel externe.
Les données sont dans le presse-papier lorsque j'exécute la macro et ensuite collées sous format HTML.

julienha · 1 Août 2023

oguruma à dit:
"A2:Y19" éviter de coder en "dur" des adresses de plages de cellules. C'est galère pour la maintenance.
Utiliser les champs nommés static ou dans des cas plus complexes des champs nommé dynamic (DECALER te permet de faire cela avec NBVAL)

Idem "Feuil2" à éviter. Nommer la feuille explicitement et utiliser les noms d'onglets par des paramètres.
On nom d'onglet en paramètres dans une feuille de calcul : le nom de l'onglet change, on change sa valeur de paramètre et ainsi on ne touche pas au code....

Merci pour votre suggestion. Je ne suis pas familié avec PowerQuery.
Concrétement, comment trier automatiquement la colonne L avec mes conditions sous PWQ?
Par exemple, dans le fichier ci-joint.
Merci

oguruma · 1 Août 2023

julienha à dit:
Merci pour votre suggestion. Je ne suis pas familié avec PowerQuery.
Concrétement, comment trier automatiquement la colonne L avec mes conditions sous PWQ?
Par exemple, dans le fichier ci-joint.
Merci

On va à en arriver à de la prestation de services type ESN, je suis facturé bonbon tu sais

je vois ce que je peux faire.... je ne m'engage pas sur des délais en revanche

XL 2021 Trier tableau

julienha

XLDnaute Occasionnel

Pièces jointes

job75

XLDnaute Barbatruc

julienha

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

julienha

XLDnaute Occasionnel

Pièces jointes

job75

XLDnaute Barbatruc

julienha

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

julienha

XLDnaute Occasionnel

Pièces jointes

job75

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

oguruma

XLDnaute Occasionnel

oguruma

XLDnaute Occasionnel

julienha

XLDnaute Occasionnel

julienha

XLDnaute Occasionnel

Pièces jointes

oguruma

XLDnaute Occasionnel

Discussions similaires