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.

 

[CPk]

Re : déilimiter une zone

Bonjour, essayez pour commencer

Feuil1.Range(Cells(5, 8), Cells(5, Columns.Count).End(xlToLeft)).Select

 

[mapomme]

Re : déilimiter une zone

Bonjour,

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.

 

[tben08]

Re : déilimiter une zone

Super merci à vous

Par contre quand je veux la sélectionner pour la copier mais il me mets erreur à chaque fois.

ce n'est pas :

range(mazone).select

?

 

[mapomme]

Re : déilimiter une zone

Re,

et si vous écrivez ? (maZone est déjà une variable range qui représente un ensemble de cellules)

maZone.select

ou bien directement:
maZone.copy vers_range_de_destination

 

[JCGL]

Re : déilimiter une zone

Bonjour à tous,
Salut MaPomme

Peux-tu essayer :

Sub Test()
Dim Plage As Range, Dercel As Range
Set Dercel = Selection.SpecialCells(xlCellTypeLastCell)
Set Plage = Range("H5:" & Dercel.Address)
Plage.Select
End Sub

A+ à tous

 

[tben08]

Re : déilimiter une zone

non toujours pas

 

[tben08]

Re : déilimiter une zone

Bonjour à tous,
Salut MaPomme

Peux-tu essayer :

Sub Test()
Dim Plage As Range, Dercel As Range
Set Dercel = Selection.SpecialCells(xlCellTypeLastCell)
Set Plage = Range("H5:" & Dercel.Address)
Plage.Select
End Sub

A+ à tous

ne fonctionne pas non plus, problème au niveau de la sélection

 

[JCGL]

Re : déilimiter une zone

Bonjour à tous,

Voir le fichier joint en cliquant sur la Coche...

A+ à tous

 

[CPk]

Re : déilimiter une zone

Sub test()
Set maplage = Feuil1.Range(Cells(5, 8), Cells(5, Columns.Count).End(xlToLeft))
MsgBox maplage.Address
End Sub

 

[tben08]

Re : déilimiter une zone

Bonjour à tous,

Voir le fichier joint en cliquant sur la Coche...

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

 

[mapomme]

Re : déilimiter une zone

Bonjour à tous, PCk, JCGL

Désolé, ce doit être le pot de départ d'un collègue à midi qui fait son effet 😉

Une version qui fonctionne:

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

 

[tben08]

Re : déilimiter une zone

super c'est bon merci à vous tous

 

[CPk]

Re : déilimiter une zone [résolu]

Allons y gaiement...

Sub test()
Set maplage = Feuil1.Range(Cells(5, 8), Cells(5, 8).End(xlToRight))
MsgBox maplage.Address
End Sub

 

[tben08]

Re : déilimiter une zone

Je profite qu'il y ait du monde pour m'aider!!

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.

je ne sais pas si j'ai été clair!!

en tout cas merci de m'aider