Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

ne pas déclencher une macro lorsqu'une autre se met en route

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion gillmo
  • 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
G

gillmo

XLDnaute Occasionnel
bonsoir,

je souhaiterai eviter qu'une macro se déclenche lorsqu'une autre est en route. je colle les codes pour que vous me disiez ou il faut effectuer des modifications


Private Sub CommandButton1_Click()

If TextBox17.Value = "" Then
Exit Sub
End If
With Worksheets(Nomfeuille1)
If TextBox17 <> "" Then
Flg_Test = False
For Each cel In .Range("c3:c" & .Range("c65536").End(xlUp).Row)
Str_test = cel.Address(0, 0)
Str_test = cel
If cel = TextBox17 Then
Flg_Test = True
Exit For
End If
Next cel
If Flg_Test Then
Worksheets("Base").ComboBox2 = .Range("d" & cel.Row)
Worksheets("Base").TextBox1 = .Range("e" & cel.Row)
Worksheets("Base").TextBox2 = .Range("f" & cel.Row)
Worksheets("Base").TextBox3 = .Range("g" & cel.Row)
Worksheets("Base").ComboBox3 = .Range("h" & cel.Row)
Worksheets("Base").TextBox5 = .Range("j" & cel.Row)
Worksheets("base").TextBox7 = .Range("m" & cel.Row)
Worksheets("base").TextBox8 = .Range("n" & cel.Row)
Worksheets("base").TextBox9 = .Range("o" & cel.Row)
Worksheets("base").TextBox10 = .Range("p" & cel.Row)
Worksheets("base").TextBox11 = .Range("q" & cel.Row)
Worksheets("base").TextBox12 = .Range("r" & cel.Row)
Worksheets("base").TextBox13 = .Range("s" & cel.Row)
Worksheets("base").TextBox14 = .Range("t" & cel.Row)
Worksheets("base").TextBox15 = .Range("u" & cel.Row)
Worksheets("base").TextBox16 = .Range("v" & cel.Row)
End If
End If
End With
End Sub

Private Sub textbox1_change()

If TextBox1 = "" Then
TextBox17 = ""
Else
TextBox17 = Sheets(Nomfeuille1).Range("c65536").End(xlUp).Rows + 1
End If
End Sub

Lorsque la macro commandbutton_click s'execute je souhaiterai que la macro textbox1 change ne se déclenche pas.

merci pour votre aide
 
Trier par date Trier par votes
Re : ne pas déclencher une macro lorsqu'une autre se met en route

merci jean marcel

je ne peux pas tester ton code car j'ai un beug dans mon code

Cette ligne du code me provoque une erreur, mais je ne vois pas ou est le problème

TextBox17 = Sheets(Nomfeuille1).Range("c65536").End(xlUp).Rows + 1
 
Vote positif 0 Vote négatif
Re : ne pas déclencher une macro lorsqu'une autre se met en route

En fait j'avais enlever le s, mais cela me donne pas le résultat que je souhaite. En fait j'essaie de trouver le dernier chiffre inscrit dans la colonne c, et ajouter 1, mais si j'enleve le s, il me donne le numéro de la ligne, et ce n'est pas ce que je veux.
 
Vote positif 0 Vote négatif
Re : ne pas déclencher une macro lorsqu'une autre se met en route

Bonsoir à tous


Avec un IIF au lieu d'un If/End If

Code: 
Private Sub textbox1_change()
Application.EnableEvents = False
TextBox17 = IIF(Isempty(TextBox1),"",Sheets(Nomfeuille1).Range("c65536").End(xlUp).Row + 1)
Application.EnableEvents = True
End Sub
 
Vote positif 0 Vote négatif
Re : ne pas déclencher une macro lorsqu'une autre se met en route

salut,

tu me conseille de passer par un userform, mais comme je n'ai jamais utiliser cela, je pourrai lier ce userform à une feuille récap sur laquelle je récupérai l'ensemble des infos selectionner dans le userform.
 
Vote positif 0 Vote négatif
Re : ne pas déclencher une macro lorsqu'une autre se met en route

merci jean marcel, effectivement je vais avoir besoin de ton aide, car je débute en langage VBA et en userform.
Ce que je souhaite :

