[XL-2003] Copier/Coller cellules visibles par macro [Résolu]

[Nikodemus]

Bonjour,

Je souhaite faire un copier/coller par macro entre 2 classeurs.
Le soucis est que je souhaite copier les cellules "VISIBLES" et garder le format des cellules.

Quand je fais le code suivant :

Code :

1
2
3
4
5
6
7
8
9
Set Maplage = Range("A9:" & Range("B65536").End(xlUp).Address)
Maplage.Select
Selection.SpecialCells(xlCellTypeVisible).Select
Application.CutCopyMode = False
Selection.Copy
Windows("PLANNING PAR SEM.xls").Activate
Sheets(UserForm1.ComboBox1.Value).Select
Range("C1").Select
ActiveSheet.Paste

Le copier/coller s'effectue bien pour les cellules visibles mais ne garde pas le format.

Et quand je fais :

Code :

1
2
3
With Workbooks("Classeur1").Sheets("Feuill1")
.Range("A9:" & Range("B65536").End(xlUp).Address).Copy Workbooks("PLANNING PAR SEM").Sheets(UserForm1.ComboBox1.Value).Range("C1")
End With

La copie me garde le format mais me colle ausse les cellules masquées.


Quelqu'un aurait une idée pour que l'un des 2 codes marche avec cellules visibles et format ?

Merci par avance.

PS : J'ai tester avec PasteSpecial mais le code ne fonctionne pas.

[MarcelG]

Bonjour Nikodemus,

Essaie d'adapter

Code :

1
2
3
4
5
6
7
8
9
10
11
Public Sub essai()
Dim maplage As Range
Set maplage = Range("A9:" & Range("B65536").End(xlUp).Address).SpecialCells(xlCellTypeVisible)
maplage.Copy
With Workbooks("classcol2.xls")
        .Activate
        .Sheets(1).Range("C1").Select
        .ActiveSheet.Paste
End With
Set maplage = Nothing
End Sub

[Nikodemus]

Parfait cela fonctionne
Merci de ta réactivité.

Tant que jy suis saurai tu comment trouver une colonne à copier par un numéro ?
Genre si j'ai i = 8, je voudrais qu'il comprenne Range("H9:" & Range("H65536").End(xlUp) mais je ne sais pas comment remplacer la lettre par un chiffre (et cela pour toutes les colonnes du classeur).

Merci par avance.

[mercatog]

Ici, on colorie en jaune la plage de la colonne i

Code :

1
2
3
4
5
6
7
8
9
Sub Test()
Dim i As Integer
 
i = 9
 
With ThisWorkbook.Worksheets("Feuil1")
    .Range(.Cells(9, i), .Cells(.Rows.Count, i).End(xlUp)).Interior.ColorIndex = 6
End With
End Sub

[MarcelG]

Salut,

Si le nombre en question figure en cellule "A15" (par exemple), alors tu peux adapter le code suivant :

Code :

1
2
3
4
5
6
7
8
Public Sub new_essai()
Dim dercel As Range
With ActiveSheet
        Set dercel = .Cells(.Rows.Count, .[A15].Value).End(xlUp)
        .Range(Cells(9, .[A15]), dercel).Select
End With
Set dercel = Nothing
End Sub

[Nikodemus]

Exactement ce qu'il me fallait.

Merci pour tout.