Imlpémenter Zone Nom

[Arcangeli]

Bonjour le forum,
J'aimerais me faciliter la tache de saisie de plusieurs zones nom.J'ai mis un fichier joint pour explications détaillées.
Déjà merci à celui qui comprendra ma douleur

 

[Robert]

Re : Imlpémenter Zone Nom

Bonjour Arcangeli, bonjour le forum,

Essaie cette macro :

Sub Macro1()
For x = 1 To 120
    Cells(x, 7).Name = "SA" & x
Next x
End Sub

 

[Compte Supprimé 979]

Re : Imlpémenter Zone Nom

Bonsoir à tous 😉
Mister Robert

Sinon pourquoi faire simple ...

Sub Macro1()
  Dim Lig As Long
  For Lig = 1 To 120
    ActiveWorkbook.Names.Add Name:="SA" & Format(Lig, "000"), RefersToR1C1:="=Feuil1!R" & Lig & "C7"
  Next Lig
End Sub

Quand on peut faire compliquer 😀😛

A+

 

[Arcangeli]

Re : Imlpémenter Zone Nom

Merci Robert et Bruno, ça m'enlève une belle épine du pied.
Vous êtes toujours aussi rapides et efficaces.
A plus

 

[Robert]

Re : Imlpémenter Zone Nom

Bonsoir le fil, bonsoir le forum,

Ha bon tu trouves ??? Moi j'avais trouvé le Bruno un peu lent sur ce coup mais bon,... faut dire que c'est l'heure de l'apéro...

Bonne fin de semaine !