VBA - Efface info

[Celeda]

Bonjour,

Je souhaiterai ajouter une condition supplémentaire à ces deux lignes de code ci-dessous
(si une date est placée en O ou P, la ligne se colorie en rose ou en gris)

Case 15
If IsDate(Target.Value) Then Target.EntireRow.Interior.ColorIndex = 38
Case 16
If IsDate(Target.Value) Then Target.EntireRow.Interior.ColorIndex = 15
Si une date placée dans ces colonnes, et si un X placé en colonne X, que le X s'efface automatiquement, sinon rien.

A l'avance merci

 

[Pierrot93]

Re : VBA - Efface info

Re,

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

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...

@+

 

[Celeda]

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🙂

 

[tbft]

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

Dim Tag as Boolean

Dans ma macro xxx_change()

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

 

[tototiti2008]

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 :

[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]

 

[tbft]

Re : VBA - Efface info

Merci tototiti

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

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

 

[Pierrot93]

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
@+

 

[tbft]

Re : VBA - Efface info

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

 

[mromain]

Re : VBA - Efface info

Bonjour ou re à tous,

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
@+

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+

 

[Celeda]

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!!!🙂