Problème sélection

[tontonexcel]

Bonsoir à tous (ou bonjour suivant les fuseaux )

J'ai un souci avec le fichier joint, les 2 exemples Sélection 1 et 2 à partir de la feuille X fonctionnent, le 3ème ne fonctionne qu'à partir de la feuille active (bidule en l’occurrence) (le but d'après ce que je comprends est de réaliser une sélection à partir de A1 jusqu'à la dernière cellule visible)

Auriez-vous une explication ?

Merci d'avance

 

[Chris401]

Re : Problème sélection

Bonsoir

Set plage3 = Sheets("bidule").Range("A1").CurrentRegion

Cordialement
Chris

 

[tontonexcel]

Re : Problème sélection

Ah merci beaucoup Chris !!!

Mais sans abuser pourquoi cela fonctionnait il sur la feuille active et pas "à distance"

Merci

 

[Robert]

Re : Problème sélection

Bonsoir TontonExcel, bonsoir le forum,

Dans le cas 1 et 2 tu ne sélectionnes pas. Tu définis une plage et tu lui attribue une valeur. Dans le cas 3 tu utilises Selection et comme ça se passe dans un autre onglet que celui où se trouve le bouton qui lance la macro ça plante.
Si j'ai bien compris ce que tu voulais faire, je te propose deux solutions :

Sub selection_trois()
Dim plage3 As Range

Sheets("Bidule").Select
Set plage3 = Sheets("bidule").Range("A1", Selection.SpecialCells(xlCellTypeLastCell))
plage3.Value = 100
End Sub

ou

Sub selection_trois()
Dim plage3 As Range

With Sheets("Bidule")
    Set plage3 = .Range("A1", .UsedRange.SpecialCells(xlCellTypeLastCell))
End With
plage3.Value = 100
End Sub

 

[tontonexcel]

Re : Problème sélection

Bonsoir Robert,

Merci pour les exemples, je ne connaissais pas du tout UsedRange je vais me concentrer dessus !

A plus