Attribution d'un nom à une cellule à partir d'un userform

Bonjour et bonne année à tous.

Je tiens à souligner que je suis novice dans la programmation en VBA. Voici mon problème :
J'ai créé un userform permettant de remplir un tableau dans une autre feuille. Cependant je souhaiterais attribuer automatiquement un nom à certaines cellules à partir de TextBox
ceci est mon userform:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Private Sub CommandButton1_valider_Click() If IsNumeric(TextBox1.Value) Or IsNumeric(TextBox2.Value) Or IsNumeric(TextBox5.Value) = False Then MsgBox "Valeur incorrecte" Else Dim lig As Long lig = Sheets("Clients").Range("A1").End(xlDown).Row + 1 Sheets("Clients").Range("A" & lig) = TextBox1.Value + " " + TextBox2.Value Sheets("commande").Range("A3") = TextBox1.Value + " " + TextBox2.Value lig = Sheets("Clients").Range("B1").End(xlDown).Row + 1 Sheets("Clients").Range("B" & lig) = TextBox3.Value lig = Sheets("Clients").Range("C1").End(xlDown).Row + 1 Sheets("Clients").Range("C" & lig) = TextBox4.Value lig = Sheets("Clients").Range("D1").End(xlDown).Row + 1 Sheets("Clients").Range("D" & lig) = TextBox5.Value Sheets("Clients").Activate Range("D4").End(xlDown).Select ActiveWorkbook.Names.Add Name:=TextBox1.Value + " " + TextBox2.Value Unload NC Sheets("commande").Activate End If End Sub

---

La partie qui bloque est celle ci :

Code:

---

1 2 3 4 5

Sheets("Clients").Activate Range("D4").End(xlDown).Select ActiveWorkbook.Names.Add Name:=TextBox1.Value + " " + TextBox2.Value Unload NC

---

il en ressort l'erreur : "Erreur définie par l'application ou par l'objet"

Et donc je m'en remet à vous pour tenter de résoudre ce problème (si possible avec des explications).

Merci d'avance.

Bonsoir.

Code:

---

Names.Add Name:="Mononm", RefersTo:=Macellule.Address

---

Cordialement

Après post, je vois une erreur.: l'adresse doit comporter le nom de la feuille.
Tu pourras sûrement composer une chaîne avec ton style de concaténation!:pc: comme tu as su bien le faire pour ton nom.
Remarque: Les noms ne doivent pas contenir d'espace.

Bonjour,
Une petite précision tout de même, si la variable maCellule est de type Range la propriété Address est de trop et le nom de la feuille est implicite.

Code:

---

1 2 3

Dim MaCellule As Range Set MaCellule = ThisWorkbook.Worksheets("Feuil2").Range("A5") Names.Add Name:="MyName", RefersTo:=MaCellule

---

Le nom MyName fait référence à la cellule A5 de la feuille nommée Feuil2

Merci beaucoup à vous ! ça marche parfaitement bien ! :D
Bonne journée à vous.