copier une plage de cellules au premier emplacement vide dans une colonne ? dans un fichier texte ?

Le
kiki35
Bonsoir

Débutant en VBA Excel, j'aimerai savoir comment :
- copier une plage de cellules (ex : B5:B10) au premier emplacement
vide dans la colonne A ?

-copier cette même plage de cellules dans un fichier texte, entre
une balise nommée "début" et une balise nommée "fin" ?

Merci de m'éclairer

-
Posted with NewsLeecher v2.0 Beta 5
* Binary Usenet Leeching Made Easy
* http://www.newsleecher.com/?usenet
-
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel
Le #3701741
Bonsoir.
Pour la première partie de la question :
Range("B5:B10").Copy _
Cells(Range("A65536").End(xlUp).Row + 1, 1)
Pour la seconde, va falloir l'interention des gourous.
Cordialement.
Daniel
"KiKi35" 44884e68$0$8388$
Bonsoir

Débutant en VBA Excel, j'aimerai savoir comment :
- copier une plage de cellules (ex : B5:B10) au premier emplacement
vide dans la colonne A ?

-copier cette même plage de cellules dans un fichier texte, entre
une balise nommée "début" et une balise nommée "fin" ?

Merci de m'éclairer

----------------------------------------------
Posted with NewsLeecher v2.0 Beta 5
* Binary Usenet Leeching Made Easy
* http://www.newsleecher.com/?usenet
----------------------------------------------



docm
Le #3701671
Bonjour KiKi35.


Sub copierdansunfichiertexte()

f = "c:test.txt"

Open f For Input As 1
a = Input(FileLen(f), 1)
Close

debut = InStr(a, "début")
If debut = 0 then stop
fin = InStr(debut, a, "fin")
If fin = 0 Then Stop

Open f For Output As 1
Print #1, Mid(a, 1, debut + 4)
For i = 5 To 10
Print #1, CStr(Cells(i, 2))
Next
Print #1, Mid(a, fin);
Close

End Sub


docm

"KiKi35" news:44884e68$0$8388$
Bonsoir

Débutant en VBA Excel, j'aimerai savoir comment :
- copier une plage de cellules (ex : B5:B10) au premier emplacement
vide dans la colonne A ?

-copier cette même plage de cellules dans un fichier texte, entre
une balise nommée "début" et une balise nommée "fin" ?

Merci de m'éclairer

----------------------------------------------
Posted with NewsLeecher v2.0 Beta 5
* Binary Usenet Leeching Made Easy
* http://www.newsleecher.com/?usenet
----------------------------------------------



JB
Le #3701561
[B5:B10].Copy [A65536].End(xlUp).Offset(1, 0)

JB


Bonsoir

Débutant en VBA Excel, j'aimerai savoir comment :
- copier une plage de cellules (ex : B5:B10) au premier emplacement
vide dans la colonne A ?

-copier cette même plage de cellules dans un fichier texte, entre
une balise nommée "début" et une balise nommée "fin" ?

Merci de m'éclairer

----------------------------------------------
Posted with NewsLeecher v2.0 Beta 5
* Binary Usenet Leeching Made Easy
* http://www.newsleecher.com/?usenet
----------------------------------------------


Publicité
Poster une réponse
Anonyme