comment faire, colones /cellules ?

Salut,

voila une réponse que j'ai déja donné recemment :


voici une macro qui te permettera de créer une nouvelle
feuille dans le format que tu veux :

Sub MacroMiseEnPage()

NbreCol = InputBox("Nbre de colonne :")
NbreLigne = InputBox("Nbre de ligne :")

Set FeuilleActive = ActiveSheet
Set NouvelleFeuille = Sheets.Add

LigneNew = 1

For i = 1 To NbreLigne
For j = 1 To NbreCol
NouvelleFeuille.Cells(LigneNew, 1).Value =
FeuilleActive.Cells(i, j).Value
LigneNew = LigneNew + 1
Next j
Next i

End Sub



Pour accéder à l'éditeur Vba, 2 solution :
- menu "outils" => "Macro" => "Visual Basic Editor"
- Alt + F11

Après tu dois insérer le bout de code dans un module.
Pour le créer faire :
- Dans la fenetre "Projet - VBA Project" faire un clic
droit puis selectionner "Insertion" => "Module"

Maintenant, il suffit de faire un copier/coller de la
macro que je t'ai filé dans le module que tu viens de
créer.

Ensuite, il faut lancer la macro :
- retourner sous Excel puis faire menu "outils"
=> "Macro" => "Macros..."

ça te va ?

-----Message d'origine-----
Bonjour
j'ai deux colones qui sont remplies comme cela(ceci est
un exemple, il y

1600 celules)

4565 SA1039
937 GA1013
942 VI1116

Ce sont des codes d'acces à une zone securisée.Le
logiciel que j'utilise

pour"coder" a besoin d'un fichier .ini
qui veut que les codes apparaissent comme cela

4565
SA1039
937
GA1013
942
VI1116

y a t il une solution pour eviter de saisir manuellement
ces codes

Merci


.

Bonjour,

Le plus simple est probablement de générer un fichier texte dans
lequel les données apparaissent comme ton logiciel en a besoin.

Remplace éventuellement

Open "Export" For Output As #1

par quelque chose comme

Open "Export " & Format(Date, "yymmdd") For Output As #1

En effet, si tu utilises un nom invariant comme "Export", à chaque
exécution, le fichier précédent sera écrasé, sans même un message.


Sub ExportIni()
Dim i As Long
Open "Export" For Output As #1
With ActiveCell
Do
Print #1, .Offset(i)
Print #1, .Offset(i, 1)
i = i + 1
Loop Until .Offset(i) = ""
End With
Close #1
End Sub

Bonjour
j'ai deux colones qui sont remplies comme cela(ceci est un exemple, il y
1600 celules)

4565 SA1039
937 GA1013
942 VI1116

Ce sont des codes d'acces à une zone securisée.Le logiciel que j'utilise
pour"coder" a besoin d'un fichier .ini
qui veut que les codes apparaissent comme cela

4565
SA1039
937
GA1013
942
VI1116

y a t il une solution pour eviter de saisir manuellement ces codes
Merci

--
Cordialement,

Michel Gaboly
http://www.gaboly.com

Bonjour,

On peut faire cela avec Excel et Word:
1) sauvegarder le fichier Excel d'origine en format Texte
(Tabulation délimitée *.txt)
2) ouvrir le fichier texte, tout sélectionner (Ctrl-A), et
copier (dans le presse-papier)
3) ouvrir Word, document vide, et collier
4) remplacer (Ctrl-H) toutes les occurences de "caractère
de tabulation" (^t) par "saut de ligne manuel" (^l)
5) sauvegarder le fichier en .ini

-----Message d'origine-----
Bonjour
j'ai deux colones qui sont remplies comme cela(ceci est
un exemple, il y

1600 celules)

4565 SA1039
937 GA1013
942 VI1116

Ce sont des codes d'acces à une zone securisée.Le
logiciel que j'utilise

pour"coder" a besoin d'un fichier .ini
qui veut que les codes apparaissent comme cela