Bonjour a tous,
j'ai écris ce bout de code, et en fait le problème est que j'aimerai mettre une valeur dans les cellules de la colonne A. Seulement j'aimerai déterminer quelle est la dernière cellule de la colonne, et c'est la que j'ai un souci. pourriez vous m'aider
Sub Macro1()
Sheets("tcd_year").Select
nom4 = ActiveWorkbook.Name
'supprimer les 10 caracteres a gauche du nom
resultat = Left(nom4, Len(nom4) - 10)
'appliquer le nom dans chaque cellule de la colonne A en fonction de la derniere position qui se trouve aleatoirement dans la colonne N
For Each xcell In Sheets("TCD_Year").Range(Range("A3"), Range("n65536").End(xlUp))
xcell.Offset(0, Sheets("TCD_Year").Range("A3"), Range("A65536").End(xlUp).Value -1).Range("a1").Value= resultat
Next xcell
End Sub
j'ai écris ce bout de code, et en fait le problème est que j'aimerai mettre une valeur dans les cellules de la colonne A. Seulement j'aimerai déterminer quelle est la dernière cellule de la colonne, et c'est la que j'ai un souci. pourriez vous m'aider
Sub Macro1()
Sheets("tcd_year").Select
nom4 = ActiveWorkbook.Name
'supprimer les 10 caracteres a gauche du nom
resultat = Left(nom4, Len(nom4) - 10)
'appliquer le nom dans chaque cellule de la colonne A en fonction de la derniere position qui se trouve aleatoirement dans la colonne N
For Each xcell In Sheets("TCD_Year").Range(Range("A3"), Range("n65536").End(xlUp))
xcell.Offset(0, Sheets("TCD_Year").Range("A3"), Range("A65536").End(xlUp).Value -1).Range("a1").Value= resultat
Next xcell
End Sub