nommer une plage en fonction de 2 critères

[supercrapaud]

Bonjour à tous !

Je me permets de venir vers vous car après avoir un peu regardé dans le forum, je n'ai pas trouvé ce que je cherchais. Voilà mon soucis. J'ai créé un formulaire pour ajouter un onglet et copier une feuille type. Je cherche à nommer une plage en fonction de 2 critères :
- le nom de la plage est fonction de ce qui a été marqué dans une textbox
- la ligne de la plage (horizontale) est fonction de la ligne de la plage total de ma feuille modèle qui est susceptible de changer

J'arrive à nommer une cellule en fonction de ces 2 critères mais pas une plage entière type b:d. Voilà une partie tronquée du code que j'ai rédigé

nom = Me.TextBox1.Value
ligne = Sheets("Feuille modèle").Range("totauxfeuillemodèle").Row
Sheets(nom).Range("b" & ligne).Name = "totaux" & nom

Je vous joins un petit fichier histoire d'illustrer mon exemple. Je vous remercie par avance.

 

[pierrejean]

Re : nommer une plage en fonction de 2 critères

bonjour supercrapaud

A tester:

Private Sub CommandButton1_Click()
Sheets("Feuille modèle").Select
Sheets.Add
nom = Me.TextBox1.Value
ActiveSheet.Name = nom
Sheets("Feuille modèle").Select
Cells.Select
Selection.Copy
Sheets(nom).Select
Cells.Select
ActiveSheet.Paste
[COLOR=blue]ad = Sheets("Feuille modèle").Range("totauxfeuillemodèle").Address
Sheets(nom).Range(ad).Name = "totaux" & nom
[/COLOR]'ligne = Sheets("Feuille modèle").Range("totauxfeuillemodèle").Row
'Sheets(nom).Range("b" & ligne).Name = "totaux" & nom 'Je souhaiterais pouvoir nommer une plade de plusieurs cellules type Sheets(nom).Range("b" & ligne : "d" & ligne).Name = "totaux" & nom mais je n'ay parviens pas
'Sheets(nom).Range("a1").Select
End Sub

 

[supercrapaud]

Re : nommer une plage en fonction de 2 critères

Bonjour Pierrejean,

J'ai bien essayé et cela marche comme je le souhaite. Je te remercie pour cette réponse aussi rapide.