Next i

L

LaurentG

Guest
Bonjour,

Voici mon problème :

J'ai un classeur qui est ouvert, dans lequel j'ai à partir de la cellule A13, une lettre de l'alphabet. ex : A13 : 'A', A14: 'B' ....
çà s'arrête à n'importe quelle lettre, cela varie selon le fichier.

J'ai une macro qui ouvre un classeur, copie et colle la feuille dans le classeur 1.

voici le code que j'utilise :

Code:
bvnumber = ActiveWorkbook.Sheets('input').Range('b1').Value
Workbooks.Open ('C:\\tab_en71-3.xls')
Sheets('tab_EN71-3').Copy AFTER:=Workbooks(bvnumber & '.xls').Sheets('en71-3')
Workbooks('tab_en71-3.xls').Close

cette feuille dans la colonne A j'ai mes titres de lignes. Ensuite, j'ai des cases libres. Il faut que dans la première ligne, il me mette les lettres de l'alphabet.
Donc je pensais utiliser le code 'i next i ...'

Code:
Sheets('tab_en71-3').Range('b1').Select
dernier = Range('a15000').End(xlUp).Row
For Each cell In Sheets('en71-3').Range('a13:a' & dernier)

x = x + 1
For i = 2 To 13
Sheets('tab_en71-3').ActiveCell.Offset(0, i).Value = x
Next i
Next

Ci joint le fichier que je vais chercher et que j'insère dans mon classeur1 qui a une feuille nommée 'EN71-3'.
Sachant également qu'arriver à la colonne M, il repasse à la colonne B, mais à la ligne 9...

Quelqu'un peut m'aider?
Merci!
Laurent
 

Hellboy

XLDnaute Accro
Bonjour LaurentG, JC de Lorient

Je te propose ce bout de code, en espérant que ça t'aide:


Public Sub CodeAscII()
'    Pour suivre la façon dont tu as choisis, tu peux fonctionner avec
'    le code ascii pour retourner la lettre. A = 65, B= 66 etc...
Dim bytLettre        As Byte
       
       
For bytLettre = 65 To 91
       
'    Ici je ne sais pas dans quel sens tu vas, car ton fichier
       
'    n'as pas passé. Suit le liens dans ma siganture si tu as des problème.
                Cells(bytLettre - 64, 2) = Chr(bytLettre)
       
Next bytLettre
       
End Sub
 

Discussions similaires

Réponses
4
Affichages
257
Réponses
17
Affichages
1 K

Statistiques des forums

Discussions
312 932
Messages
2 093 733
Membres
105 802
dernier inscrit
Witchun