dim maZone as range
with sheets("maFeuille")
set maZone=.range("h5:h" & .cells(5,columns.count).end(xltoright).column)
end with
Fonctionne si il n'y a rien à droite après la première colonne vide à droite de H5 (notamment si H5 peut $etre la dernière cellule remplie de la ligne 5), sinon utilisez la formule de CPk.
Sub Test()
Dim Plage As Range, Dercel As Range
Set Dercel = Selection.SpecialCells(xlCellTypeLastCell)
Set Plage = Range("H5:" & Dercel.Address)
Plage.Select
End Sub
Sub Test()
Dim Plage As Range, Dercel As Range
Set Dercel = Selection.SpecialCells(xlCellTypeLastCell)
Set Plage = Range("H5:" & Dercel.Address)
Plage.Select
End Sub
Désolé, ce doit être le pot de départ d'un collègue à midi qui fait son effet
Une version qui fonctionne:
Code:
Sub test()
Dim maZone As Range
With Sheets("Feuil1")
Set maZone = .Range(.Range("h5"), .Cells(5, Columns.Count).End(xlToRight))
maZone.Copy Sheets("Feuil2").Range("a2")
End With
End Sub
Fonctionne si il n'y a rien à droite après la première colonne vide à droite de H5 (notamment si H5 peut être la dernière cellule remplie de la ligne 5), sinon utilisez le code de CPk
Voici mon fichier où j'ai le problème. Il fonctionne bien ainsi mais je souhaite le modifier.
je veux une liste de celule à copier (c'est ce que je vous ai demandé) parce qu'actuellement j'ai un nom défini par le gestionnaire de nom et je souhaite le remplacer par la selection d'une zone par macro.