Sous E4 j’inscris un mot ( Venoge ou un autre mot) je voudrais que cette
inscription réapparaisse automatiquement dans la colonne F et à partir de F
8.
Ce mot doit réapparaître spontanément lors de chaque inscription sur les
lignes suivantes (9,10,11,12, etc).
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
Bonjour schopferf,
Dans le code du module feuille où l'action se déroule, essaie ceci :
'------------------------------ Private Sub Worksheet_Change(ByVal Target As Range)
Dim rg As Range Set rg = Intersect(Target, Range("F5:F65536"))
If Not rg Is Nothing Then Application.EnableEvents = False For Each c In rg c.Value = c.Value & " " & Range("E4") Next Application.EnableEvents = True End If
End Sub '------------------------------
Salutations!
"schopferf" a écrit dans le message de news:
Bonjour,
Fichier sous Excel 2000
Sous E4 j'inscris un mot ( Venoge ou un autre mot) je voudrais que cette inscription réapparaisse automatiquement dans la colonne F et à partir de F 8.
Ce mot doit réapparaître spontanément lors de chaque inscription sur les lignes suivantes (9,10,11,12, etc).
Un grand merci d'avance pour votre aide
Bonjour schopferf,
Dans le code du module feuille où l'action se déroule, essaie ceci :
'------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rg As Range
Set rg = Intersect(Target, Range("F5:F65536"))
If Not rg Is Nothing Then
Application.EnableEvents = False
For Each c In rg
c.Value = c.Value & " " & Range("E4")
Next
Application.EnableEvents = True
End If
End Sub
'------------------------------
Salutations!
"schopferf" <schopferf@discussions.microsoft.com> a écrit dans le message de news:
678B9180-0763-4DB1-83CD-03095633E0C9@microsoft.com...
Bonjour,
Fichier sous Excel 2000
Sous E4 j'inscris un mot ( Venoge ou un autre mot) je voudrais que cette
inscription réapparaisse automatiquement dans la colonne F et à partir de F
8.
Ce mot doit réapparaître spontanément lors de chaque inscription sur les
lignes suivantes (9,10,11,12, etc).
Dans le code du module feuille où l'action se déroule, essaie ceci :
'------------------------------ Private Sub Worksheet_Change(ByVal Target As Range)
Dim rg As Range Set rg = Intersect(Target, Range("F5:F65536"))
If Not rg Is Nothing Then Application.EnableEvents = False For Each c In rg c.Value = c.Value & " " & Range("E4") Next Application.EnableEvents = True End If
End Sub '------------------------------
Salutations!
"schopferf" a écrit dans le message de news:
Bonjour,
Fichier sous Excel 2000
Sous E4 j'inscris un mot ( Venoge ou un autre mot) je voudrais que cette inscription réapparaisse automatiquement dans la colonne F et à partir de F 8.
Ce mot doit réapparaître spontanément lors de chaque inscription sur les lignes suivantes (9,10,11,12, etc).
