déilimiter une zone

[tben08]

Bonjour,

Je souhaite définir une zone allant de la cellule H5 à la prochaine colonne vide

je sais que je dois utiliser le end(xltoright) mais je ne sais comment le caser.

Merci de votre aide.

 

[JCGL]

Re : déilimiter une zone

Bonjour à tous,

Alors :

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

 

[tben08]

Re : déilimiter une zone

Bonjour à tous,

Alors :

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

ca ne correspond pas à ce que demande. dans ton code ça parle de ligne alors que j'ai des colonnes

 

[tben08]

Re : déilimiter une zone

plus personne?

 

[JCGL]

Re : déilimiter une zone

Bonjour à 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

C'était pourtant ta demande... Plus ou moins interprétable, je le conçois.

A+ à tous

 

[tben08]

Re : déilimiter une zone

Bonjour à tous,



C'était pourtant ta demande... Plus ou moins interprétable, je le conçois.

A+ à tous

avec mon exemple c'était quand même compréhensible

 

[Si...]

Re : déilimiter une zone

salut

pourquoi compliquer la formule du nom (voir fichier joint) ?
Avec ce que j'ai compris, JCGL , dans la page de code de la feuille réceptrice

Sub CopyTitres()
  Rows(5) = "":  [T].Copy [A5]
End Sub

 

[mapomme]

Re : déilimiter une zone

Bonsoir à tous,

Un essai qui laisse une certaine liberté quant à l'interprétation de l'énoncé...

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