[EXCEL] Infos colonne en ligne avec ;

Bonjour,

Dim i,j,a,valeur as string

i=1 ‘ ta première ligne ou se trouve ta valeur
j=1 ‘ ta première colonne ou se trouve ta valeur
a=0
cells(i,j).select

do while selection <> ""
if a <=100 then
a=a+1
if valeur = then
valeur = selection
else
valeur = valeur & ";" & selection
end if
a=a+1
else
cells(1,2).select
selection = valeur
a=0
valeur =""
end if
i=i+1
cells(i,j).select
loop
Un conseil fais le par F8 et regarde si ca te convient.

Voilà une autre solution...
j'ai été moins rapide à la créer mais je te la met quand même...

Dim Ligne As String
Sub CompilLigne()
Ligne = ""
For i = 1 To 100
If Sheets(1).Cells(i, 1) <> "" Then
Ligne = Ligne & ";" & Sheets(1).Cells(i, 1)
End If
Next i
Sheets(2).Cells(1, 1) = Ligne

Ligne = ""
For i = 101 To 200
If Sheets(1).Cells(i, 1) <> "" Then
Ligne = Ligne & ";" & Sheets(1).Cells(i, 1)
End If
Next i
Sheets(2).Cells(1, 2) = Ligne

Ligne = ""
For i = 201 To 300
If Sheets(1).Cells(i, 1) <> "" Then
Ligne = Ligne & ";" & Sheets(1).Cells(i, 1)
End If
Next i
Sheets(2).Cells(1, 3) = Ligne

'... tu peux répéter autant de fois ce modèle que tu as de multiple de 100 cellules

end sub

Oki, alors regarde le fichier que j'ai posé sur cijoint.fr, ça devrait t'être utile ;)

J'ai limité à 400 pr des questions de perf mais tu peux adapter ;)

essaye qqchose comme ça:
Dim ligne as string

Sub...()
for j =1 to 65
Ligne = ""
for i = ((j-1)*100)+1 to j*100
if sheets(1).cells((i,1)<>"" then
Ligne=Ligne&";"&Sheets(1).Cells(i,1)
end if
next i
Sheets(2).cells(j,1)=Ligne
Next j

end sub

Avec ça tu devrais pouvoir faire jusqu'à 65 listes de 100 identifiants

Normalement ta liste de valeurs est à coller en B5:B405, les parametres en F4:F6 et le résultat en F2.....
Si le résultat s'affiche pas essaie de modifier la couleur du texte, c'est peut etre un pb de conversion de couleurs (fichier réalisé en Excel 2007)....

Bonjour Mélanie et merci pour ce retour rapide !

Je ne m'y connais pas énormément en VBA...

J'ai donc ajouté un module et copié le code que tu m'as indiqué.

Faut-il auparant ajouter une ligne de type "Sub Ligne()" au début et "End Sub" à la fin ?

De plus dans le code que tu m'a donné à un moment il y a If valeur = Then faut-il mettre une valeur avant le "then" ?

Je suis embetant je sais ... :)

D'avance merci pour le coup de main !

Hello et merci d'être autant à me répondre !

Alors pour tout vous dire je travaille sous Business Objects sur des identifiants que l'on m'adresse sous Excel (j'ai pris 245 lignes dans mon exemple mais ca peut très bien être 950 lignes...voir plus) or dans Businiess Objets, lorsque que je veux travailler sur ces identifiants je ne peux pas en mettre plus de 100 dans une même ligne.

Exemple: chaque marque de voiture a un identifiant (123 pour renault, 456 pour peugeot, 789 pour citroën)

Je vais devoir remonter pour renault et peugeot le nombre de voiture en circulation, donc dans BO il va falloir que dans les critères de la requête je fasse la chose suivante:

Identifiant_voiture DANS LISTE (123;456) et chaque identifiant doit être séparé par un ";"

La il y a que deux identifiants mais je peux avoir à en mettre plusieurs centaines or par ligne dans BO il n'en accepte que 100...c'est pour que je puisse faire des copier coller rapidement des identifiants par liste de 100...

Je sais c'est pas évident à expliquer sur le net comme ça...si je ne suis pas clair n'hésitez pas à me revenir !

Merci encore!

Effectivement ton fichier peut m'être utile dans le cas ou j'ai moins de 100 identifiants...après ca se complique...

Par contre effectivement on voit pas le résultat du coup je copie colle la cellule I204 (je crois que c'est celle la) et j'ai l'info, merci pour ton aide en tout cas.

Merci à tous, en prenant les idées à droite à gauche de vos aides je suis parvenu à bout ! et il y a une grosse utilité derrière, un grand merci à tous encore une fois !

Cdt,

Jean