Discussion :

[Dgerard83]

Bonjour,

J'ai un problème a résoudre un peu pointu, je ne sait pas si Excel peut faire cela (merci par avance de m'aiguiller, mes compétences en VBA d'excel sont limité).

Voila: J'ai 2 tableaux sur deux worksheets différentes avec des donnés différents (que des chiffres) et non lié (pas de Sum ou autre les donné de chiffres sont indépendantes et proviennes de sources différentes).
Cependant j'aimerais pouvoir ranger "sort" les colonnes de la worksheet1 et que ce rangement se répercute aussi dans la worksheet2.

C'est à dire : que si les donné de A5 dans la worsheet1 passent en A45 quant ils ont été rangé ("sort") ceux de la woorksheet2 fassent pareil au même emplacement: A5 --> A45 (dans la worksheet2) ; et ce sans modifier la valeur des cellules ni dans worksheet1 ni dans worsheet2 (qui peuvent être 456 et 3 par exemple).

worsheet1                       worsheet2
A5 (456)                             A5 (3)

"sort"

A5-->A45 (456)                   A5-->A45 (3)

Voila j'espère que c'est claire et que c'est faisable sur Excel.

Merci pour vos réponses!

[Theze]

Bonjour,

Une piste :

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
 
Sub Test()
 
    Dim PlageFe1 As Range
    Dim PlageFe2 As Range
    Dim Tbl()
    Dim I As Long
 
    'plage en colonne A de la Feuille "Feuil1"
    With Worksheets("Feuil1")
 
        Set PlageFe1 = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp))
 
    End With
 
    'plage en colonne A de la Feuille "Feuil2"
    With Worksheets("Feuil2")
 
        Set PlageFe2 = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp))
 
    End With
 
    'dimensionne le tableau par rapport à une des deux plages (ici la 1)
    ReDim Tbl(1 To 2, 1 To PlageFe1.Count)
 
    'fusionne les deux plages dans le tableau
    For I = 1 To UBound(Tbl, 2)
 
        Tbl(1, I) = PlageFe1(I)
        Tbl(2, I) = PlageFe2(I)
 
    Next I
 
    'effectue le tri (adapter le signe < ou > dans la porc "Tri")
    Tri Tbl()
 
    'puis réaffecte les valeurs
    For I = 1 To UBound(Tbl, 2)
 
        PlageFe1(I) = Tbl(1, I)
        PlageFe2(I) = Tbl(2, I)
 
    Next I
 
End Sub
 
Sub Tri(Tbl())
 
    Dim Tempo1, Tempo2
 
    Dim I As Long, J As Long
            'éffectue un tri décroissant "<"
            'pour un tri croissant ">"
    For I = 1 To UBound(Tbl, 2) - 1
 
        For J = I + 1 To UBound(Tbl, 2)
 
            'tri sur l'index 1
            If Tbl(1, I) > Tbl(1, J) Then
 
                Tempo1 = Tbl(1, J)
                Tempo2 = Tbl(2, J)
                Tbl(1, J) = Tbl(1, I)
                Tbl(2, J) = Tbl(2, I)
                Tbl(1, I) = Tempo1
                Tbl(2, I) = Tempo2
 
            End If
 
    Next J, I
 
End Sub

[Dgerard83]

Bonjour,

Merci beaucoup pour votre réponse malheureusement après de multiple tentative il persiste à m'afficher un message d'erreur avec "invalid outside procedure".

(et ce malgré la recontextualisation avec mes feuilles de calcule).

que faire...?

Sinon j'ai tenté par des fonction "indirect", sa marche mais c'est très lourd et sa fait souvent tout planter...

[Theze]

Bonjour,

N'ayant pas de Mac, pour moi, impossible de tester !
Ce code fonctionne très bien ici sur Excel 2003

[Dgerard83]

Merci pour votre aide!

Malheureusement je suis contrains de travailler sous Mac au travail donc pas le choix.

[AlainTech]

Bonjour,

Donne-nous le code que tu as écrit et la ligne qui provoque le message d'erreur.

Ce message d'erreur est clair: tu as écrit une (ou plusieurs) instruction(s) en dehors d'une procédure.