Discussion :

[vicente-B]

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

[Menhir]

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

Code :

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

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.

[vicente-B]

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

Code :

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

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 :

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

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

[illight]

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

Code :

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

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

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

Code :

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

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 :

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

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

Soit tu utilises le code ascii :

Code :

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

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

[vicente-B]

Code :

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

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 ?

[Marc-L]

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 pour chaque message ayant aidé puis sur pour clore cette discussion …

[vicente-B]

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.

[kiki29]

Salut,

Code :

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

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

[Menhir]

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

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