Next i

[LaurentG]

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 :

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 ...'

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

 

[LaurentG]

voilà le fichier

 

[JC de Lorient]

salut

a vue de nez comme ça ne faudrait il pas d'abord donner une valeur a x ???
dans ta macro tu démarres x=x+1 mais quelle est la valeur de x


JC

 

[Hellboy]

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