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