Discussion :

[Un Internaute]

Bonjour le forum,
Je voudrais ajouter dans ThisWorkbook une instruction pour faire effacer un commentaire dans colonnes G à I (fusionnées) si j'efface dans colonne B ou E une somme (voir macro ci-dessous)
Je ne sais où le placer.
merci d'avance pour vos éventuels retours
Bon WE à tous

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim NombreJour As Integer
Dim Ladate As Date
 
  If Target.Count > 1 Then Exit Sub
  Application.EnableEvents = False
  ' On recherche si la page est surveillée
  If Left(Sh.Name, 7) = "Charges" Then
    If Not Intersect(Range("B8:B70,E8:E70"), Target) Is Nothing Then
      If Target.Interior.ColorIndex = 2 Then
        ' Si la colonne B et la colonne E est vide on efface la date
        Range("A" & Target.Row) = IIf(Range("B" & Target.Row) & Range("E" & Target.Row) = "", "", Date)
      End If
    End If
  End If
  Application.EnableEvents = True
End Sub

[Qwazerty]

Salut
Il faut revoir ta question je pense

si j'efface dans colonne B ou E une somme

Tu ne les efface jamais dans ton code, c'est la cellule contenu dans la colonne A que tu effaces.
Est-ce que tu veux prendre en compte le fait qu'il y ait une somme dans la cellule A...
Ou vraiment effacer le contenu des cellules B et E mais alors il faudra nous dire quand est-ce qu'il faut les vider.

Autre chose

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
' Si la colonne B et la colonne E est vide on efface la date
        Range("A" & Target.Row) = IIf(Range("B" & Target.Row) & Range("E" & Target.Row) = "", "", Date)

Le code ne fait pas du tout ce qui est inscrit en commentaire, c'est normal?
Traduction du code
Si B et E sont vides alors A est vidé et si B ou E contient quelque chose alors on met la date du jour dans A

++
Qwaz

[Un Internaute]

Bonjour Qwaz,
Lorsque je mets une somme dans colonne B ou E ça met une date figée dans colonne A. Si je me suis trompé de somme et que je fasse suppr dans colonne B ou E ça supprime la date. J'ai ajouté des commentaires dans colonnes fusionnées qui vont de G à I . Lorsque je fais le même Suppr je voudrais que le commentaire soit aussi effacé.
Je ne sais pas si j'ai été très clair!!! C'est mon éternel "problème" et je m'en excuse par avance.
Merci de tes réponses
Bonne journée

[Qwazerty]

Salut

Donc je je comprends bien, le fait que ce soit une somme n'a pas d'importance, il faut juste retirer les commentaire si le contenu de E et B est vide ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
If Target.Interior.ColorIndex = 2 Then
    If Range("B" & Target.Row) & Range("E" & Target.Row) = "" Then
        ' Si la colonne B et la colonne E est vide on efface la date
        Range("A" & Target.Row) = ""
        ' Et les commentaires placés sur les colonne G à I
        Range("G" & Target.Row, "I" & Target.Row).Comment.Delete
    Else
        Range("A" & Target.Row) = Date
    End If
End If

++
Qwaz

[Un Internaute]

Lorsque je fait Suppr dans une cellule colonnes B ou E ça efface la date dans une cellule colonne A mais ça doit aussi effacer les commentaires colonnes G à I (fusionnées)
Lorsque tu fais une nouvelle macro peux-tu STP incorporer dans ma macro d'origine le nouveau code car là ça bug pas mal.
Merci de t'intéresser à mon "problème" (tout est relatif)
Bien cordialement

Voilà ça fait ce que je veux.
Merci pour ton aide
Bon WE à toi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim NombreJour As Integer
Dim Ladate As Date
 
  If Target.Count > 1 Then Exit Sub
  Application.EnableEvents = False
  ' On recherche si la page est surveillée
  If Left(Sh.Name, 7) = "Charges" Then  'Le chiffre 7 = Nombre de lettres du mot "Charges".On peut mettre 8 avec un espace après "Charges " pour une sécurité.
    If Not Intersect(Range("B8:B70,E8:E70"), Target) Is Nothing Then
      If Target.Interior.ColorIndex = 2 Then
        ' Si la colonne B et la colonne E est vide on efface la date
        Range("A" & Target.Row) = IIf(Range("B" & Target.Row) & Range("E" & Target.Row) = "", "", Date)
        Range("G" & Target.Row, "I" & Target.Row).ClearContents  'Commentaires placés dans les colonnes G à I
      End If
    End If
  End If
  Application.EnableEvents = True
End Sub

[Qwazerty]

Salut

Attention

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
If Target.Interior.ColorIndex = 2 Then
        ' Si la colonne B et la colonne E est vide on efface la date
        Range("A" & Target.Row) = IIf(Range("B" & Target.Row) & Range("E" & Target.Row) = "", "", Date)
        Range("G" & Target.Row, "I" & Target.Row).ClearContents  'Commentaires placés dans les colonnes G à I
End If

ClearContents supprime le contenu de la cellule pas un commentaire qui lui serait attaché. Je pense que tu n'utilises pas le mot "commentaire" dans le bon sens. Sur Excel un "Commentaire" est ajouté à la cellule en faisant clique droit sur la cellule puis "Insérer un commentaire".

Avec un tel code les "commentaires"(pour toi le contenu de cellules) seront supprimés à chaque fois et pas uniquement quand B et E seront vides.

Voila la modification... incorporé dans le code... un peu effort n'est pas interdit
J'ai aussi modifié l’appellation de la cellule commentaire, car je viens de voir qu'il s'agit de cellules fusionnées.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim NombreJour As Integer
Dim Ladate As Date
 
  If Target.Count > 1 Then Exit Sub
  Application.EnableEvents = False
  ' On recherche si la page est surveillée
  If Left(Sh.Name, 7) = "Charges" Then
    If Not Intersect(Range("B8:B70,E8:E70"), Target) Is Nothing Then
        If Target.Interior.ColorIndex = 2 Then
            If Range("B" & Target.Row) & Range("E" & Target.Row) = "" Then
                ' Si la colonne B et la colonne E est vide on efface la date
                Range("A" & Target.Row) = ""
                ' Et les commentaires placés sur les colonne G à I
                Range("G" & Target.Row).ClearContents 'Je viens de voir dans un de tes message qu'il s'agit de cellules fusionnées qui vont de G à I, donc pas besoin de nommer la plage
            Else
                Range("A" & Target.Row) = Date
            End If
        End If
    End If
  End If
  Application.EnableEvents = True
End Sub

++
Qwaz