Utiliser contenu cellule comme nom onglet dans formule

[Tigrette121]

Bonjour,

En AL5, j'ai un concatener de deux cellules. Ça me donne le nom de l'onglet. Je voudrais dans la ligne suivante de mon userform

.Cprovince = Range("Feuil2!e" & Lig).Value

Remplacer le Feuil2 par le nom de l'onglet qui se trouve dans la cellule AL5 de la feuil2.

J'espère être claire, se bout de code fait parite d'un assez long code.

Merci à l'avance, vous êtes toujours là pour aider les débutants !!!

 

[skoobi]

Re : Utiliser contenu cellule comme nom onglet dans formule

Bonsoir,
quelque chose comme ça?

Activesheet.Name = Range("AL5").Value

 

[Cousinhub]

Re : Utiliser contenu cellule comme nom onglet dans formule

Re-, Tigrette et Skoobi

peut-être ceci :

x = Sheets(Range("AL5").Value).Range("E" & Lig).Value

 

[Tigrette121]

Re : Utiliser contenu cellule comme nom onglet dans formule

Re-bonjour,

J'ai fait une erreur dans ma demande, le nom de mon onglet n'est pas inscrit dans AL5 mais bien dans AL avec le # de ligne (Lig). Voici un bout de code qui, j'espère, vous aidera.


Private Sub UserForm_Initialize()


With Me

.Niveau = Range("Feuil2!ag" & Lig).Value
.Catégorie = Range("Feuil2!ai" & Lig).Value
.Nom = Range("Feuil2!B" & Lig).Value
.Cprenom = Range("Feuil2!a" & Lig).Value
.Sexe = Range("Feuil3!d" & Lig).Value
.Cadresse = Range("Feuil2!c" & Lig).Value
.Cville = Range("Feuil2!d" & Lig).Value
.Cprovince = Range("Feuil2!e" & Lig).Value
.Ccodepostal = Range("Feuil2!f" & Lig).Value
.Telephone = Range("Feuil2!g" & Lig).Text
.Naiss = Range("Feuil2!ah" & Lig).Value
.Assmaladie = Range("Feuil2!v" & Lig).Value
.Expiration = Range("Feuil2!w" & Lig).Value

Je voudrais ajouter ici ::::::::::::
.Adressep = Range("Feuil2!w" & Lig).Value
::::::::::::::::::: mais le nom de l'onglet à mettre à la place de
"Feuil2!W" est dans la cellule AL & Lig de la Feuil2. Le nom de cet onglet est un Nom, Prénom.

Merci encore....



End With
end sub

 

[Cousinhub]

Re : Utiliser contenu cellule comme nom onglet dans formule

Bonsoir,
à tout hasard...😕

.Adressep = Sheets(Range("AL" & Lig).Value).Range("W" & Lig).Value

 

[Tigrette121]

Re : Utiliser contenu cellule comme nom onglet dans formule

Le hasard semble bien faire les choses... c'est exactement ce que j'avais besoin. Maintenant, il me reste juste à l'adapter à toutes mes textbox.

Un gros gros merci, comme d'habitude des gens vites et efficaces qui répondent à nos questions.