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