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
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 ----------------------------------------------
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" <kiki35@home.fr> a écrit dans le message de news:
44884e68$0$8388$626a54ce@news.free.fr...
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
----------------------------------------------
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 ----------------------------------------------
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 ----------------------------------------------
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" <kiki35@home.fr> wrote in message
news:44884e68$0$8388$626a54ce@news.free.fr...
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
----------------------------------------------