vba copier la valeur d'une cellule dans un onglet

Le
j-pascal
Bonjour,

Pour les feuilles 2 à 13 (ie), je souhaiterais que la valeur contenue
dans la cellule [a1] de chaque feuille soit récopiée dans l'onglet
respectif de chaque feuille.

Merci d'avance pour votra aide,

JP
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #18294821
Bonjour,

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
Range)
If Sh.Index >= 2 And Sh.Index <= 13 Then
If Target.Address = "$A$1" Then
On Error Resume Next
Sh.Name = Sh.[A1]
End If
End If
End Sub

JB
http://boisgontierjacques.free.fr/


On 4 jan, 12:30, j-pascal
Bonjour,

Pour les feuilles 2 à 13 (ie), je souhaiterais que la valeur contenue
dans la cellule [a1] de chaque feuille soit récopiée dans l'onglet
respectif de chaque feuille.

Merci d'avance pour votra aide,

JP


j-pascal
Le #18295661
Bonjour Jacques,

Merci

Ca fonctionne bien, mais je dois récupérer une valeur au format date.
Par exemple, si en A1, j'ai "01/01/2009", je souhaite récupérer dans
l'onglet qqch comme "Jan 09".

J'ai essayé divers modif comme celle-ci :
Sh.Name = Format(DateSerial(Sh.[a1], "mmm yy"))
Mais je n'arrive pas au bon résultat ...

@+ ?

JP
Bonjour,

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
Range)
If Sh.Index >= 2 And Sh.Index <= 13 Then
If Target.Address = "$A$1" Then
On Error Resume Next
Sh.Name = Sh.[A1]
End If
End If
End Sub

JB
http://boisgontierjacques.free.fr/


On 4 jan, 12:30, j-pascal
Bonjour,

Pour les feuilles 2 à 13 (ie), je souhaiterais que la valeur contenue
dans la cellule [a1] de chaque feuille soit récopiée dans l'onglet
respectif de chaque feuille.

Merci d'avance pour votra aide,

JP




Jacky
Le #18296451
Bonne année 2009
'--------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
On Error Resume Next
ActiveSheet.Name = Format([A1], "mmm-yy")
End If
End Sub
'---------------
--
Salutations
JJ


"j-pascal"
Bonjour,

Pour les feuilles 2 à 13 (ie), je souhaiterais que la valeur contenue dans
la cellule [a1] de chaque feuille soit récopiée dans l'onglet respectif de
chaque feuille.

Merci d'avance pour votra aide,

JP




JB
Le #18297081
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
Range)
If Sh.Index >= 2 And Sh.Index <= 13 Then
If Target.Address = "$A$1" Then
On Error Resume Next
Sh.Name = Format(Sh.[A1], "mmm yy")
End If
End If
End Sub

http://cjoint.com/?berLXEW0dV

JB

On 4 jan, 14:39, j-pascal
Bonjour Jacques,

Merci

Ca fonctionne bien, mais je dois récupérer une valeur au format date.
Par exemple, si en A1, j'ai "01/01/2009", je souhaite récupérer dans
l'onglet qqch comme "Jan 09".

J'ai essayé divers modif comme celle-ci :
Sh.Name = Format(DateSerial(Sh.[a1], "mmm yy"))
Mais je n'arrive pas au bon résultat ...

@+ ?

JP



> Bonjour,

> Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
> Range)
>   If Sh.Index >= 2 And Sh.Index <= 13 Then
>     If Target.Address = "$A$1" Then
>       On Error Resume Next
>       Sh.Name = Sh.[A1]
>     End If
>   End If
> End Sub

> JB
>http://boisgontierjacques.free.fr/

> On 4 jan, 12:30, j-pascal >> Bonjour,

>> Pour les feuilles 2 à 13 (ie), je souhaiterais que la valeur contenu e
>> dans la cellule [a1] de chaque feuille soit récopiée dans l'onglet
>> respectif de chaque feuille.

>> Merci d'avance pour votra aide,

>> JP- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -


j-pascal
Le #18297601
Evidemment, j'aurais dû y penser !

Merci Jacques

JP

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
Range)
If Sh.Index >= 2 And Sh.Index <= 13 Then
If Target.Address = "$A$1" Then
On Error Resume Next
Sh.Name = Format(Sh.[A1], "mmm yy")
End If
End If
End Sub

http://cjoint.com/?berLXEW0dV

JB

On 4 jan, 14:39, j-pascal
Bonjour Jacques,

Merci

Ca fonctionne bien, mais je dois récupérer une valeur au format date.
Par exemple, si en A1, j'ai "01/01/2009", je souhaite récupérer dans
l'onglet qqch comme "Jan 09".

J'ai essayé divers modif comme celle-ci :
Sh.Name = Format(DateSerial(Sh.[a1], "mmm yy"))
Mais je n'arrive pas au bon résultat ...

@+ ?

JP



Bonjour,



Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
Range)
  If Sh.Index >= 2 And Sh.Index <= 13 Then
    If Target.Address = "$A$1" Then
      On Error Resume Next
      Sh.Name = Sh.[A1]
    End If
  End If
End Sub



JB
http://boisgontierjacques.free.fr/



On 4 jan, 12:30, j-pascal
Bonjour,





Pour les feuilles 2 à 13 (ie), je souhaiterais que la valeur contenue
dans la cellule [a1] de chaque feuille soit récopiée dans l'onglet
respectif de chaque feuille.





Merci d'avance pour votra aide,





JP- Masquer le texte des messages précédents -





- Afficher le texte des messages précédents -




j-pascal
Le #18297591
Ok, je note cette autre solution.

Merci

JP

Bonne année 2009
'--------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
On Error Resume Next
ActiveSheet.Name = Format([A1], "mmm-yy")
End If
End Sub
'---------------
--
Salutations
JJ


"j-pascal"
Bonjour,

Pour les feuilles 2 à 13 (ie), je souhaiterais que la valeur contenue dans
la cellule [a1] de chaque feuille soit récopiée dans l'onglet respectif de
chaque feuille.

Merci d'avance pour votra aide,

JP






Publicité
Poster une réponse
Anonyme