Discussion :

[Invité]

Bonsoir,

Je voudrai limiter l'utilisation d'une plage dont le nombre de lignes et de colonnes varie, mais je ne parviens pas à définir cette plage. Je sollicite votre aide, en vous remerciant par avance.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub LimiteDefilementPlage()
Dim DerLig As Long, DerCol As Long
DerLig = Cells.Find("*", , , , xlByRows, xlPrevious).Row
DerCol = Cells.Find("*", , , , xlByColumns, xlPrevious).Column
 ActiveSheet.ScrollArea = "A1:" & "h" & DerLig  '***
'***c'est sur cette ligne que je bute, ainsi le scrollarea est opérationnel, je voudrai remplacer "h" par dercol 
 End Sub

Cordialement,

[nibledispo]

Bonsoir,

Je ne suis pas certain de bien saisir le problème mais pourquoi ne pas utiliser tout simplement "CurrentRegion"

Cordialement,

[Invité]

Bonsoir Nibledispo,

Merci pour le retour. En fait, en utilisant un userform, je récupère de ma BD des cordonnées sur une feuille et je voudrai qu'on ne puisse travailler que dans cette plage.

Mes connaissances du VBA sont des plus sommaires, je suis à la recherche d'une solution. Tu me proposes "CurrentRegion", je veux bien mais comment faire?

Et, je voudrai aussi apprendre comment définir une plage en utilisant la dernière colonne et la dernière ligne.

Avec mes remerciements.

Cordialement,

[Invité]

Re,

Merci à vous, je viens de trouver une solution qui fonctionne. Mais est-ce la meilleur solution?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub LimiteDefilementPlage()
Dim DerLig As Long, DerCol As Long, LastCol As String
DerLig = Cells.Find("*", , , , xlByRows, xlPrevious).Row
DerCol = Cells.Find("*", , , , xlByColumns, xlPrevious).Column
LastCol = Split(Cells(1, DerCol).Address, "$")(1) 'prise d'une fonction de pierrejean
ActiveSheet.ScrollArea = "A1:" & LastCol & DerLig
End Sub
 
Sub RetablitDefilement()
 ActiveSheet.ScrollArea = ""
 End Sub

Bonne Soirée.

Cordialement,

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.ScrollArea = "A1:" & Cells(DerLig, DerCol).Address

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.ScrollArea = Range("A1").Resize(DerLig, DerCol).Address

[Invité]

Bonjour Mercatog,

Content de te "revoir", Je te l'avais dit mon cher que tout est relatif, par rapport à moi tu es au top.

Je te remercie beaucoup pour ton aide, la solution que j'avais trouvé fonctionne bien mais je préfère ton code.

Je profite de l'occasion pour te souhaiter de joyeuses fêtes de fin d'année et une très bonne année 2014.

Cordialement,