Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel copier une plage de cellules au premier emplacement vide dans une colonne ? dans un fichier texte ?

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

3 réponses
Avatar
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
----------------------------------------------
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel
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" a écrit dans le message de 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
----------------------------------------------



Avatar
docm
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" wrote in message
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
----------------------------------------------



Avatar
JB
[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
----------------------------------------------