VBA - ajout extension cellule excel

Jack Slater · 15 Septembre 2008

Bonjour à tous,

J'ai des données sotckées dans ma colone B d'une feuille excel (à partir de la cellule B8 pour être plus precis), et j'aimerais copier cette colonne dans la colonne C (toujours à partir de C8), mais, ajouter ".xls" à la fin de toutes les chaines de caractère que je vais ajouter.

Ex: Cellule B8 = "abcdef" -> Cellule C8 = "abcdef.xls"
Cellule B9 = "ghij" -> Cellule C9 = "ghij.xls"

Et ainsi de suite jusqu'à ce qu'il n'y a plus de cellule.

Quelqu'un peut m'aider???

SergiO · 15 Septembre 2008

Re : VBA - ajout extension cellule excel

Bonjour,

Voici un code à tester:

Code:

Sub Ajout_xls()
Derlig = Range("B65536").End(xlUp).Row
For L = 8 To Derlig
Cells(L, 3) = Cells(L, 2) & ".xls"
Next L
End Sub

@+

Jack Slater · 15 Septembre 2008

Re : VBA - ajout extension cellule excel

Merci mais,c'est quoi Derlig?

Je dois le déclarer comment?

SergiO · 15 Septembre 2008

Re : VBA - ajout extension cellule excel

Re,

Derlig c'est la dernière utilisée de la colonne B, déclare là :

Code:

Dim Derlig as Integer

@+

tototiti2008 · 15 Septembre 2008

Re : VBA - ajout extension cellule excel

Bonjour à tous,

pour le principe et pour mettre mon grain de sel , il vaut mieux la déclarer en Long (integer est limité à 32700 à peu près)

Dim Derlig as Long

Jack Slater · 15 Septembre 2008

Re : VBA - ajout extension cellule excel

Merci merci merciiiii

VBA - ajout extension cellule excel

Jack Slater

XLDnaute Nouveau

SergiO

XLDnaute Accro

Jack Slater

XLDnaute Nouveau

SergiO

XLDnaute Accro

tototiti2008

XLDnaute Barbatruc

Jack Slater

XLDnaute Nouveau

Discussions similaires