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

Broch002

XLDnaute Occasionnel
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
 

Pièces jointes

  • Test ruban déroulant.xlsm
    21.8 KB · Affichages: 30
  • Test ruban déroulant.xlsm
    21.8 KB · Affichages: 35
  • Test ruban déroulant.xlsm
    21.8 KB · Affichages: 36

vgendron

XLDnaute Barbatruc
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..
 
Dernière édition:

Broch002

XLDnaute Occasionnel
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..


Bonjour; cela semble être bon, Je teste.

Bonne journée.

Broch002
 

Discussions similaires

Statistiques des forums

Discussions
312 816
Messages
2 092 332
Membres
105 367
dernier inscrit
jych