Réponse acceptée !
Effectivement. Tu veux qu'à la fin ça donne çà :
Ligne1 : 300x250
Ligne2 : 728x90
Ligne3 : 300x250
Ligne4 : 728x90
(etc)
1/Tu fais une boucle sur toutes les feuilles
sub nnnnnnnnnnn()
with worksheets
' parcours de chaque feuille de ton classeur
for f=1 to .count
' Parcours de chaque colonne de la feuille parcourue
for j=1 to NbColonnesFeuille
' Parcours de chaque ligne de la feuille parcourue
for i=1 to NbLignesFeuille
(ici tu traites chacune de tes cellules)
.item(i).Cells(i,j).value 'voici pour accéder à chacune de tes cellules
next i
next j
next f
end with
end sub
(boucles valables sous condition que la structure de tes feuilles sont identiques : même nb lignes, même nb colonnes, sinon, faudra remplacer les for i et for j par un Tant Que avec un boolean pour sortir de la boucle, du genre si j'ai atteint la fin de la ligne/colonne finAtteinte = true)
2/Pour découper ta cellule, je te laisse chercher dans l'aide d'Excel (va chercher dans les fonctions qui traitent les chaînes de caractères). Tu auras 2 variables format1="300x250" : format2="728x90"
3/Après je suppose que tu mets tout çà dans une nouvelle feuille (dans ce cas, mets ta feuille en dernière et fait un for f=1 to .count-1
Pour accéder à ta dernière feuille : .item(.count) et ensuite tu colles format1 et format2 dans une nouvelle boucle, comme ceci
for i=1 to 2
if i mod 2 <>0 then
.item(.count).cells(i,1).value = format1
else
.item(.count).cells(i,1).value = format2
end if
next i
______________________________
Enfin, tu me diras quelle note t'as mise ta prof pour ce TP/Projet
LOL
_____________________________________________________________
Coder et coder sont 2 choses différentes. La 1ère consiste à arriver au but coûte que coûte. La 2nde est de trouver la solution de manière élégante.