Remonté dans une macro la valeur d'une cellule comme variable.

vgendron à dit:

Salut,

à la place de toutes tes macros Sub tableau_compte_12 3 4 5 ..
tu n'en gardes qu'une avec un paramètre en appel

Code:

Sub TABLEAU_COMPTE_X(NumClient As String)
    Sheets("trie").Select
    ActiveSheet.Range("$A$1:$D$30000").AutoFilter Field:=1, Criteria1:= _
    NumClient
End Sub

et tu l'appelles avec la proc modifiée comme suit

Code:

'Callback for Combo1 onChange
Sub Changeval(control As IRibbonControl, text As String)

Feuil2.Cells(1, 1) = text
TABLEAU_COMPTE_X (Sheets("Détail").Cells(1, 1))
End Sub

Edit: comme je ne sais pas ou trouver l'info du client saisie directement au ruban.. je te laisse adapter..
Edit: vu..

Cliquez pour agrandir...