VBA - Efface info

Pierrot93

XLDnaute Barbatruc

• 19 Octobre 2010

• #2

Re : VBA - Efface info

Re,

peut être ainsi , à voir si cela peut t'aider :

Code:

If IsDate(Target.Value) Then Target.EntireRow.Interior.ColorIndex = 15: _
    If Cells(Target.Row, 24).Value = "x" Then Cells(Target.Row, 24).Value = ""

mais attention, si code placé dans l'événement "change" de la feuille risque de boucler...

@+

 

Vote positif 0 Vote négatif

Celeda

XLDnaute Barbatruc

• 19 Octobre 2010

• #3

Re : VBA - Efface info

Bonjour,

Pierrot!!!! touchons du bois, il n'y a que mes cheveux qui bouclent pour l'instant!!!!

Ca marche super, merci

décidemment, on a des rendez-vous.....je dirais..... excelliens tous les deux!!!! lol!!et excellents!!!

Merci encore.



Si cela boucle, je t'informe🙂

 

Vote positif 0 Vote négatif

tbft

XLDnaute Accro

• 19 Octobre 2010

• #4

Re : VBA - Efface info

Bonjour tout le monde

@Pierrot : j'ai déjà le problème que tu évoque.
Je l'ai résolu en créant une variable de type boolean dans le code de la feuille

VB:

Dim Tag as Boolean

Dans ma macro xxx_change()

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
  if not Tag then
    Tag=True
    'liste des trucs à faire
    Tag=False
  End If
End Sub

Pourrais tu me dire si il existe plus simple, stp?

D'avance merci

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 19 Octobre 2010

• #5

Re : VBA - Efface info

Bonjour Celeda, Bonjour Pierrot, Bonjour tbft,

@tbft :

ta solution me semble trés bonne

l'autre solution est de désactiver tous les évènements :

Code:

[FONT=monospace][COLOR=#0000fc]Private[/COLOR] [COLOR=#0000fc]Sub[/COLOR] Worksheet_Change([COLOR=#0000fc]ByVal[/COLOR] Target [COLOR=#0000fc]As[/COLOR] Range)
  [COLOR=#0000fc]if[/COLOR] [COLOR=#0000fc]not[/COLOR] Tag [COLOR=#0000fc]then[/COLOR]
    Application.EnableEvents = False
    [COLOR=#008000]'liste des trucs à faire
[/COLOR]    Application.EnableEvents = True
  [COLOR=#0000fc]End[/COLOR] [COLOR=#0000fc]If[/COLOR]
[COLOR=#0000fc]End[/COLOR] [COLOR=#0000fc]Sub[/COLOR][/FONT]

 

Vote positif 0 Vote négatif

tbft

XLDnaute Accro

• 19 Octobre 2010

• #6

Re : VBA - Efface info

Merci tototiti

si j'ai bien compris on peut même supprimer le tag et le if then..

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    'liste des trucs à faire
    Application.EnableEvents = True
End Sub

Le seul inconvénient est que l'on bloque TOUS les événements.
Je titille ce n'est pas forcement un inconvénient

 

Dernière édition: 19 Octobre 2010

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 19 Octobre 2010

• #7

Re : VBA - Efface info

Bonjour à tous,

un autre problème avec "EnableEvents à false", en cas de plantage de la macro, les procédures événementielles seront désactivées jusqu'au redémarrage d'excel, à moins de remettre la propriété à "true" en lancant une ligne de code...

bon après midi
@+

 

Vote positif 0 Vote négatif

tbft

XLDnaute Accro

• 19 Octobre 2010

• #8

Re : VBA - Efface info

Merci Pierrot93 pour cette information précieuse....

 

Vote positif 0 Vote négatif

mromain

XLDnaute Barbatruc

• 19 Octobre 2010

• #9

Re : VBA - Efface info

Bonjour ou re à tous,

Pierrot93 à dit:

Bonjour à tous,

un autre problème avec "EnableEvents à false", en cas de plantage de la macro, les procédures événementielles seront désactivées jusqu'au redémarrage d'excel, à moins de remettre la propriété à "true" en lancant une ligne de code...

bon après midi
@+

Cliquez pour agrandir...

C'est je pense aussi le plus gros risque.

Cependant, en séparant la la macro en deux :
> une partie traitement (à proprement parler)
> une partie gestion des options de l'application avec gestion des erreurs.

Un exemple ici.

a+

 

Vote positif 0 Vote négatif

Celeda

XLDnaute Barbatruc

• 19 Octobre 2010

• #10

Re : VBA - Efface info

Bonsoir,


oulalaha vous me faites peur les gars...prions pour que tout cela n'arrive pas...

vous êtes des pros moi a little ant!!!🙂

 

Vote positif 0 Vote négatif