Nommer une cellule en VBA

Bonsoir à tous :)

Cela fait deux bonnes heures que je cale sur la manière de nommer une cellule en VBA en cliquant sur le bouton d'un formulaire.
L'un de vous aurait une idée ??

Pour le moment j'en suis à ce test et je ne comprend pas pourquoi ça ne fonctionne pas.

Déjà, ça ne plante pas \o/

Code:

---

ActiveWorkbook.Names.Add Name:=TextBox1, RefersToR1C1:=Range("'MaFeuille'!B3:D100")(MaLigne, MaColonne + 1)

---

Si je fais ça :

Code:

---

1 2	Range("'Infos, DB et aides'!B3:D100")(MaLigne, MaColonne + 1).Value = TextBox4 Range("'Infos, DB et aides'!B3:D100")(MaLigne, MaColonne + 1).Name = TextBox5

---

La cellule prend bien la valeur mais pas le nom.

Bonsoir,

Tu devrais essayer ceci :

Code:

---

ActiveWorkbook.Names.Add Name:=TextBox1, RefersToR1C1:="='" & MaFeuille & "'!R" & MaLigne & "C" & MaColonne & ""

---

Citation:

---

Envoyé par anasecu

Bonsoir,

Tu devrais essayer ceci :

Code:

---

ActiveWorkbook.Names.Add Name:=TextBox1, RefersToR1C1:="='" & MaFeuille & "'!R" & MaLigne & "C" & MaColonne & ""

---

---

Merci beaucoup! :)

J'ai l'impression, en effet, que c'est quelque chose dans ce genre là que je dois faire mais je ne vois pas où est l'erreur
Voici le code complet :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub CommandButton1_Click() MaFeuille = Sheets("Infos, DB et aides") PrixTableau = Range("'Infos, DB et aides'!B3:C100") MaLigne = Range("'Infos, DB et aides'!B3:C100").Find(ListBox1).Row - 2 MaColonne = Range("'Infos, DB et aides'!B3:C100").Find(ListBox1).Column   Range("'Infos, DB et aides'!B3:D100")(MaLigne, MaColonne).Value = TextBox3 Range("'Infos, DB et aides'!B3:D100")(MaLigne, MaColonne + 1).Value = TextBox4   ActiveWorkbook.Names.Add Name:=TextBox5, RefersToR1C1:="='" & MaFeuille & "'!R" & MaLigne & "C" & MaColonne + 1 & ""   End Sub

---

Bonjour,

rien à voir avec ton pb mais tu vas avoir des soucis avec cette syntaxe :

Code:

---

Range("'Infos, DB et aides'!B3:C100").Find(ListBox1)

---

.find utilise les derniers paramètres utilisés par l'utilisateur (désolé, je suis en panne de synonymes à cette heure).
C'est à dire s'il a utilisé 'Contient' tu risques de ramener une ligne erronée.
Regarde l'aide de range.find, il faut toujours fixer les paramètres lookat et lookin
eric

Super!! Merci!! :) Je check ça demain matin :)

Merci beaucoup :)