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

flam72

XLDnaute Occasionnel
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
 

Pièces jointes

  • ENR - 004 - Evaluation des fournisseurs - B - Copie.xls
    99.5 KB · Affichages: 45

DoubleZero

XLDnaute Barbatruc
Bonjour, flam72, le Forum,

Il suffit de remplacer ceci :
VB:
        If Not wsexist Then
          Worksheets("ModeleFournisseur").Copy After:=Worksheets(Worksheets.Count)
          Worksheets(Worksheets.Count).Name = r.Value
        End If
par cela :
VB:
                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 :)
 

Discussions similaires

Statistiques des forums

Discussions
312 843
Messages
2 092 754
Membres
105 522
dernier inscrit
Alex.benand