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

[gillmo]

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

 

[gillmo]

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

 

[gillmo]

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.

 

[gillmo]

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

merci jean marcel, mais j'ai toujours une erreur d'incompatibilité '13', c'est à ne rien comprendre.

 

[Staple1600]

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

Private Sub textbox1_change()
Application.EnableEvents = False
TextBox17 = IIF(Isempty(TextBox1),"",Sheets(Nomfeuille1).Range("c65536").End(xlUp).Row + 1)
Application.EnableEvents = True
End Sub

 

[gillmo]

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

merci à vous.
je vous donne une copie du fichier car malgré vos réponses j'ai toujours un soucis dans la textbox17

 

[gillmo]

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.

 

[gillmo]

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.

 

[gillmo]

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

je joins le fichier tel que je souhaite qu'il apparaisse, maintenant je vais avoir besoin d'aide sur la création des différents code pour l'utiliser

 

[gillmo]

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.

 

[gillmo]

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

 

[gillmo]

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.