Nommer des cellules d'une boucle

Bonjour à tous,

Je me permets de vous demander de l'aide, étant novice en VBA et ayant déjà cherché plusieurs jours une solution sans jamais la trouver..

J'ai une liste de contacts disposée dans la colonne "A" d'Excel. Le "problème", c'est que je ne connais pas leur nombre, ni leur nom au moment de créer la macro car ces données varient d'un projet à un autre.

Ce que je voudrais alors, pour pouvoir manipuler plus facilement tout ça, ce serait de nommer les cellules en "Contact 1", "Contact 2" etc à l'aide d'une boucle. Sauf que je ne sais pas comment utiliser Range.Name avec un nom variable.

Avec mon bout de code, ça sera peut-être plus compréhensible :

[...]

For j = 1 To x

y = j * 5

Worksheets("Feuille 1").Range("A" & y).Name = "Contact " & j

Next j

[...]

Pour précisions :

• x est le nombre variable de contacts
• y = j * 5 car je crée une trame de document, entre chaque contact, il y a 4 lignes vides pour pouvoir écrire des remarques.
• Le message d'erreur écrit est le suivant : erreur d'exécution '1004'

En espérant avoir été claire et pouvoir compter sur vos lumières =)

Merci d'avance !

Bonjour,

Teste ceci :

Sub Test()

    Dim J As Integer
    Dim Y As Integer

    For J = 1 To 10

        Y = J * 5
        Worksheets("Feuil1").Names.Add "Contact" & J, Worksheets("Feuil1").Range("A" & Y)

    Next J

End Sub

PS. utilise les balises Code pour encadrer ton code !

Hervé.

Bonjour et merci d'avoir pris la peine de me répondre.

Malheureusement, j'ai toujours le même message d'erreur.

Je retire ce que j'ai dit, cela fonctionne très bien. J'avais un conflit dans le nom des variables.

Merci beaucoup !