Mise à jour automatique d'un onglet

P19 -  
Mrfrize Messages postés 197 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Je recherche un code VBA me permettant la mise à jour automatique d'un onglet de classeur, à partir du moment ou l'on met à jour une cellule située dans le même classeur mais sur une autre feuille.

Je précise que j'ai un niveau débutant dans VBA.

D'avance merci.

3 réponses

  1. Mrfrize Messages postés 197 Date d'inscription   Statut Membre Dernière intervention   6
     
    Bonjour,

    Pourquoi veux-tu un code VBA?

    Feuille 1 cellule A1: ta valeur
    Feulle 2 cellule B2 : =A1

    cela ne te suffit pas?

    Ou tu as besoin que lorsque tu changes une valeur dans l'une ou l'autre cellule cela mette a jour l'autre cellue?

    Feuille 1 cellule A1: ta valeur
    Feulle 2 cellule B2 : =A1
    et
    Feuille 1 cellule A1: =B2
    Feulle 2 cellule B2 : ta valeur
    0
  2. P19
     
    P19

    Bonjour,
    Milles excuses si je ne suis pas assez précis.
    En fait, je souhaite avoir un nom d'onglet d'une feuille qui soit mis à jour automatiquement en fonction d'une saisie dans une cellule sur une autre feuille de mon classeur.
    En d'autre terme, j'ai un classeur qui s'appelle "TOTO" et qui à deux feuilles "A" & "B".
    Ce que je souhaiterais, c'est que lorsque dans la cellule A1 de mon onglet "B", je saisisse une date par exemple "1/1/2012", alors ma feuille dont le nom est "A" se transforme en "1/1/2012".
    Voila, j'espère avoir été plus clair cette fois.
    D'avance merci pour votre réponse.
    Cordiales salutations.
    P19
    0
  3. Mrfrize Messages postés 197 Date d'inscription   Statut Membre Dernière intervention   6
     
    Celle-ci devrait marcher

    Par contre les "/ "sont des carateres interdits pour les nom d'onglet donc je les remplace par des "."

    Sub Nom_onglet()
    Dim Nomonglet As String
    'Recherche la valeur de la cellule A1 de la feuille 2
    Nomonglet = Sheet2.Range("A1").Value
    'remplace les / par .
    Nomonglet = Replace(Nomonglet, "/", ".")
    'renome la feuille 1
    Sheet1.Name = Nomonglet

    End Sub
    0