Actualisation des données : Equivalent F9

[yassinefeki]

Bonjour les amis,

j'ai confronté un petit problème e ce que l'on pourrait appeler "actualisation d'une feuille". En fait, j'ai créer cette macro qui permet de trier une colonne :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub trie_arrivee()
Dim tab1(1 To 250) As Single
For i = 1 To 250
tab1(i) = Sheets("feuil5").Cells(i + 6, 5)
Next
 
For i = 1 To 249
   For j = i To 250
 If tab1(i) > tab1(j) Then
    c = tab1(i)
    tab1(i) = tab1(j)
    tab1(j) = c
End If
Next
Next
For i = 1 To 250
Sheets("feuil5").Cells(i + 6, 6) = tab1(i)
Next
 
 End Sub

Je veux faire lancer cette macro si je clique sur F9. Est ce que c'est faisable ou non ? Mais, il faut noter que les données des cellules E sont aléatoires et sont importées à partir d'une autre feuille, j'ai essayé avec un trie simple "sans macro" mais je n'arrive pas à le faire car le trie de la colonne E provoque le changement de la formule dans la cellules...

[mercatog]

Bonjour
Alors la, il faut plus de précision sur la disposition de ta feuille.
Tes formules sont où?

[yassinefeki]

bonjour,

La formule est dans la cellule à laquelle je vais faire le tri..La formule est la suivante :

Code :

SI(D7='4-a'!C10;SI('4-a'!K10<>0;'4-a'!M10;'4-a'!Q11);SI(Feuil5!D7='suite 4-a'!C10;SI('suite 4-a'!K10<>0;'suite 4-a'!M10;'suite 4-a'!Q11)))

Si tu remarque dans la formule, je vais importer les données à partir des deux feuille ( '4-a' et 'suite 4-a' ). Lorsque j'ai fais un tri simple par excel, il s'affiche dans les cellules triées "Faux" alors j'étais obligé de le faire par une macro sauf que j'ai confronté au problème d'actualisation des données de la cellule que je dois la triée...

[mercatog]

Tu veux garder les formules dans E1:E250 après le tri?

[yassinefeki]

Oui si c'est possible sans le recours à la macro....Par ce que comme je t'ai dit, la colonne est dynamique (aléatoire).

[mercatog]

Alors il te faut expliquer davantage.

[Pierre Fauconnier]

Salut.

Pourquoi ne tries-tu pas avec les outils Excel, sur l'ensemble de ta plage?

[yassinefeki]

Salut,

Je vais expliquer plus. j'ai une chaîne de production et je vais simuler le temps de traitement de 250 pièces en tenant compte des temps d'attente ( file d'attente). Au début les temps d'inter-arrivée sont exponentielles, et donc j'ai utilisé cette formule :

Code :

=ARRONDI(-(1/$C$3)*LN(ALEA());0)

. Avec aléa les cellules deviennent aléatoires c'est à dire si je fais un clic sur F9 tous les données vont changer. Après un certain calculs, j'arrive à la dernière machine de la chaîne de production. Donc, il s'agit des arrivées des pièces sachant que j'utilise la règle FIFO ( First In, First Out ). Donc j'ai besoin de mettre les temps d'arrivée des pièces en ordre croissant. Pour cela, j'ai importée ces temps là à partir de deux autres feuilles qui sont 4-a et 4-a suite dans la colonne E de la feuille "Feuil5" (de E8--> E257). Puis, si j'utilise le trie d'excel dans la cellule, les formule vont changer,

Par exemple, soit la valeur de la cellule E126 dont la formule (f1) est la suivante :

Code :

SI(D132='4-a'!C135;SI('4-a'!K135<>0;'4-a'!M135;'4-a'!Q136);SI(Feuil5!D132='suite 4-a'!C135;SI('suite 4-a'!K135<>0;'suite 4-a'!M135;'suite 4-a'!Q136)))

, Selon cette formule, excel a importé la valeur de la cellule Q135 de la feuille suite 4-a dans la cellule E126. Supposons que cette valeur est la plus petite dans la colonne E de la "Feuil5", alors lorsque j'ai fait un trie avec excel, cette valeur va changer de place et devient dans la cellule E8, ceci affecte le changement de la formule f1 et elle devient :

Code :

SI(D8='4-a'!C10;SI('4-a'!K10<>0;'4-a'!M10;'4-a'!Q11);SI(Feuil5!D8='suite 4-a'!C10;SI('suite 4-a'!K10<>0;'suite 4-a'!M10;'suite 4-a'!Q11)))

et par conséquent, il s'affiche dans cette cellule E8 la valeur "Faux", en fait si tu remarques il devra D8 au lieu D132, de même pour K, M, Q..Pour cela j'ai développé une macro de trie mais il me manque seulement l'actualisation de trie à chaque fois les valeurs de la colonne E varient, c'est à dire la macro devra fonctionner automatiquement lorsque je clique sur F9 et par la suite le trie devient dynamique suivant le changement des valeurs de la colonne E... Je pense que c'est un peu long mais je te remercie beaucoup beaucoup pour ton temps et ton suivi de mon problème...
======================
Cordialement,

[Pierre Fauconnier]

Oui, tu as l'événement

Code :

Private Sub Worksheet_Calculate()

qui te permet de déclencher une macro après calcul de la feuille.

Tu as intérêt à bien gérer application.enableevents sinon, tu vas boucler entre ta macro de tri et Calculate