Lier un nom à des lignes d'un tableau

Bonsoir,

Dans un tableau de 6000 lignes je souhaite attribuer un nom pour un groupe de 180 lignes

Par exemple de la ligne 1 à 180 je veux mettre dans la col A Toto et répéter ce nom sur les 180 lignes

de la ligne 181 à 360 Tata

... jusqu' à la dernière ligne de mon tableau

Est ce que quelqu'un peut me dire comment faire

Par avance merci de votre aide

Thierry

Bonjour

Un fichier est TOUJOURS le bienvenu

sub mamacro() 
Dim i As Long, tablo, nom As String
 tablo = Range("Tableau1")'remplacer tableau1 par le nom de ton tableau
 For i = 1 To UBound(tablo)
   Select Case i / 180
     Case Is < 1
       nom = "Toto"
     Case Is < 2
       nom = "Tata"
     Case Is < 3
       nom = "Titi"
     Case Is < 4
       nom = "Tutu"
   End Select
   Cells(i, 1).Value = nom
 Next
end sub

Ajouter autant de "case is" que nécessaire avec les noms correspondant

A+ François

Bonjour Thierry P., fanfan38, le forum,

Un essai...de ce que j'ai compris...

Cordialement,