XL 2010 Incrémentation lettre

StagiairePasPayé

XLDnaute Nouveau
Bonjour a tous,
Voila j'ai un problème : j'utilise une macro qui écris dans mon tableur excel depuis d'autre fichier( en gros je fais un mixe de 3 fichier pour n'en faire qu'un).
Je suis donc obliger d'incrémenter mes colonnes comme ceci :
VB:
colonne = Chr(Asc(colonne) + 1)
pour pouvoir écrire dans chacune mais c'est la qu'arrive mon problème, je n'arrive pas à passer de Z à AA.
Sauriez vous comment m'aider s'il vous plait.
Merci d'avance.
 

Roblochon

XLDnaute Impliqué
Bonjour,

De façon générale (puisqu'il n'y a pas de classeur exemple avec la macro), il est plus facile de gérer les index de colonnes plutôt que leurs adresses textuelles. Exemple
VB:
Dim Colonne As Long
Dim Ligne as Long

Colonne = 10
With Sheets("Feuil1")
  For Ligne= 1 To 25
      .Cells(Ligne,Colonne) = "Valeur " & Colonne
      Colonne = Colonne +1
  Next
End With
Bon après-midi
 

youky(BJ)

XLDnaute Barbatruc
Bonjour tous,
Si tu tiens aux lettres de colonne
lettrecolonne=split(cells(1,27).address,"$")(1)
ici 27 est la colonne 27
Mais bien sur, mieux vaut utiliser cells(lig,col)
Bruno
 

Discussions similaires


Haut Bas