Discussion :

[alexis1037]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[NVCfrm]

Bonsoir.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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! comme tu as su bien le faire pour ton nom.
Remarque: Les noms ne doivent pas contenir d'espace.

[Philippe Tulliez]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[alexis1037]

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