Affecter des noms à des cellules par catégories

VBA
1

Bonjour tout le monde
J’ai besoin de votre aide SVP, je veux affecter des noms a des cellules de la façon suivante:
j’ai dans la première colonne des articles leur nombre varie ce n’est pas toujours fixe, dans la deuxième colonne des numéro associés à ces articles qui va de 1 à 36 après ça se répète automatiquement pour chaque catégorie donc mon but est d’affecter à chaque catégorie un nom qui va être données dans la cellule L2.
Donc à chaque fois que je tape un nom et je clique sur le bouton le nom va être affecter à la première catégorie ensuite je retape un nom il va être affecter à la deuxième ainsi de suite jusqu’à la fin .
voila le code que j’ai fait mais il affecte que la première catégorie.

texte préformaté indenté par 4 espaces
 Sub Button2_Click()
  Dim i As Integer
  Dim nom_du_chariot_1 As Variant
  ligne = Sheets("affe").UsedRange.Rows.Count
  nom_du_chariot_1 = Range("l2")

   For i = 2 To i + 37
   Range("c" & i) = nom_du_chariot_1

 Next
End Sub

voici le fichier et merci d’avance
Test Oumaima.xlsm (22,0 Ko)

2

Ce sujet a été automatiquement fermé après 30 jours. Aucune réponse n’est permise dorénavant.