Ok ca marche, mais je n'arrive pas sur deux cellules, ou alors mettre en automatique le premier mot. Je m'explique, j'aimerais que mon onglet soit du style "Pointage 42" Pointage etant une constante et 42 etant lle resultat de la cellule A1 l'autre onglet "Planning 42".
Encore merci de votre travail
Ok ca marche, mais je n'arrive pas sur deux cellules, ou alors mettre en
automatique le premier mot. Je m'explique, j'aimerais que mon onglet soit du
style "Pointage 42" Pointage etant une constante et 42 etant lle resultat de
la cellule A1 l'autre onglet "Planning 42".
Ok ca marche, mais je n'arrive pas sur deux cellules, ou alors mettre en automatique le premier mot. Je m'explique, j'aimerais que mon onglet soit du style "Pointage 42" Pointage etant une constante et 42 etant lle resultat de la cellule A1 l'autre onglet "Planning 42".
Encore merci de votre travail
Jacky
Change par: '---------- Private Sub Worksheet_Change(ByVal Target As Range) If [a1] <> x Then ActiveSheet.Name = "Pointage " & [a1] x = ActiveSheet.Name End If End Sub '-------------- Ps: les espaces dans les noms de feuille sont sujet à complications pour la suite des codes.(A éviter) -- Salutations JJ
"Baceri" a écrit dans le message de news: 451e2eb3$0$5724$
Ok ca marche, mais je n'arrive pas sur deux cellules, ou alors mettre en automatique le premier mot. Je m'explique, j'aimerais que mon onglet soit du style "Pointage 42" Pointage etant une constante et 42 etant lle resultat de la cellule A1 l'autre onglet "Planning 42".
Encore merci de votre travail
Change par:
'----------
Private Sub Worksheet_Change(ByVal Target As Range)
If [a1] <> x Then
ActiveSheet.Name = "Pointage " & [a1]
x = ActiveSheet.Name
End If
End Sub
'--------------
Ps: les espaces dans les noms de feuille sont sujet à complications pour la
suite des codes.(A éviter)
--
Salutations
JJ
"Baceri" <baceri@free.fr> a écrit dans le message de news:
451e2eb3$0$5724$626a54ce@news.free.fr...
Ok ca marche, mais je n'arrive pas sur deux cellules, ou alors mettre en
automatique le premier mot. Je m'explique, j'aimerais que mon onglet soit
du style "Pointage 42" Pointage etant une constante et 42 etant lle
resultat de la cellule A1 l'autre onglet "Planning 42".
Change par: '---------- Private Sub Worksheet_Change(ByVal Target As Range) If [a1] <> x Then ActiveSheet.Name = "Pointage " & [a1] x = ActiveSheet.Name End If End Sub '-------------- Ps: les espaces dans les noms de feuille sont sujet à complications pour la suite des codes.(A éviter) -- Salutations JJ
"Baceri" a écrit dans le message de news: 451e2eb3$0$5724$
Ok ca marche, mais je n'arrive pas sur deux cellules, ou alors mettre en automatique le premier mot. Je m'explique, j'aimerais que mon onglet soit du style "Pointage 42" Pointage etant une constante et 42 etant lle resultat de la cellule A1 l'autre onglet "Planning 42".
Encore merci de votre travail
Baceri
Merci de ta patience, exactement ce que je voulais obtenir.
Merci de ta patience, exactement ce que je voulais obtenir.
