XL 2019 Formule Décaler sans les doublons

R@chid

XLDnaute Barbatruc

Supporter XLD

• 12 Novembre 2023

• #2

Bonjour,
Je ne sais pas pourquoi DECALER(), mais je pense qu'il suffit d'utiliser cette formule pour éviter le cellules vides de la plage Remises.
En G22 :

VB:

=SIERREUR(--(INDEX(Remises;LIGNES($22:22))&"");"")

@ tirer vers le bas

Cordialement

 

Vote positif 0 Vote négatif

Caninge

XLDnaute Accro

• 12 Novembre 2023

• #3

Bonsoir R@chid,

ben c'est que j'ai trouvé cette formule me plaisait bien mais qui n'était pas approprier.
Trouvé dans mes archives EXCEL.
Apparemment votre formule convient !
Merci

 

Vote positif 0 Vote négatif

R@chid

XLDnaute Barbatruc

Supporter XLD

• 12 Novembre 2023

• #4

Re,
Les autres formules (qui sont à gauche) vont te renvoyer des doublons, et ne vont pas toujours renvoyer le bon résultat.
Pour Actions, en B22 :

VB:

=SI(G22<>"";INDEX(Actions;PETITE.VALEUR(SI(Remises=G22;LIGNE(INDIRECT("1:"&LIGNES(Actions))));NB.SI(G$22:G22;G22)));"")

@ valider par Ctrl+Maj+Entrée
@ tirer vers le bas

Cordialement

 

Vote positif 0 Vote négatif

Caninge

XLDnaute Accro

• 12 Novembre 2023

• #5

Je reviens,
je vais modifier les formules j'ai compris
par contre la formule avec ligne ne convient pas.
Les données sont sur deux pages différentes

 

Vote positif 0 Vote négatif

Caninge

XLDnaute Accro

• 12 Novembre 2023

• #6

J'ai mis une partie du fichier d'origine.
Ca sera peut-être plus facile
Excusez moi

 

Pièces jointes

• Formule Décaler sans les doublons 2.xlsx

  24.8 KB · Affichages: 5

Vote positif 0 Vote négatif

R@chid

XLDnaute Barbatruc

Supporter XLD

• 12 Novembre 2023

• #7

Re,
Je regarderai le fichier sur mon PC une fois que je rentre.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 12 Novembre 2023

• #8

Bonsoir Caninge, R@chid,

Juste en passant, au lieu de =SI(F3="";"";SOMME(G3/F3))

utilisez =SI(F3="";"";G3/F3) puisqu'on récupère une seule valeur.

A+

 

Vote positif 0 Vote négatif

R@chid

XLDnaute Barbatruc

Supporter XLD

• 13 Novembre 2023

• #9

Bonjour @ tous,
en G3 :

VB:

=SIERREUR(--(INDEX(Feuille_AnalytiqueFacilComptaDos_Remises;LIGNES($3:3))&"");"")

@ tirer vers le bas

en B3 :

Code:

=SI(G3="";"";INDEX(Feuille_AnalytiqueFacilComptaDos_Actions;PETITE.VALEUR(SI(Feuille_AnalytiqueFacilComptaDos_Remises=G3;LIGNE(INDIRECT("1:"&LIGNES(Feuille_AnalytiqueFacilComptaDos_Actions))));NB.SI(G$3:G3;G3))))

@ valider par Ctrl+Maj+Entrée
@ tirer vers le bas
@ toi d'adapter la formule pour les autres colonnes.

N'oublie pas de prendre en considération la réponse de l'ami @job75 que je salue au passage.

Les noms de champs dynamiques utilisés sont pas bons, vaut mieux donner des noms trop courts.


Cordialement

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 13 Novembre 2023

• #10

Bonjour Caninge, R@chid, le forum,

Il s'agit d'un simple copier-coller sur les bonnes lignes et sur les bonnes colonnes.

Voici donc une solution VBA avec cette macro dans le code de la 1ère feuille :

VB:

Private Sub Worksheet_Activate()
Dim n&
Application.ScreenUpdating = False
Range("A3:H" & Rows.Count).ClearContents 'RAZ
With Sheets("AnalytiqueFacilComptaDos")
    n = Application.Count(.Range("I7:I" & .Rows.Count))
    If n Then
        Intersect(Union(.Range("B7:F" & .Rows.Count), .Range("H7:I" & .Rows.Count)), _
            .Range("I7:I" & .Rows.Count).SpecialCells(xlCellTypeConstants, 1).EntireRow).Copy 'copier
            [A3].PasteSpecial xlPasteValues  'collage spécial Valeurs
            Application.CutCopyMode = 0
        [H3].Resize(n) = "=IF(F3="""","""",G3/F3)" 'formule sur  n lignes
    End If
End With
[A1].Select
End Sub

Elle se déclenche automatiquement quand on active la feuille.

PS : j'ai testé aussi avec un copier-coller complet et j'ai constaté que les formules en colonne "Charges" ne sont pas copiées. Mais il est préférable de faire quand même un collage spécial Valeurs.

A+

 

Pièces jointes

• Copier-coller Remises(1).xlsm

  29.9 KB · Affichages: 2

Vote positif 0 Vote négatif

R@chid

XLDnaute Barbatruc

Supporter XLD

• 13 Novembre 2023

• #11

Bonjour @job75
J'ai fait la remarque et je me demandais pourquoi il voulait faire cela, pourquoi ne pas masquer les deux colonnes si c'est juste question d'impression et de mise en page.

 

Vote positif 0 Vote négatif

Caninge

XLDnaute Accro

• 13 Novembre 2023

• #12

Bonjour R@chid et Job75,
la solution de Job75 me plait bien. Avec macro c'est bien aussi.
Pour la solution de Rachid je pense avoir mis les bonnes formules.
Par contre si j'utilise le module pour filtrer certaines colonnes dans la page AnalytiqueFacileCompta, les lignes se décalent dans l'autre feuille. A voir.
Je mets le fichier en pièce jointe.
Merci

 

Pièces jointes

• Formule Décaler sans les doublons 2.xlsx

  23.9 KB · Affichages: 1

Vote positif 0 Vote négatif