Comment déterminer une plage de cellules dans une feuille cachée

[did85]

Bonsoir,
j'ai besoin de déterminer par VBA une plage de cellules dans plusieurs feuilles cachées.

Cette plage est évolutive en fonction de la feuille sélectionnée aussi bien en colonne qu'en ligne.

Je vous joins un fichier simplifié, il permet de :
- masquer 2 feuilles
- afficher les 2 feuilles masquées
- lancer un formulaire qui permet de sélectionner la feuille de la plage à afficher.

Lorsqu'on choisit une feuille, un message apparaît donnant le nombre de colonnes et le nombre de la lignes de la feuille, mais je n'arrive pas pour autant à déterminer la plage (le second message)

With Sheets(NomSheet)
        DerLig = .Range("A65536").End(xlUp).Row
        DerCol = .Range("A1").End(xlToRight).Column
        MsgBox "La Feuille " & NomSheet & " contient : " & DerLig & " Lignes et " & DerCol & " Colonnes.", , "Info"
    
        [COLOR="Red"]Set Plage = .Range("A1", .Range("C1").End(xlDown))[/COLOR]
        MsgBox "Le nombre de cellules de la plage est : " & Plage.Count
        
    End With

Ce qui me pose problème, c'est la ligne en rouge qui n'est pas évolutive en colonne. Le .Range("C1") est bloquant

 .Range("C1").End(xlDown)

Avez-vous une idée ? ou une solution ?

Merci

 

[wilfried_42]

Re : Comment déterminer une plage de cellules dans une feuille cachée

bonjour

essaye ca

Set Plage = .Range("A1:" & .Range("C1").End(xlDown).address)

Edit : Trop nul le wil, il fait le copier coller et oublie d'y appliquer la modif

 

[vbacrumble]

Re : Comment déterminer une plage de cellules dans une feuille cachée

Bonsoir


Essayes également ceci

Set Plage = .Range("A1:C" & .[C65536].End(xlUp))

 

[did85]

Re : Comment déterminer une plage de cellules dans une feuille cachée

Bonsoir,
merci à vous deux, tout ce que vous me notez fonctionne, le problème c'est que mes valeurs vont bien au delà de la colonne C.

Et c'est justement elle que je souhaite prolonger lors de la sélection, mais je ne connais jamais la dernière colonne écrite.

Si quelqu'un a une autre idée ?

Merci

 

[vbacrumble]

Re : Comment déterminer une plage de cellules dans une feuille cachée

Re

Essaye de t'inspirer de:

Msgbox ActiveSheet.UsedRange.Columns.Count

Ce qui pourrait servir à :

MsgBox Cells(65536, ActiveSheet.UsedRange.Columns.Count).End(xlUp).Address(0, 0)

 

[BOISGONTIER]

Re : Comment déterminer une plage de cellules dans une feuille cachée

Bonsoir,

UsedRange n'est pas fiable.

Sub nbLignesFeuille()
  MsgBox Sheets(1).Cells.Find("*", , , , xlByRows, xlPrevious).Row & " Lignes"
  MsgBox Sheets(1).Cells.Find("*", , , , xlByColumns, xlPrevious).Column & " Colonnes"
End Sub

http://boisgontierjacques.free.fr/fichiers/Cellules/UsedRangeNettoieLignesColonnes.xls

JB

 

[did85]

Re : Comment déterminer une plage de cellules dans une feuille cachée

Bonsoir Boisgontier,
merci pour le calcul des lignes et des colonnes, mais je ne pense pas que ça résolve mon problème. Sauf si je n'ai pas compris ton code.

J'ai besoin de définir la plage délimitée par le nombre de lignes et de colonnes de la feuille.

Parce qu'ensuite je m'en sers dans un listview.

Merci encore, je continue à chercher.

 

[nolich]

Re : Comment déterminer une plage de cellules dans une feuille cachée

Bonsoir did85, wilfried42, vbacrumble et JB, bonsoir à toutes et à tous,

wilfried42 : je pense que ton souci vient de cette ligne de calcul de plage :

[COLOR="Blue"]Set[/COLOR] Plage = .Range("A1", .Range("C1").End(xlDown))

que je remplacerai bien volontiers par :

[COLOR="blue"]Set[/COLOR] Plage = .Range("A1").CurrentRegion

qui est plus fiable que Range("XX").UsedRange

@+

EDIT : Par ailleurs, je te conseille de mettre la propriété TakeFocusOnClick de tes commandButtonx à False. Ca pourra être utile si ton code évolue.

 

[vbacrumble]

Re : Comment déterminer une plage de cellules dans une feuille cachée

Re



Pourquoi qu'il est pas fiable le UsedRange ?

et pourquoi vous l'aimez pas ?

Les deux lignes ci-dessous me renvoient la meme adresse de cellule

MsgBox Cells(65536, Sheets(1).Cells.Find("*", , , , xlByColumns, xlPrevious).Column).End(xlUp).Address(0, 0) 
MsgBox Cells(65536, Sheets(1).UsedRange.Columns.Count).End(xlUp).Address(0, 0)

 

[BOISGONTIER]

Re : Comment déterminer une plage de cellules dans une feuille cachée

>Pourquoi qu'il est pas fiable le UsedRange ?
http://boisgontierjacques.free.fr/fichiers/Cellules/UsedRangeNettoieLignesColonnes.xls

JB

 

[nolich]

Re : Comment déterminer une plage de cellules dans une feuille cachée

Re...

CQFD

 

[vbacrumble]

Re : Comment déterminer une plage de cellules dans une feuille cachée

Donc


Ne jamais utiliser UsedRange ?

Ou plutôt dans quels cas l'utiliser ?

 

[did85]

Re : Comment déterminer une plage de cellules dans une feuille cachée

Bonsoir à tous et à toutes,

merci de votre aide.

Nolich, ton bout de code fonctionne :

Set Plage = .Range("A1").CurrentRegion

Maintenant, il me reste à l'adapter dans mon cas, mais la plage est bien dans le Set.

Merci

Question résolue