Comment désactiver une macro ?

[Marmotte3]

Bonjour !

J'ai trouver pourquoi il plante c'est parce que lorsque je sauvegarde une donnée change change le contenu de mon combobox qui a comme liste de donnée la première colonne du tableau de sauvegarde, et qu'il y a une macro qui se déclanche quand ce combobox change !!!

Y a t'il un moyen pour enpêcher le déclanchement de cette macro lors de cette opération!!!

Merci !!

 

[STéphane]

oui application.enableevents=false avant l'opération et rétablir à true après.

bye
Stéphane

 

[Marmotte3]

D'acord merci !!!

Mais ou je le met ce code ???

 

[STéphane]

je sais pas )

tu dois avoir des évènements onchange ou onlostfocus qui se déclenche quand tes listes sont modifiées, non ?

 

[Marmotte3]

Oui mais je dois le mettre dans la procédure évenementielle ou dans la procédure que je lance.???

Je vais être plus claire !!

J'ai un combobox auquel j'ai liée une procédure qui se déclanche lorsque la valeur de celui ci change.

Lorsque je lance la procédure qui sauvegarde mes donnée écritent dans des textbox de la même feuille(feuille de saisie)le tableau des sauvegarde bouge et cela change la valeur du combobox et lance la procédure évenementiel, ce qui fait planté le programme.

J'aimerai que cette procédure ne se déclanche pas lorsque je lance la procédure de sauvegarde !!

Merci

 

[STéphane]

dans le programme que tu lances

 

[Marmotte3]

D'acord je vais essayer !

Merci

 

[Marmotte3]

Je ne comprend pas ça a quand même lancé la procédure évenementiel ???

 

[STéphane]

l'instruction est bien écrite ?

et ton plantage c'est quel genre ?
tu as un message d'erreur ou bien Excel se ferme ?


bye
STéphane

 

[Marmotte3]

Il me semble qu'elle est bien écrite(sinon cela planterait)!

C'est un message d'erreur qui apparait et le bug se produit aumoment de la selection d'un bouton de commande.

Ce qui est lourd c'est que après je ne peut plus rien faire et je suis obliger de quitter le programme et de le relancé !!!

 

[STéphane]

quel est le message d'erreur ? est-il explicite ?

 

[Marmotte3]

Attend je vais la provoquer !!!

 

[Marmotte3]

Alors désolé d'avoir mis autanrt de temps !:-(

Run-time error '9':

Subscribt out of range.

voici la procéduer évenementiel :

Private Sub ComboBox2_Change()
Déprotéger

B37 = range("B37")
C37 = range("C37")
Déprotéger
If B37 = 1 Then
ActiveSheet.Shapes("combobox1").Select
Selection.ShapeRange.ZOrder msoSendToBack
range("C37").Select
ActiveCell.FormulaR1C1 = _
"=IF(ISNA(VLOOKUP(R[-33]C[1],save!R[-36]C[-1]:R[963]C[116],117,FALSE)),"""",VLOOKUP(R[-33]C[1],save!R[-36]C[-1]:R[963]C[116],117,FALSE))"
range("B37").Select
ActiveCell.FormulaR1C1 = 0
End If
If C37 <> "" Then
Sheets("Client").Shapes("CommandButton2").ZOrder msoBringToFront
Sheets("Client").Shapes("CommandButton5").ZOrder msoBringToFront
Else
Sheets("Client").Shapes("CommandButton2").ZOrder msoSendToBack
Sheets("Client").Shapes("CommandButton5").ZOrder msoSendToBack
End If
Protéger

End Sub

C'est ici que ça bug :

Sheets("Client").Shapes("CommandButton2").ZOrder msoBringToFront

 

[STéphane]

bonjour

si c'est des objets de la barre commandes ou contrôles, utilise un truc du type : CommandButton1.BringToFront

bye
stephane

 

[Marmotte3]

Oui d'acord mais le problème n'est pas la !!!

Le problème c'est que la procédure qui provoque l'érreur ne devrait pas se lancer gracre a la comande que tu m'as donné mais elle se lance quand même !!!