VBA - ajout extension cellule excel

SergiO

XLDnaute Accro

• 15 Septembre 2008

• #2

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

@+

 

Vote positif 0 Vote négatif

J

Jack Slater

Guest

• 15 Septembre 2008

• #3

Re : VBA - ajout extension cellule excel

Merci mais,c'est quoi Derlig?

Je dois le déclarer comment?

 

Vote positif 0 Vote négatif

SergiO

XLDnaute Accro

• 15 Septembre 2008

• #4

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

@+

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 15 Septembre 2008

• #5

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

 

Vote positif 0 Vote négatif

J

Jack Slater

Guest

• 15 Septembre 2008

• #6

Re : VBA - ajout extension cellule excel

Merci merci merciiiii

 

Vote positif 0 Vote négatif