bonjour
je selectionne une plage
Columns("D:O").Select
Selection.Copy
je souhaiterais copier dans le m=EAme temps la colonne suivant, pas P
car elle est masqu=E9, mais celle visible =E0 l'=E9cran =E0 l'instant
pr=E9sent, entre P et DS
merci
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
gérard
salut il faut rechercher avec Union(range.... a+ "Hervé" a écrit dans le message de news:
bonjour je selectionne une plage Columns("D:O").Select Selection.Copy je souhaiterais copier dans le même temps la colonne suivant, pas P car elle est masqué, mais celle visible à l'écran à l'instant présent, entre P et DS merci
salut
il faut rechercher avec Union(range....
a+
"Hervé" <hervecan@wanadoo.fr> a écrit dans le message de news:
1144604219.059097.213990@z34g2000cwc.googlegroups.com...
bonjour
je selectionne une plage
Columns("D:O").Select
Selection.Copy
je souhaiterais copier dans le même temps la colonne suivant, pas P
car elle est masqué, mais celle visible à l'écran à l'instant
présent, entre P et DS
merci
salut il faut rechercher avec Union(range.... a+ "Hervé" a écrit dans le message de news:
bonjour je selectionne une plage Columns("D:O").Select Selection.Copy je souhaiterais copier dans le même temps la colonne suivant, pas P car elle est masqué, mais celle visible à l'écran à l'instant présent, entre P et DS merci
Youky
Columns("D:O").Copy For col = 16 To 123 If Feuil1.Columns(col).Hidden = False Then Cells(1, col).Select ActiveSheet.Paste Exit For End If Next
Non prévu, tester les 107 colonnes suivant la 1ere colonne visible à partir de col P Youky "Hervé" a écrit dans le message de news:
bonjour je selectionne une plage Columns("D:O").Select Selection.Copy je souhaiterais copier dans le même temps la colonne suivant, pas P car elle est masqué, mais celle visible à l'écran à l'instant présent, entre P et DS merci
Columns("D:O").Copy
For col = 16 To 123
If Feuil1.Columns(col).Hidden = False Then
Cells(1, col).Select
ActiveSheet.Paste
Exit For
End If
Next
Non prévu, tester les 107 colonnes suivant la 1ere colonne visible à partir
de col P
Youky
"Hervé" <hervecan@wanadoo.fr> a écrit dans le message de news:
1144604219.059097.213990@z34g2000cwc.googlegroups.com...
bonjour
je selectionne une plage
Columns("D:O").Select
Selection.Copy
je souhaiterais copier dans le même temps la colonne suivant, pas P
car elle est masqué, mais celle visible à l'écran à l'instant
présent, entre P et DS
merci
Columns("D:O").Copy For col = 16 To 123 If Feuil1.Columns(col).Hidden = False Then Cells(1, col).Select ActiveSheet.Paste Exit For End If Next
Non prévu, tester les 107 colonnes suivant la 1ere colonne visible à partir de col P Youky "Hervé" a écrit dans le message de news:
bonjour je selectionne une plage Columns("D:O").Select Selection.Copy je souhaiterais copier dans le même temps la colonne suivant, pas P car elle est masqué, mais celle visible à l'écran à l'instant présent, entre P et DS merci