- creer une base de donnée de reservation de voyage
- l'utilisateur selectionne le voyage dans la liste, rempli les champ nom prénom et adresse client
- dès que l'on rentre un nom de client, cela déclenche automatiquement un numéro de dossier.
- le prix unitaire est en relation avec le nom du voyage (tout est référencé dans la feuille1
- lorsqu'on enregistre les données vont se copier dans la feuille synhèse
- il faudrait un bouton rappel dossier, lorsque l'on veut mettre à jour un dossier existant, donc on saisit le numéro dossier et l'on fait rappel, cela affiche les données correspondant au dossier

voilà pour un début je pense que c'est bon, j'ai encore d'autres idées en tête, mais je pense que je te les donnerai au fur et à mesure. je suis à ton écoute pour développer mon formulaire.

merci encore.
 
Vote positif 0 Vote négatif
Re : ne pas déclencher une macro lorsqu'une autre se met en route

merci jean marcel, c'est ce que je souhaite, par contre je souhaiterai que lorsque l'on ouvre le fichier, on tombe directement sur le userform, et que l'accès à la feuille synthèse se fasse uniquement par un bouton sur le userform via mot de passe.

excuse moi de t'en demander autant, mais j'essaie de comprendre tes codes.
 
Vote positif 0 Vote négatif
Re : ne pas déclencher une macro lorsqu'une autre se met en route

merci jean marcel,

lorsque je veux rentrer un nouvel enregistrement, je choisi le voyage, et lorsque je saisi le nom du client, le voyage disparait et il faut que j'aille le rechercher.

Pourrais tu me dire à quel niveau je dois modifier le code, pour corriger ce problème
 
Vote positif 0 Vote négatif
Re : ne pas déclencher une macro lorsqu'une autre se met en route

merci jean marcel, tu m'as fait économiser énormement de temps, je reviendrai vers toi si jamais je souhaite apporter des modifications.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
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

  • Question Question
XL 2021 [Résolu] MFC et tableau structuré
Réponses
14
Affichages
1 K
jeff1494
S
  • Résolu(e)
Microsoft 365 Déclenchement macro en série suite à cellule fusionnées
Réponses
3
Affichages
265
spike29
S
E
  • Résolu(e)
XL 2019 inserer une valeur textbox dans la dernière cellule vide horizontalement
Réponses
7
Affichages
676
escudo
E
U
  • Question Question
Autres incorporer une macro dans une autre macro
Réponses
5
Affichages
483
Phil69970
T
  • Question Question
XL 2021 message si une valeur n'existe pas
Réponses
6
Affichages
749
target
T
L
  • Question Question
Microsoft 365 Faire agir une macro en fonction de l'emplacement du bouton
Réponses
2
Affichages
453
AtTheOne
G
  • Question Question
Microsoft 365 Saut de ligne dans une cellule
Réponses
3
Affichages
590
GClaire
G
A
  • Question Question
Microsoft 365 Macro pour récupérer des colonnes qui ne sont pas conjointes
Réponses
4
Affichages
386
Anthony_51
A
J
  • Résolu(e)
XL 2010 Avoir 2 mots de passe pour une même macro?
Réponses
2
Affichages
431
jigour
J
J
  • Question Question
Autres Supprimer une ligne dans une feuille à partir d'une valeur rentrée dasn une cellule d'une autre feuille
2
Réponses
25
Affichages
2 K
jmc78
J
B
  • Question Question
Microsoft 365 formulaire VBA problème
Réponses
3
Affichages
899
herve62
Z
  • Question Question
XL 2021 VBA Prélèvement d'une donnée si une valeur recherchée est identique
Réponses
3
Affichages
488
ZiM
Z
M
  • Question Question
Microsoft 365 Joindre une copie de 2 feuilles Excel dans outlook
Réponses
0
Affichages
530
Mika07
M
V
  • Résolu(e)
Microsoft 365 VBA effacer plusieurs cellules en fonctionde la valeur d'une dans une boucle for
2 3
Réponses
39
Affichages
3 K
vincent32
V
L
  • Résolu(e)
XL 2016 Déplacer Une Ligne Entière Vers Une Autre Feuille En Fonction De La Valeur De La Cellule
Réponses
7
Affichages
2 K
loic59120
L
K
  • Question Question
Microsoft 365 Activation d'onglet en rapport avec l'encodage dans une ligne
Réponses
1
Affichages
543
eCHO
E
B
  • Résolu(e)
XL 2016 Modifier ou créer une macro de tri aléatoire par équipe de trois joueurs en lui ajoutant une colonne
Réponses
2
Affichages
532
berru76
B
C
  • Question Question
Microsoft 365 Convertir macro en script (faire marcher macro sur sharepoint)
Réponses
2
Affichages
3 K
crazy
C
O
  • Résolu(e)
XL 2016 Faire apparaitre un tableau en fonction d'un choix déroulant
Réponses
2
Affichages
574
onicow
O
T
  • Résolu(e)
XL 2019 Copier une zone de texte à intervalle régulier
Réponses
11
Affichages
995
thespeedy20
T
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…