bonjour @tous,
me revoilà avec une nouvelle petite question (en attendant les plus grosses... plus tard )
j'ai enfin trouvé comment reproduire la mise en page d'une feuille sur d'autres feuilles, du moins c'est ce que je croyais car le code suivant fonctionne pour les lignes mais pas les colonnes! (c'est le comble puisque qu'en passant par la barre des menus, avec le collage spécial, c'est le contraire!)
alors voilà ce petit code qui me met 'incompatibilité de type' dans la 2ème boucle for/next :
si quelqu'un a une idée... je me dis que la variable C ne devrait pas être de type Range, mais quoi alors? j'ai juste recopié ce qui marchait pour les lignes.
merci
me revoilà avec une nouvelle petite question (en attendant les plus grosses... plus tard )
j'ai enfin trouvé comment reproduire la mise en page d'une feuille sur d'autres feuilles, du moins c'est ce que je croyais car le code suivant fonctionne pour les lignes mais pas les colonnes! (c'est le comble puisque qu'en passant par la barre des menus, avec le collage spécial, c'est le contraire!)
alors voilà ce petit code qui me met 'incompatibilité de type' dans la 2ème boucle for/next :
Code:
Sub test1()
'clone hauteur de ligne et largeur de colonne de la feuille 1
'sur les feuilles 2 à 12
Dim R As Range, C As Range, i%
'au cas où, pr lignes, colonnes nombreuses:
Application.ScreenUpdating = False
Application.Calculation = xlManual
For i = 2 To 12
For Each R In Worksheets(1).Range("A1:AD30").Rows
Worksheets(i).Rows(R.Row).RowHeight = R.RowHeight
Next R
For Each C In Worksheets(1).Range("A1:AD30").Columns
[color=yellow]Worksheets(i).Columns(C.Columns).ColumnWidth = C.ColumnWidth[/color]
Next C
Next i
Application.ScreenUpdating = True
Application.Calculation = xlAutomatic
End Sub
si quelqu'un a une idée... je me dis que la variable C ne devrait pas être de type Range, mais quoi alors? j'ai juste recopié ce qui marchait pour les lignes.
merci