Execution macro sous condition

Version imprimable

29/01/2018, 19h54
stephb084

Execution macro sous condition

Bonjour,

J'ai une bonne connaissance en VBA mais la je coince :(

J'ai développé une macro pour envoyer un mail automatiquement si une cellule de la colonne T est remplit. Sauf que si je fais une modification dans une cellule déjà remplit un mail est aussi envoyé. Je souhaite donc qu'un mail soit envoyé automatiquement si une cellule, initialement vide, est remplis mais en aucun cas si des modifications sont effectuées sur une cellule déjà remplis. J'ai utilisé la fonction "Private sub worksheet_change(byval target as range)"

En vous remerciant d'avance pour votre aide .

Bonjour
Ma manière de te répondre (elle relève d'ailleurs plus de la conception d'un mécanisme, le code étant, lui, alors simplissime).
Regarde ce que ferait ceci sur toute cellule (et adapte).
Code:

1 2 3 4 5 6 7 8 Private deja As String Private Sub Worksheet_Change(ByVal Target As Range) If deja = "" And Target.Value <> "" Then MsgBox "j'envoie mon mail" End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) deja = Target.Value End Sub

bonjour,

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
Dim SelectAddress As Range
Dim Select1 As Boolean
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Select1 Then
        If Target.Address <> SelectAddress.Address Then
            'test si cellule vide à été remplie
            If SelectAddress.Value <> "" Then
                'envoyer un mail
                MsgBox "envoyer un mail : la cellule " & SelectAddress.Address & " a été remplie..."
            End If
            'test si cellule vide
            If Target.Value = "" Then
                Set SelectAddress = Target
            End If
        End If
    Else
        'test si cellule vide
        If Target.Value = "" Then
            Select1 = True
            Set SelectAddress = Target
        End If
    End If
End Sub

@+JP

29/01/2018, 21h10
stephb084

Merci a tous pour vos propositions, auquelles je n'avais pas pensé :) .

Je viens de tester une partie cela m'a l'air correct. Je finalise demain ce script et vous tiens au jus pour voir si cela me conviens.

En vous souhaitant une bonne soirée.