[vba Excel] mise à jour de tableau

Merci de ton aide !

je vais essayer ta dernière proposition, mais je ne pense pas que cela fonctionnera mieux vu que le problème c'est faire comprendre que la feuille est activée...

si ça ne fonctionne pas, je mettrai un bouton de commande pour la mise à jour.

Encore merci !

Salut !

donc comme suspecté la dernière fois, le code que tu me donnes doit certainement fonctionner, à condition que la feuille soit reconnue active...

J'avais envisagé de créer un bouton de commande, mais je pense que le plus simple serait de double cliquer sur une cellule.

Est-il possible de lancer la procédure sur double clique d'une cellule en particulier, et si oui, comment ?

Tu devrais essayer Application.calculation = xlCalculationAutomatic au lieu de Application.calculate :mouarf: Oui, je ne comprends toujours pas :(
Pour ton dernier pb, tu dois mettre ce code dans la feuille de code de la feuille concernée

Code:

---

1 2 3

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address(False, False) = "A1" Then Application.Run ("Fichier.xls!LaMacro") End Sub

---

A1 : Ta cellule
Fichier.xls : le fichier contenant la macro à exécuter.
Si ta macro est dans le même fichier, tu peux simplement mettre

Code:

---

LaMacro

---

A+

NB - Tu n'as pas d'événement Click pour les cellules, tu n'as que l'événement SelectionChange de la feuille de calculs qui peut (à peu près) être assimilé à un clic... sauf que tu dois identifier l'adresse de la cellule.

j'ai mis le code de calcul du tableau dans une macro (module 1) :

Code:

---

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

Sub maj()   Dim fso As New FileSystemObject Dim fich As file Dim Rep As Folder Dim Wk As Variant Dim TabFich() As String Dim CL1 As Workbook, CL2 As Workbook Dim FL1 As Worksheet, FL2 As Worksheet Dim Premlig As Long, Derlig As Long   Set CL1 = ThisWorkbook Set FL1 = CL1.Worksheets("Sommaire") Set Rep = fso.GetFolder(Application.ThisWorkbook.Path & "\Thèmes")   FL1.Rows("74:65536").Delete   For Each fich In Rep.Files Wk = Rep & "\" & fich.Name If fso.GetExtensionName(Wk) = "xls" Then CL1.Save Premlig = FL1.Range("A65535").End(xlUp).Row + 1 Set CL2 = Workbooks.Open(Wk) Set FL2 = CL2.Worksheets("sommaire") FL2.Range("A15:" & FL2.Range("A1"). _ SpecialCells(xlCellTypeLastCell).Address).Copy _ Destination:=FL1.Range("B" & FL1.Range("B1"). _ SpecialCells(xlCellTypeLastCell).Row + 1) Derlig = FL1.Range("A1").SpecialCells(xlCellTypeLastCell).Row For i = Premlig To Derlig FL1.Cells(i, 1).Value = Left(fich.Name, Len(fich.Name) - 4) Next CL2.Close End If Next With FL1.Range("A74:" & "G" & FL1.Range("A1").SpecialCells(xlCellTypeLastCell).Row) .VerticalAlignment = xlVAlignCenter .HorizontalAlignment = xlHAlignCenter .Borders(xlEdgeLeft).LineStyle = xlContinuous .Borders(xlEdgeTop).LineStyle = xlContinuous .Borders(xlEdgeBottom).LineStyle = xlContinuous .Borders(xlEdgeRight).LineStyle = xlContinuous .Borders(xlInsideVertical).LineStyle = xlContinuous .Borders(xlInsideHorizontal).LineStyle = xlContinuous End With   'FL1.Calculate   Set Rep = Nothing Set FL1 = Nothing Set CL1 = Nothing Set FL2 = Nothing Set CL2 = Nothing   End Sub

---

j'ai ensuite le code suivant sur ma feuille :

Code:

---

1 2 3 4 5 6

Private Sub Worksheet_SelectionChange(ByVal Target As Range)   If Target.Address(False, False) = "A71" Then Application.Run maj End If   End Sub

---

lorsque je clique sur une cellule, j'ai l'erreur suivante :

Citation:

---

Fonction ou variable attendue

---

, et maj est sélectionné.

Le problème est résolu :

Code:

---

1 2 3 4 5 6

Private Sub Worksheet_SelectionChange(ByVal Target As Range)   If Target.Address(False, False) = "A71" Then maj End If   End Sub

---

NB : si la cellule cible est fusionnée avec d'autre, il faut remplacer "A71" par la plage correspondante à la fusion ("A71:B72")

Merci pour ton aide Ouskel'n'or !