Bonjour tout le monde
dons une colonne G je dois insérer des adresses et ses adresses finissent toujours par la même phrase j'aimerais savoir s'il y a une possibilité que cette phrase s'ajoute automatiquement quand je quitte la cellule
Comme ceci (dans le module de l'onglet concerné par la saisie) ?
Code:
Option Explicit
Private Sub Worksheet_Change(ByVal c As Range)
If c.Column <> 7 Then Exit Sub
Application.EnableEvents = False
c.Value = c.Value & " toto" ' adapter
Application.EnableEvents = True
End Sub
Comme ceci (dans le module de l'onglet concerné par la saisie) ?
Code:
Option Explicit
Private Sub Worksheet_Change(ByVal c As Range)
If c.Column <> 7 Then Exit Sub
Application.EnableEvents = False
c.Value = c.Value & " toto" ' adapter
Application.EnableEvents = True
End Sub