Sub Colonne()
Dim Col As Range, DerCel&
DerCel = Feuil1.Range("H5000").End(xlUp).Row
MsgBox DerCel
Set Col = Range("H5:H" & DerCel)
Col.Select
End Sub
Bonjour à tous,
Alors :
VB:Sub Colonne() Dim Col As Range, DerCel& DerCel = Feuil1.Range("H5000").End(xlUp).Row MsgBox DerCel Set Col = Range("H5:H" & DerCel) Col.Select End Sub
A+ à tous
Merci mais je ne souhaite pas délimiter un tableau, juste de la cellule H5 jusqu'à la prochaine colone vide c'est à dire H25 ou moins ou plus
Bonjour à tous,
C'était pourtant ta demande... Plus ou moins interprétable, je le conçois.
A+ à tous
Sub CopieQuoiOu()
Dim rgQuoi As Range, rgOU As Range
On Error Resume Next
Set rgQuoi = Application.InputBox("Sélectionner la zone à copier:", Type:=8)
If rgQuoi Is Nothing Then Exit Sub
Set rgOU = Application.InputBox("Sélectionner la cellule vers où coller:", Type:=8)
If rgOU Is Nothing Then Exit Sub
rgQuoi.Copy rgOU(1, 1)
End Sub