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

[Broch002]

Bonjour, à tous.

Je remercie encore Xrevenge, pour sa solution d'hier concernant la remontée de la valeur d'un combobox du ruban dans une feuille.
Maintenant je souhaiterais utiliser cette valeur comme variable dans une macros.
En fait actuellement j'ai autan de macro (pour trier une feuille comportant 45000 lignes et remonter la valeur en E1 dans un tableau) que de clients, exemple.

Sub TABLEAU_COMPTE_1()
ActiveSheet.Range("$C$5:$O$30000").AutoFilter Field:=5, Criteria1:= "Client1"
End Sub

Est-il possible, pour supprimer ces codes répétitifs, et de remonter dans une seule macro le code choisi par l'utilisateur dans le ruban au moment de son lancement.

Merci de votre collaboration toujours fructueuse.

Broch002

 

[vgendron]

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

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

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

'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..

 

[Broch002]

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

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

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

'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..

Bonjour; cela semble être bon, Je teste.

Bonne journée.

Broch002