transmission d'une variable d'une procédure à une autre

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion Phil39
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
P

Phil39

XLDnaute Occasionnel
Encore moi... 🙂

J'ai un popup type (c'est un extrait)


Set Cbut = Cpop3.Controls.Add(Type:=msoControlButton)
With Cbut
.FaceId = 326 '<-- bouton avec icône + texte
.Caption = "Dossiers de Toto" '<-- label du bouton
.OnAction = "DossiersToto"
End With

le OnAction me conduit bien sur la Sub DossiersToto qui est :

Sub DossiersToto()
Personne="toto"
Application.ScreenUpdating = False
For i = 1 To [A65000].End(xlUp).Row
If Cells(i, 2) <> Personne Then Cells(i, 1).EntireRow.Hidden = True
Next i
End Sub

l'idée c'est de masquer toutes les lignes de mon fichier ou il n'y a pas toto (qui est forcement dans la colonne B mais bon, là ça marche aussi)

Dans cette configuration, cela fonctionne.

Cela dit, j'ai 15 choix possibles, je me vois mal recopier 25 sub pour finalement une variable qui change.

J'ai donc essayé de déclarer une variable Personne en début de ma sub de création popup :

Personne as String

Set Cbut = Cpop3.Controls.Add(Type:=msoControlButton)
With Cbut
.FaceId = 326 '<-- bouton avec icône + texte
.Caption = "Dossiers de Toto" '<-- label du bouton
.OnAction = "DossiersToto"
Personne="Toto"
End With

et d'ajouter juste aprés le OnAction un truc du type Personne="Toto" de façon a demander à ma procédure de masquage de dossier de faire le boulot en prenant la valeur de personne préalablement déclarée.

genre :

Sub DossiersToto()
Application.ScreenUpdating = False
For i = 1 To [A65000].End(xlUp).Row
If Cells(i, 2) <> Personne Then Cells(i, 1).EntireRow.Hidden = True
Next i
End Sub

Ca marche pas évidemment !

Ma question est donc :

Comment faire pour définir la variable Personne dans ma procédure popup et que cette valeur soit conservée lors du passage dans ma seconde procédure ?
 
Dernière édition:
Trier par date Trier par votes
Re : transmission d'une variable d'une procédure à une autre

Bonjour Phil,

Attention aux guillemets simples et doubles
Code: 
    .OnAction = "[SIZE=3][COLOR=red]'[/COLOR][/SIZE]DossiersToto ""tata""[SIZE=3][COLOR=red]'[/COLOR][/SIZE]"

Ou avec la même mise en garde:

