Discussion :

[iliesss]

bonjour

j'ai deux plage de 7 colonnes
la première de "A au G" et la colonne G contient des montant trier a l'ordre croissant



la deuxième de "O au U" et la colonne O contient des montant trier a l'ordre croissant


je souhaite rapprocher la colonne O avec la colonne G
et si le montant de la colonne O existe dans la colonne G donc deplace toute la ligne vers le même montant dans la colonne G


merci

[riaolle]

Lorsque tu veux déplacer la ligne, faut-il obligatoirement enlever les cellules de l'emplacement original?

• Si la réponse est non: tu peux utiliser une formule avec =SI(). Dans H3, tu écris =SI($O3=$G3;O3;""), puis tu tires la formule jusqu'à la colonne N et la ligne souhaitée.
• Si la réponse est oui: il faudra sûrement passer par VBA en faisant une boucle sur tes lignes.

[Menhir]

Il n'est pas possible de déplacer des cellules avec des fonctions Excel.
Il est possible d'afficher des données en H:R selon certains critères mais pas de les faire disparaitre en O:U.
Pour ça, il faudrait passer par du VBA.

[iliesss]

bonjour

merci mon ami
j'ai compris votre réponse donc je souhaite passer par VBA

[Menhir]

Il faut faire une boucle For To sur le nombre de lignes du second tableau.
Pour chaque ligne, tu lances un Find sur les montants du second tableau.
Si le Find ne renvoie pas Nothing, faire un Cut/Paste de la ligne scrutée vers la ligne repérées par le Find.

[jerome.vaussenat]

Salut,

La procédure décrite par Ménhir donne le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub compare()
    'première ligne du 2ème tableau
    ligne = 3
    'boucle pour parcourir le 2ème tableau jusqu'à la fin
    Do Until Cells(ligne, 15).Value = ""
        'instruction qui cherche dans la colonne G le contenu du crédit de la ligne en cours de traitement
        Set trouve = Range("g:g").Find(what:=Cells(ligne, 15).Value, LookIn:=xlValues, LookAt:=xlWhole)
        'on test si la recherche à trouvé ou pas
        If trouve Is Nothing Then
            'si rien n'est trouvé, alors on ne fait rien
        Else
            'si la valeur est trouvée on fair le déplacement vers la bonne ligne
            Range("O" & ligne & ":U" & ligne).Cut Range("H" & trouve.Row)
        End If
        'on passe à la ligne suivante
        ligne = ligne + 1
    Loop
End Sub

C'est une proposition de code. On doit pouvoir faire mieux, mais c'est plus cher ...

PS : Attention, si la même valeur apparaît plusieurs fois dans la colonne G, la recherche s'arrête sur la première occurrence. C'est mieux de la savoir.

[iliesss]

bonjour

mon ami je ne suis pas fort en vba svp aidez moi

merci

[Menhir]

mon ami je ne suis pas fort en vba svp aidez moi

Ca n'a rien d'incurable :
http://bidou.developpez.com/article/VBA/

Perso, je n'apprécie pas trop ce genre de formule qui, en fait, signifie : "je n'ai pas envie de perdre du temps à essayer de comprendre, il est bien plus simple de vous laisser faire mon boulot à ma place."

[jerome.vaussenat]

Salut,

J'ai déjà fait 9/10 du boulot.

Il te reste :
A créer un module dans VBE
1: accéder à VBE
http://silkyroad.developpez.com/VBA/...rMacros/#LII-A
2 : insérer le module
http://silkyroad.developpez.com/VBA/...acros/#LII-B-5

Et dans ce module, coller le code demon précédent post.

Ensuite pour faire les choses bien, insérer un bouton dans la feuille pour lancer la macro :
http://www.astuceshebdo.com/2013/02/...ton-macro.html

Là, je ne vois pas comment faire plus ...

[iliesss]

Merci les amis demain je vais essayé vos réponses
Bonne nuit

[iliesss]

bonjour

j'ai essayé le code mais ça changé rien ou bien j'ai mal utilisé

voici mon fichier de test

merci

[Menhir]

Surtout ne prend pas la peine de perdre du temps à décrire ce que tu as fais, les problèmes rencontrés et ce qui ne convient pas dans le résultat obtenu, ça pourrait te fatiguer.