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

flam72 · 9 Décembre 2016

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 · 10 Décembre 2016

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

flam72 · 10 Décembre 2016

Je suis impressionné

Un grand merci à toi et bon weekend

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

flam72

XLDnaute Occasionnel

Pièces jointes

DoubleZero

XLDnaute Barbatruc

flam72

XLDnaute Occasionnel

Discussions similaires