déilimiter une zone

C

CPk

XLDnaute Impliqué

• 22 Janvier 2016

• #2

Re : déilimiter une zone

Bonjour, essayez pour commencer

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

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 22 Janvier 2016

• #3

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.

 

Dernière édition: 22 Janvier 2016

Vote positif 0 Vote négatif

T

tben08

XLDnaute Occasionnel

• 22 Janvier 2016

• #4

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 :

HTML:

range(mazone).select

?

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 22 Janvier 2016

• #5

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

 

Dernière édition: 22 Janvier 2016

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 22 Janvier 2016

• #6

Re : déilimiter une zone

Bonjour à tous,
Salut MaPomme

Peux-tu essayer :

VB:

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

 

Vote positif 0 Vote négatif

T

tben08

XLDnaute Occasionnel

• 22 Janvier 2016

• #7

Re : déilimiter une zone

non toujours pas

 

Vote positif 0 Vote négatif

T

tben08

XLDnaute Occasionnel

• 22 Janvier 2016

• #8

Re : déilimiter une zone

JCGL à dit:

Bonjour à tous,
Salut MaPomme

Peux-tu essayer :

VB:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 22 Janvier 2016

• #9

Re : déilimiter une zone

Bonjour à tous,

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

A+ à tous

 

Pièces jointes

• JC Sélection Plage.xlsm

  38 KB · Affichages: 17

Vote positif 0 Vote négatif

C

CPk

XLDnaute Impliqué

• 22 Janvier 2016

• #10

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

 

Vote positif 0 Vote négatif

T

tben08

XLDnaute Occasionnel

• 22 Janvier 2016

• #11

Re : déilimiter une zone

JCGL à dit:

Bonjour à tous,

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

A+ à tous

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 22 Janvier 2016

• #12

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:

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

 

Dernière édition: 22 Janvier 2016

Vote positif 0 Vote négatif

T

tben08

XLDnaute Occasionnel

• 22 Janvier 2016

• #13

Re : déilimiter une zone

super c'est bon merci à vous tous

 

Vote positif 0 Vote négatif

C

CPk

XLDnaute Impliqué

• 22 Janvier 2016

• #14

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

 

Vote positif 0 Vote négatif

T

tben08

XLDnaute Occasionnel

• 22 Janvier 2016

• #15

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

 

Pièces jointes

• Copie de boucle colonne.xlsm

  109.8 KB · Affichages: 31
• Copie de boucle colonne.xlsm

  109.8 KB · Affichages: 32

Vote positif 0 Vote négatif