Discussion :

[DiesIrae]

Bonjour,

J'ai besoin de savoir si la macro est déjà passée par un endroit, pour que le bouton ne soit affiché qu'une seule fois. Je précise que le code est exécuté lors de la première utilisation de la macro et qu'il ne doit pas être réexécuté quand on relance uniquement la 2e macro.

o est déclaré au tout début de la 1ere macro :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    Dim o As Integer
    o = 0

Le code qui ne doit être exécuté qu'une fois (présent sur la 2e macro, mais exécuté également à la suite de la première) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
    If o > 1 Then
        Exit Sub
    Else
        Range("A1").Select
        ActiveSheet.Buttons.Add(5, 5, 160, 63).Select
        ActiveSheet.Shapes("Button 1").Select
        Selection.Characters.Text = "Après ajout des inspecteurs manquants, relancer la création des feuilles individuelles."
        Selection.OnAction = "indiv"
        o = o + 1
        Range("A1").Select
    End If

Problème, le code s'exécute également lorsqu'on exécute manuellement cette seconde macro une 2e fois.

What's wrong, guys ?

merci à ceux qui se pencheront sur mon petit problème

[fgiambelluco]

Bonjour
2 petites choses
La premiere

If o > 1 Then
Exit Sub
Else

si o=0 et o=o+1=1, il ne sera jamais >1

La deuxième, si o doit être utilsée par les 2 macros, est-il bien déclaré en début de module pour ne pas perdre sa valeur à la fin de la 1ere macro ?

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Public o as byte

en haut d'un module public

[Gorfael]

Salut DiesIrae et le forum

What's wrong, guys ?

Moi, à part "je cannote en 12 temps" et "boîte à musique", l'anglais me donne des boutons

Le problème vient que comme tu ne t'es pas obligé à déclarer obligatoirement tes variables, Excel, si tu ne l'as pas fait, le fait à ta place.
Comme tu ne la déclares pas dans ta deuxième macro, Excel déclare lui-même une Variable "o" de type Variant et comme tu la testes ">1" lui affecte la valeur 0.

Il faut donc que tu déclares, en en-tête de module ta variable (Dim o as integer - ou as Boolean -) et que tu enlèves cette déclaration de ta première macro. La variable devenant Globale pour le module, elle pourra être utilisée par toutes les macros du module et conservera sa valeur tant que tu ne fermeras pas le classeur.
Si tu la déclares en booléenne, il suffira de lui affecter la valeur True, à l'exécution de ton code et la remettre à False en début de ta première macro. Le test devenant "If o then"

Ne connaissant que le sujet, difficile de donner d'autres conseils...
A+

[DiesIrae]

Bonjour
2 petites choses
La premiere

si o=0 et o=o+1=1, il ne sera jamais >1

o vaut 0 au début, la macro passe une fois dessus (o = 1) et si elle repasse une 2e fois... ah ben oui, je dois le bouger de place ou mettre > 0 du coup
J'avais changé pour tester et oublié de le remettre. :o

La deuxième, si o doit être utilsée par les 2 macros, est-il bien déclaré en début de module pour ne pas perdre sa valeur à la fin de la 1ere macro ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Public o as byte

en haut d'un module public

Vous parlez de la même chose, en fait ?

[laetitia]

bonjour le fil le forum comme je comprends!!!

code bouton

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub CommandButton1_Click()
macro1
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Option Explicit
Sub macro1(Optional X As String)
Sheets(1).CommandButton1.Visible = False
'ton code
End Sub

a adapter

[DiesIrae]

Salut DiesIrae et le forum
Moi, à part "je cannote en 12 temps" et "boîte à musique", l'anglais me donne des boutons

Sorry about that désolé

Le problème vient que comme tu ne t'es pas obligé à déclarer obligatoirement tes variables, Excel, si tu ne l'as pas fait, le fait à ta place.
Comme tu ne la déclares pas dans ta deuxième macro, Excel déclare lui-même une Variable "o" de type Variant et comme tu la testes ">1" lui affecte la valeur 0.

Il faut donc que tu déclares, en en-tête de module ta variable (Dim o as integer - ou as Boolean -) et que tu enlèves cette déclaration de ta première macro. La variable devenant Globale pour le module, elle pourra être utilisée par toutes les macros du module et conservera sa valeur tant que tu ne fermeras pas le classeur.
Si tu la déclares en booléenne, il suffira de lui affecter la valeur True, à l'exécution de ton code et la remettre à False en début de ta première macro. Le test devenant "If o then"

Ne connaissant que le sujet, difficile de donner d'autres conseils...
A+

C'est tout ce qu'il me fallait, merci pour l'explication

J'ai collé celui-là en haut :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Public o as byte

en haut d'un module public

et ça fonctionne.

Merci beaucoup messieurs (et mademoiselle, même si j'ai pas tout compris de ton bout de code )