déilimiter une zone

tben08 · 22 Janvier 2016

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 · 22 Janvier 2016

Re : déilimiter une zone

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

tben08 · 22 Janvier 2016

Re : déilimiter une zone

JCGL à dit:
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

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

tben08 · 22 Janvier 2016

Re : déilimiter une zone

plus personne?

JCGL · 22 Janvier 2016

Re : déilimiter une zone

Bonjour à tous,

tben08 à dit:
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 · 22 Janvier 2016

Re : déilimiter une zone

JCGL à dit:
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... · 22 Janvier 2016

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

Code:

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

mapomme · 22 Janvier 2016

Re : déilimiter une zone

Bonsoir à tous,

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

VB:

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

déilimiter une zone

tben08

XLDnaute Occasionnel

JCGL

XLDnaute Barbatruc

tben08

XLDnaute Occasionnel

tben08

XLDnaute Occasionnel

JCGL

XLDnaute Barbatruc

tben08

XLDnaute Occasionnel

Si...

XLDnaute Barbatruc

Pièces jointes

mapomme

XLDnaute Barbatruc

Discussions similaires