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
Daniel.C
Bonjour. Ajoute la macro personnalisée dans un module standard :
Sub test() Dim Ligne As Integer, c As Range, ResAdr As String With ActiveSheet Set c = Cells.Find("ANNEE", , , xlWhole) If Not c Is Nothing Then ResAdr = c.Address Do
Ligne = Ligne + 1 Cells(Ligne, 12) = c.Offset(, 1) Var = c.Offset(, 1).Value ActiveSheet.Hyperlinks.Add Cells(Ligne, 12), Address:="", SubAddress:= _ "'Détail des années salariées'!" & c.Offset(, 1).Address, _ TextToDisplay:=CStr(c.Offset(, 1).Value) Set c = Cells.FindNext(c) Loop While Not c Is Nothing And c.Address <> ResAdr End If End With End Sub
Cordialement. Daniel
Oblige de faire un nouveau poste car sa passe pas quand je répond désole,ci-joint le fichier.
http://cjoint.com/?grlU5uYlLI
Bonjour.
Ajoute la macro personnalisée dans un module standard :
Sub test()
Dim Ligne As Integer, c As Range, ResAdr As String
With ActiveSheet
Set c = Cells.Find("ANNEE", , , xlWhole)
If Not c Is Nothing Then
ResAdr = c.Address
Do
Ligne = Ligne + 1
Cells(Ligne, 12) = c.Offset(, 1)
Var = c.Offset(, 1).Value
ActiveSheet.Hyperlinks.Add Cells(Ligne, 12), Address:="",
SubAddress:= _
"'Détail des années salariées'!" & c.Offset(, 1).Address, _
TextToDisplay:=CStr(c.Offset(, 1).Value)
Set c = Cells.FindNext(c)
Loop While Not c Is Nothing And c.Address <> ResAdr
End If
End With
End Sub
Cordialement.
Daniel
Oblige de faire un nouveau poste car sa passe pas quand je répond
désole,ci-joint le fichier.
Bonjour. Ajoute la macro personnalisée dans un module standard :
Sub test() Dim Ligne As Integer, c As Range, ResAdr As String With ActiveSheet Set c = Cells.Find("ANNEE", , , xlWhole) If Not c Is Nothing Then ResAdr = c.Address Do
Ligne = Ligne + 1 Cells(Ligne, 12) = c.Offset(, 1) Var = c.Offset(, 1).Value ActiveSheet.Hyperlinks.Add Cells(Ligne, 12), Address:="", SubAddress:= _ "'Détail des années salariées'!" & c.Offset(, 1).Address, _ TextToDisplay:=CStr(c.Offset(, 1).Value) Set c = Cells.FindNext(c) Loop While Not c Is Nothing And c.Address <> ResAdr End If End With End Sub
Cordialement. Daniel
Oblige de faire un nouveau poste car sa passe pas quand je répond désole,ci-joint le fichier.
http://cjoint.com/?grlU5uYlLI
Jacky
Bonjour, Je propose ceci avec une liste de validation en colonne C '-------------- Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, [zone]) Is Nothing And Target.Count = 1 Then For Each c In Range("b1:b440") If Val(Left(Target, 4)) = c.Value Then c.Select Exit Sub End If Next End If End Sub '--------------- Le fichier modifié ici http://www.cijoint.fr/cjlink.php?file=cj200906/cij72Bdub3.xls
Ps Les noms composés comme nom de feuilles sont sujet à complications -- Salutations JJ
"STERNENBERG Jean Yves" a écrit dans le message de news: %
Oblige de faire un nouveau poste car sa passe pas quand je répond désole,ci-joint le fichier.
http://cjoint.com/?grlU5uYlLI
Bonjour,
Je propose ceci avec une liste de validation en colonne C
'--------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [zone]) Is Nothing And Target.Count = 1 Then
For Each c In Range("b1:b440")
If Val(Left(Target, 4)) = c.Value Then
c.Select
Exit Sub
End If
Next
End If
End Sub
'---------------
Le fichier modifié ici
http://www.cijoint.fr/cjlink.php?file=cj200906/cij72Bdub3.xls
Ps Les noms composés comme nom de feuilles sont sujet à complications
--
Salutations
JJ
"STERNENBERG Jean Yves" <sten83270@hotmail.com> a écrit dans le message de
news: %23uJFBGz7JHA.3804@TK2MSFTNGP02.phx.gbl...
Oblige de faire un nouveau poste car sa passe pas quand je répond
désole,ci-joint le fichier.
Bonjour, Je propose ceci avec une liste de validation en colonne C '-------------- Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, [zone]) Is Nothing And Target.Count = 1 Then For Each c In Range("b1:b440") If Val(Left(Target, 4)) = c.Value Then c.Select Exit Sub End If Next End If End Sub '--------------- Le fichier modifié ici http://www.cijoint.fr/cjlink.php?file=cj200906/cij72Bdub3.xls
Ps Les noms composés comme nom de feuilles sont sujet à complications -- Salutations JJ
"STERNENBERG Jean Yves" a écrit dans le message de news: %
Oblige de faire un nouveau poste car sa passe pas quand je répond désole,ci-joint le fichier.
http://cjoint.com/?grlU5uYlLI
STERNENBERG Jean Yves
Merci a tous "Jacky" a écrit dans le message de news:
Bonjour, Je propose ceci avec une liste de validation en colonne C '-------------- Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, [zone]) Is Nothing And Target.Count = 1 Then For Each c In Range("b1:b440") If Val(Left(Target, 4)) = c.Value Then c.Select Exit Sub End If Next End If End Sub '--------------- Le fichier modifié ici http://www.cijoint.fr/cjlink.php?file=cj200906/cij72Bdub3.xls
Ps Les noms composés comme nom de feuilles sont sujet à complications -- Salutations JJ
"STERNENBERG Jean Yves" a écrit dans le message de news: %
Oblige de faire un nouveau poste car sa passe pas quand je répond désole,ci-joint le fichier.
http://cjoint.com/?grlU5uYlLI
Merci a tous
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
u1LsAQ07JHA.356@TK2MSFTNGP03.phx.gbl...
Bonjour,
Je propose ceci avec une liste de validation en colonne C
'--------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [zone]) Is Nothing And Target.Count = 1 Then
For Each c In Range("b1:b440")
If Val(Left(Target, 4)) = c.Value Then
c.Select
Exit Sub
End If
Next
End If
End Sub
'---------------
Le fichier modifié ici
http://www.cijoint.fr/cjlink.php?file=cj200906/cij72Bdub3.xls
Ps Les noms composés comme nom de feuilles sont sujet à complications
--
Salutations
JJ
"STERNENBERG Jean Yves" <sten83270@hotmail.com> a écrit dans le message de
news: %23uJFBGz7JHA.3804@TK2MSFTNGP02.phx.gbl...
Oblige de faire un nouveau poste car sa passe pas quand je répond
désole,ci-joint le fichier.
Merci a tous "Jacky" a écrit dans le message de news:
Bonjour, Je propose ceci avec une liste de validation en colonne C '-------------- Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, [zone]) Is Nothing And Target.Count = 1 Then For Each c In Range("b1:b440") If Val(Left(Target, 4)) = c.Value Then c.Select Exit Sub End If Next End If End Sub '--------------- Le fichier modifié ici http://www.cijoint.fr/cjlink.php?file=cj200906/cij72Bdub3.xls
Ps Les noms composés comme nom de feuilles sont sujet à complications -- Salutations JJ
"STERNENBERG Jean Yves" a écrit dans le message de news: %
Oblige de faire un nouveau poste car sa passe pas quand je répond désole,ci-joint le fichier.