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)
Code:
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
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.