Code: 
.OnAction = [COLOR=#ff0000][SIZE=3][COLOR=blue]"[/COLOR][/SIZE]'[COLOR=black]DossiersToto [/COLOR][SIZE=3][COLOR=blue]"[/COLOR][/SIZE][/COLOR][COLOR=#ff0000][SIZE=3][COLOR=blue]""[/COLOR][/SIZE][/COLOR]  & UneVariable & [SIZE=3][COLOR=#ff0000][COLOR=blue]""[/COLOR][/COLOR][COLOR=#ff0000][COLOR=blue]"[/COLOR][COLOR=red]'[/COLOR][COLOR=blue]"[/COLOR][/COLOR][/SIZE]

Bien-sûr il faut

Code: 
Sub DossiersToto([SIZE=3][COLOR=red]Qui as string[/COLOR][/SIZE])


A+
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : transmission d'une variable d'une procédure à une autre

Hasco à dit:
Bonjour Phil,

Attention aux guillemets simples et doubles
Code: 
    .OnAction = "[SIZE=3][COLOR=red]'[/COLOR][/SIZE]DossiersToto ""tata""[SIZE=3][COLOR=red]'[/COLOR][/SIZE]"

Ou avec la même mise en garde:

Code: 
.OnAction = [COLOR=#ff0000][SIZE=3][COLOR=blue]"[/COLOR][/SIZE]'[COLOR=black]DossiersToto [/COLOR][SIZE=3][COLOR=blue]"[/COLOR][/SIZE][/COLOR][COLOR=#ff0000][SIZE=3][COLOR=blue]""[/COLOR][/SIZE][/COLOR]  & UneVariable & [SIZE=3][COLOR=#ff0000][COLOR=blue]""[/COLOR][/COLOR][COLOR=#ff0000][COLOR=blue]"[/COLOR][COLOR=red]'[/COLOR][COLOR=blue]"[/COLOR][/COLOR][/SIZE]

Bien-sûr il faut

Code: 
Sub DossiersToto([SIZE=3][COLOR=red]Qui as string[/COLOR][/SIZE])


A+
Cliquez pour agrandir...

Autre question sur le même sujet :

Je souhaites maintenant masquer toutes les lignes qui ne sont pas au bon nom (votre version fonctionne nickel) et EN PLUS les lignes qui sont vides en cellule P

J'ai tenté cela mais ce n'est pas bon :

Sub Test(Nom As String)
Application.ScreenUpdating = False
ActiveSheet.Cells.EntireRow.Hidden = False
For i = 1 To [A65000].End(xlUp).Row
If Cells(i, 2) <> Nom And Cells(i, 12) = "" Then Cells(i, 1).EntireRow.Hidden = True
Next i
End Sub


EDIT :

J'ai trouvé !

Pour ceux que cela interresse :

Sub Test(Nom As String)
Application.ScreenUpdating = False
ActiveSheet.Cells.EntireRow.Hidden = False
For i = 1 To [A65000].End(xlUp).Row
If Cells(i, 2) <> Nom Then Cells(i, 1).EntireRow.Hidden = True
If Cells(i, 2).Offset(0, 14) = "" Then Cells(i, 1).EntireRow.Hidden = True
Next i
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
Re : transmission d'une variable d'une procédure à une autre

Bonsoir Phil,

Parce que "" n'est pas = vide:

Code: 
Sub Test(Nom As String)
Application.ScreenUpdating = False
ActiveSheet.Cells.EntireRow.Hidden = False
For i = 1 To [A65000].End(xlUp).Row
If Cells(i, 2) <> Nom And [SIZE=3][COLOR=red]isempty(Cells(i, 12))[/COLOR][/SIZE]  Then Cells(i, 1).EntireRow.Hidden = True
Next i
End Sub

Petit conseil en passant
Code: 
For i = 1 To [A65000].End(xlUp).Row

Est chronophage en exécution car VBA est obligé de réévaluer l'expression à chaque passage de la boucle.

Si tu as beaucoup de lignes, ceci ira plus vite.
Code: 
Dim DerLigne as long
DerLignes=[A65000].End(xlUp).Row
For i = 1 to DerLign
....
Next

Sera plus rapide ceci également:
Code: 
Cells(i,1).Hidden = Cells(i, 2) <> Nom And isempty(Cells(i, 12))
Tout ceci sans parler des autres moyens d'aller encore plus vite.

A+++
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : transmission d'une variable d'une procédure à une autre

Hasco à dit:
Bonsoir Phil,

Parce que "" n'est pas = vide:

Code: 
Sub Test(Nom As String)
Application.ScreenUpdating = False
ActiveSheet.Cells.EntireRow.Hidden = False
For i = 1 To [A65000].End(xlUp).Row
If Cells(i, 2) <> Nom And [SIZE=3][COLOR=red]isempty(Cells(i, 12))[/COLOR][/SIZE]  Then Cells(i, 1).EntireRow.Hidden = True
Next i
End Sub

Petit conseil en passant
Code: 
For i = 1 To [A65000].End(xlUp).Row

Est chronophage en exécution car VBA est obligé de réévaluer l'expression à chaque passage de la boucle.

Si tu as beaucoup de lignes, ceci ira plus vite.
Code: 
Dim DerLigne as long
DerLignes=[A65000].End(xlUp).Row
For i = 1 to DerLign
....
Next

Sera plus rapide ceci également:
Code: 
Cells(i,1).Hidden = Cells(i, 2) <> Nom And isempty(Cells(i, 12))
Tout ceci sans parler des autres moyens d'aller encore plus vite.

A+++
Cliquez pour agrandir...

Merci pour les infos.

Par contre, je ne comprend pas bien pourquoi votre code est plus rapide.
votre for i.... revient au mien me semble t'il...
Mais bon, je ne maitrise pas encore bien les subtilités c'est pour cela que je suis là... 🙂
 
Vote positif 0 Vote négatif
Re : transmission d'une variable d'une procédure à une autre

Bonjour,

Après week-end:

Phil39 à dit:
Par contre, je ne comprend pas bien pourquoi votre code est plus rapide.
Cliquez pour agrandir...

Code: 
Dim DerLigne as long
DerLignes=[A65000].End(xlUp).Row
For i = 1 to DerLign
....
Next

est plus rapide que:
Code: 
For i = 1 To [A65000].End(xlUp).Row
....
Next

car, dans cette dernière méthose, à chaque NEXT vb doit faire intervenir ce qu'on appelle des "classes d'objets" et leur méthode complexes pour évaluer l'expression et en retourner le résultat.

il faut mieux donc mettre le résultat dans une variable qui demande un temps de traitement moins couteux en faisant appel à des méthodes vb natives et simples de comparaison.

Quant à

Code: 
if Cells(i, 2) <> Nom And [COLOR=black]isempty(Cells(i, 12))[/COLOR]  Then Cells(i, 1).EntireRow.Hidden = True
Next i
End Sub

Code: 
Cells(i, 2) <> Nom And isempty(Cells(i, 12))  'renvoie Vrai ou Faux
Cells(i, 1).EntireRow.Hidden = True ' renvoie  Vrai ou faux

Donc
Code: 
Cells(i, 1).EntireRow.Hidden =Cells(i, 2) <> Nom And isempty(Cells(i, 12))

Une comparaison simple d'égalité est moins coûteuse qu'un IF ..... Then, qui fait intervenir d'autres processus de calcul.

A+

A+
 
Vote positif 0 Vote négatif
Re : transmission d'une variable d'une procédure à une autre

Hasco à dit:
Bonjour,

Après week-end:



Code: 
Dim DerLigne as long
DerLignes=[A65000].End(xlUp).Row
For i = 1 to DerLign
....
Next

est plus rapide que:
Code: 
For i = 1 To [A65000].End(xlUp).Row
....
Next

car, dans cette dernière méthose, à chaque NEXT vb doit faire intervenir ce qu'on appelle des "classes d'objets" et leur méthode complexes pour évaluer l'expression et en retourner le résultat.

il faut mieux donc mettre le résultat dans une variable qui demande un temps de traitement moins couteux en faisant appel à des méthodes vb natives et simples de comparaison.

Quant à

Code: 
if Cells(i, 2) <> Nom And [COLOR=black]isempty(Cells(i, 12))[/COLOR]  Then Cells(i, 1).EntireRow.Hidden = True
Next i
End Sub

Code: 
Cells(i, 2) <> Nom And isempty(Cells(i, 12))  'renvoie Vrai ou Faux
Cells(i, 1).EntireRow.Hidden = True ' renvoie  Vrai ou faux

Donc
Code: 
Cells(i, 1).EntireRow.Hidden =Cells(i, 2) <> Nom And isempty(Cells(i, 12))

Une comparaison simple d'égalité est moins coûteuse qu'un IF ..... Then, qui fait intervenir d'autres processus de calcul.

A+

A+
Cliquez pour agrandir...

OK c'est plus clair. Merci beaucoup
 
Vote positif 0 Vote négatif
Re : transmission d'une variable d'une procédure à une autre

bonjour Phil,

OK c'est plus clair. Merci beaucoup
Cliquez pour agrandir...
Sauf que, sur discussion et démonstration par MP avec JOB75(que je remercie🙂), ce que je te disais à propos de FOR..TO.. NEXT (post#5) ne semble pas justifié. Que l'expression qui suit TO n'est évaluée qu'une fois en début de boucle.

Je t'ai induit en erreur. Désolé.

Par contre cela se justifie pour les boucles Do...LOOP et les parcours de cellules en général.

Bonne journnée
A bientôt
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

A
  • Question Question
XL 2019 Copie d'une valeur dans la cellule à côté d'une valeur trouvé
Réponses
1
Affichages
134
sylvanu
sylvanu
C
  • Question Question
XL 2016 VBA - Mettre en Indice une partie du contenu d'une cellule : problème avec la propriété Font.Subscript
Réponses
2
Affichages
285
crocrocro
C
C
  • Question Question
Autres bug sur une procédure avec textbox contenant un code barre
2
Réponses
15
Affichages
2 K
TooFatBoy
TooFatBoy
Z
  • Question Question
XL 2021 VBA Prélèvement d'une donnée si une valeur recherchée est identique
Réponses
3
Affichages
481
ZiM
Z
marg55
  • Question Question
XL 2016 Variable d'un module de classe à un autre
Réponses
3
Affichages
758
marg55
marg55
D
  • Résolu(e)
Microsoft 365 Création d'une barre personnalisée dans Excel
2 3
Réponses
35
Affichages
3 K
laurent950
laurent950
F
  • Question Question
Microsoft 365 Associer lancement macro à une CheckBox
Réponses
7
Affichages
904
Fab117
F
marg55
  • Résolu(e)
XL 2019 Evènement sur bouton créé à l'initialisation d'un UserForm
Réponses
3
Affichages
632
marg55
marg55
I
  • Résolu(e)
XL 2019 Supprimer une ligne d'une base de données une fois qu'elle est transférée sur une autre feuille
Réponses
8
Affichages
652
Isabellisa
I
B
  • Question Question
Microsoft 365 liste à choix multiples avec contenu variable
Réponses
3
Affichages
651
BER6543
B
xtor
  • Question Question
XL 2019 Combobox depuis une autre feuille
Réponses
11
Affichages
1 K
ChTi160
ChTi160
C
  • Question Question
XL 2019 Tableau- creation de lignes: probleme de hauteur de lignes
Réponses
6
Affichages
677
Cheyenne_2021
C
G
  • Résolu(e)
Microsoft 365 Faire une collection de collection en VBA
2
Réponses
25
Affichages
2 K
dysorthographie
dysorthographie
V
  • Question Question
XL 2016 Convertir en tableau
Réponses
6
Affichages
736
cp4
cp4
PHV.FSM
  • Question Question
XL 2016 Calculer la position sur l'écran d'une position sur la grille (XL 2003)
2
Réponses
27
Affichages
4 K
Nicolas JACQUIN
Nicolas JACQUIN
T
  • Question Question
Microsoft 365 Comment donner des couleurs aux lignes d'une ListView excel VBA
2 3
Réponses
34
Affichages
5 K
TooFatBoy
TooFatBoy
M
  • Question Question
Microsoft 365 Copier les données d'une feuille à une autre
Réponses
6
Affichages
1 K
mimich_88
M
T
  • Résolu(e)
XL 2016 Comment passer une information entre procédure par une variable
Réponses
10
Affichages
1 K
Dranreb
Dranreb
M
  • Question Question
Microsoft 365 Génération image en lien hypertexte lié à une variable via une boucle
Réponses
0
Affichages
891
Maad84
M
A
  • Question Question
XL 2019 ajout automatique de quantités de sortie de stock au méme produit existant deja au tableau
Réponses
3
Affichages
1 K
vgendron
vgendron
Retour