XL 2010 Besoin d'un peu d'aide

[Poulet13]

Bonjour à tous,

j'aurais besoin de créer un fichier excel sous 2010.

j'aurais besoin de lister un certain nombre de nom/pseudo et que cette liste me soit retranscrite d'une certaine manière.

Colonne A :
Florian
antoine
jean
etc..

et que le résultat de cette liste ressorte de la manière suivante :

florian;antoine;jean;etc... avec le ";" entre chaque nom.

Pensez vous que cela est possible et cela jusqu'à 252 personnes ?

J'ai un fichier protéger qui me permet de faire cela mais je ne peux pas aller au dela de 54 nom. (voir pièce jointe)

Cordialement.

 

[Robert]

Bonjour le forum,

Un fichier protégé sans le mot de passe qui va bien ?!... À adapter (testé sur 273 lignes) :

Sub Macro1()
Dim O As Worksheet
Dim PL As Range
Dim TV As Variant
Dim LIST As String
Dim TMP As Variant

Set O = Worksheets("Ma Compet 1")'à adapter
O.Unprotect "toto" 'mot de passe à adapter
Set PL = O.Range("D5").CurrentRegion
Set PL = PL.Offset(1, 0).Resize(PL.Rows.Count - 1, 1)
TV = PL
TMP = TV
LIST = Join(Application.Transpose(TMP), ";")
MsgBox LIST
O.Protect "toto" 'mot de passe à adapter
End Sub

 

[Poulet13]

Bonjour @Robert

Merci pour ta réponse, malheureusement je n'ai pas le mot de passe et je ne comprends pas grand chose au codage.

Pourrais tu m'indiquer la marche à suivre sur un fichier vierge ?

Merci beaucoup.