Lien entre cellule, titre onglet et rappel cellule dans chaque onglets

[flam72]

Bonsoir,

Je dispose d'un fichier, bien aidé par les spécialistes du site, qui permet de créer des onglets et de les nommer à partir d'une colonne.
Tout se trouve dans l'onglet "notation et suivi".

Je voudrais savoir s'il est possible de remplir, dans chaque onglet créé les cellules :
Raison sociale (qui dans l'onglet "notation et suivi")
Produit (quoi dans l'onglet "notation et suivi")
Contact
Ville
Tél

Les cellules à remplir sont celles de l'onglet "ModeleFournisseur", tableau Fournisseur, qui sert de base pour la création de chaque onglet.

Il doit y avoir une correspondance entre le titre de l'onglet et le remplissage dans chaque onglet.

Est-ce possible ?

Merci,

OZ

 

[DoubleZero]

Bonjour, flam72, le Forum,

Il suffit de remplacer ceci :

        If Not wsexist Then
          Worksheets("ModeleFournisseur").Copy After:=Worksheets(Worksheets.Count)
          Worksheets(Worksheets.Count).Name = r.Value
        End If

par cela :

                If Not wsexist Then
                    Worksheets("ModeleFournisseur").Copy After:=Worksheets(Worksheets.Count)
                    With Worksheets(Worksheets.Count)
                        .Name = r
                        .Range("e3") = r
                        .Range("e4") = r.Offset(, 1)
                        .Range("e5") = r.Offset(, 2)
                        .Range("e6") = r.Offset(, 3)
                        .Range("e7") = r.Offset(, 4)
                    End With
                End If

A bientôt

 

[flam72]

Je suis impressionné

Un grand merci à toi et bon weekend