Microsoft 365 pour inverser une colonne, ou tableau haut et bas sans trier

[miroma]

bonjour,
c'est une demande un peut spéciale ci joint un classeur avec des explications
merci de votre réponse,
mais ça va etre compliqué !!! pour moi ! de me faire comprendre !

 

[sylvanu]

Bonsoir Miroma,
Pas sur d'avoir tout compris.
Alors juste un essai en PJ, je n'inverse que la partie "utile" du tableau. Pour cela je recherche où se trouve la limite non vide de ce tableau. Avec

Sub Inverser2()
    tablo = Range("B6").CurrentRegion
    ReDim tabloR(1 To UBound(tablo, 1), 1 To UBound(tablo, 2))
    For imax = UBound(tablo, 1) To 1 Step -1
        If tablo(imax, 1) <> 0 And tablo(imax, 2) <> 0 Then Exit For
    Next imax   ' Quand on sort imax donne le dernier indice de tablo non vide.
    For i = 1 To imax
        For j = 1 To 2
            tabloR(imax + 1 - i, j) = tablo(i, j)
        Next j
    Next i
    Range("e1").CurrentRegion.ClearContents
    Range("e2").Resize(UBound(tablo, 1), UBound(tablo, 2)) = tabloR
End Sub

 

[miroma]

Bonsoir Miroma,
Pas sur d'avoir tout compris.
Alors juste un essai en PJ, je n'inverse que la partie "utile" du tableau. Pour cela je recherche où se trouve la limite non vide de ce tableau. Avec

Sub Inverser2()
    tablo = Range("B6").CurrentRegion
    ReDim tabloR(1 To UBound(tablo, 1), 1 To UBound(tablo, 2))
    For imax = UBound(tablo, 1) To 1 Step -1
        If tablo(imax, 1) <> 0 And tablo(imax, 2) <> 0 Then Exit For
    Next imax   ' Quand on sort imax donne le dernier indice de tablo non vide.
    For i = 1 To imax
        For j = 1 To 2
            tabloR(imax + 1 - i, j) = tablo(i, j)
        Next j
    Next i
    Range("e1").CurrentRegion.ClearContents
    Range("e2").Resize(UBound(tablo, 1), UBound(tablo, 2)) = tabloR
End Sub

 

[miroma]

merci de la réponse !
ça me parait pas mal je reposte car mon fichier à 4 colonnes
pour le nombre nombre de ligne ça reste pareil ?
le fichier d'origne est ce qui est télécharger de ma banque c'est pour ça les zéros

 

[sylvanu]

En fait, il y a plus simple, c'est de chercher où se trouve le premier zéro et d'effacer le reste, puis de lancer votre macro.

 

[sylvanu]

En PJ votre fichier 4 colonnes.
Avec ma macro de nettoyage, suivi de votre macro.

 

[miroma]

bon je vais reposter les vrais colonnes pour les lettres colonne bj3 et bc3
je prépare !

 

[sylvanu]

Il vous suffit de modifier la macro, la modif est simple, un changement de colonnes.

 

[miroma]

je vois ça demain
bonne nuit.

 

[miroma]

Bonjour,
j'ai du faire un truc qui faut pas !!!!!

 

[sylvanu]

Bonjour,

j'ai du faire un truc qui faut pas !!!!!

😂😂😂
Ya surtout plein de trucs que vous auriez du faire !

A commencer par expliquer ce que vous vouliez faire, votre code à plein de nom de colonnes et tout se mélange. J'ai donc supposée que la matrice "témoin" est en BJ, et la matrice triée en BM.
En PJ :
Matrice copiée BJ:BM
Matrice triée en BC:BF

A noter que la matrice "témoin" est là juste pour l'exemple, dans le vrai fichier cette partie de code n'a plus raison d'être.

 

[Hasco]

Bonjour,

A partir du fichier de votre post 1 voici deux possibilités, par requête power query (1er tableau) et une par formule :

=SIERREUR(INDEX(B2:C36;AGREGAT(15;6;LIGNE($1:35)/(B2:B36>0);LIGNE($1:35));COLONNE($A:$B));0)

Si l'une ou l'autre des méthodes vous intéresse, elles sont adaptables.

Cordialement

 

[sylvanu]

Re, bonjour Hasco,
Une nouvelle PJ nettoyée pour éviter de vous emmêler les pinceaux.
En Feuil1 ne figure que les données que vous devez avoir dans votre vrai fichier.
( un autre bouton permet de copier les données pour le test )

 

[sylvanu]

Pourquoi ne pas avoir réutiliser ma dernière PJ ?

Votre code est faux car vous commencez par :

[BC3:BF100] = [bj3:bm100].Value

Or votre première données est en BJ2
et vous rangez à la fin avec :

Range("BC3").Resize(UBound(tablo, 1), UBound(tablo, 2)) = tabloR

BC3 au lieu de BC2.
Tout dépends où commencent vos données importées, BJ2 ou BJ3 ?

 

[miroma]

Re, bonjour Hasco,
Une nouvelle PJ nettoyée pour éviter de vous emmêler les pinceaux.
En Feuil1 ne figure que les données que vous devez avoir dans votre vrai fichier.
( un autre bouton permet de copier les données pour le test )

voila ce que je télécharge de ma banque (j'ai modifié l'intérieure des cellules )
et c'est en bc1 que ça cloche la ligne 2