VBA - ajout extension cellule excel

[Jack Slater]

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]

Re : VBA - ajout extension cellule excel

Bonjour,

Voici un code à tester:

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]

Re : VBA - ajout extension cellule excel

Merci mais,c'est quoi Derlig?

Je dois le déclarer comment?

 

[SergiO]

Re : VBA - ajout extension cellule excel

Re,

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

Dim Derlig as Integer

@+

 

[tototiti2008]

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]

Re : VBA - ajout extension cellule excel

Merci merci merciiiii