Attribuer des noms via VBA

Bonjour,

J'ai actuellement un code VBA qui me permet de calculer mes dates d'échéances via mes inputbox. Celle-ci utilise pour insérer les valeurs la fonction Range("Echeance1").value=dateadd(.....)

Cela fonctionne, cependant, les utilisateurs de ce modèle ne maitrisant pas totalement excel, existerait il un code VBA qui me permettrait de renommé chaque cellule de ma colonne automatiquement du style


x=inputbox("nombre de locataires")
For i=1 to x
"La fonction qui attribuerai le nom"= echeance&i


Cordialement,

Vincent

L'enregistreur automatique de macro t'aurais donné cette réponse en quelques secondes :

Code:

---

Workbook("MonClasseur").Names.Add ("MonNom", "=Feuil1!A1")

---

Tu peux aussi l'utiliser avec Worksheet si tu veux que la portée du nom soit limitée à la feuille.

Citation:

---

Envoyé par Menhir

L'enregistreur automatique de macro t'aurais donné cette réponse en quelques secondes :

Code:

---

Workbook("MonClasseur").Names.Add ("MonNom", "=Feuil1!A1")

---

Tu peux aussi l'utiliser avec Worksheet si tu veux que la portée du nom soit limitée à la feuille.

---

J'avais vu avec l'enregistreur de macro cette formule, cependant je n'arrive pas a l'automatiser en boucle dans chaque ajout.

Code:

---

1 2 3

For i= 1 to x ( x étant le nombre de locataires) workbook("CF").Names.add("debut"&i,"=CF!D"&i)

---

En vous remerciant

C'est normal : le guillemet doit faire partie de ta formule. Quand tu écris ceci :

Code:

---

workbook("CF").Names.add("debut"&i,"=CF!D"&i)

---

Pour la valeur 1 par exemple, ça donne ça :

Code:

---

workbook("CF").Names.add("debut"&i,"=CF!D1)

---

=> Tu vois qu'il manque le guillemet de fin :)

il faut donc rajouter un guillemet à la fin. Pour cela, plusieurs solutions. Soit :

Code:

---

workbook("CF").Names.add "debut"&i,"=CF!D" & i & """"

---

Soit tu utilises le code ascii :

Code:

---

workbook("CF").Names.add("debut"&i,"=CF!D" & i & chr(34))

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub nom()   For i = 1 To 30     Workbook("CF").Names.Add "Locataires" & i, "=feuil1!A" & i & """"   Next i   End Sub

---

Cela ne fonctionne pas :/ , faut il déclarer le workbook ?

Bonjour,

non c'est normal car il suffit pourtant de bien lire le message d'erreur et son aide ‼

C'est comme en Français, il faut juste respecter l'orthographe ! Workbooks("CF"). …

__________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

Excusez moi, j'ai coller l'ancien code, j'avais effectivement corrigé le s, le truc c'est que si je code sans la boucle, cela marchait. mais en insérant la boucle il existe encore une erreur d'attribution d'objet.

Salut,

Code:

---

1 2 3 4 5 6 7 8

Option Explicit   Sub nom() Dim i As Long For i = 1 To 30 ActiveWorkbook.Names.Add Name:="Locataires_" & Format(i, "000"), RefersToR1C1:="=Feuil1!R" & i & "C1" Next i End Sub

---

Citation:

---

Envoyé par vicente-B

il existe encore une erreur d'attribution d'objet.

---

Les parenthèses ?
Et c'est quoi le & """" que tu mets en fin de formule ?