Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…