Récupérer le contenu d'une RANGE au dessus d'une RANGE sélectionnée ...

[Garth69]

Bonsoir all 😎 !

Comment récupérer une RANGE au dessus d'une range sélectionnée ?
J'ai cherché un peu, mais rien trouvé de bien concret ( à ma portée du moins 🙁 ... ) .

J'ai une Macro qui va récupérer des RANGE ( B6:F13 ) dans ma feuille, mais je souhaiterai également récupérer dans ma Macro la range au dessus ( B3:F5 ), qui sera verrouillée et donc non sélectionnable par les users de ma feuille ...

Dim TabloCycle As String
        TabloCycle = Selection.Address
        Range("B15") = TabloCycle

Ma sélection sous sa forme de variable me retourne $B$6:$F$13.

 

[Softmama]

Re : Récupérer le contenu d'une RANGE au dessus d'une RANGE sélectionnée ...

Bonjour,

une proposition :

Sub Selectionner()
' Récupération de la plage sélectionnée

    Dim Tablo As Range
      Set TabloCycle = Selection.Offset(-1, 0)
        
TabloCycle.Select
' J'utiliserai  "Range(TabloCycle)" pour travailler ma Macro sur ma sélection ! ! !

End Sub

 

[kjin]

Re : Récupérer le contenu d'une RANGE au dessus d'une RANGE sélectionnée ...

J'ai une Macro qui va récupérer des RANGE ( RANGE pour l'exemple B6:F13 ) dans ma feuille, mais je souhaiterai également récupérer dans ma Macro la range au dessus ( RANGE pour l'exemple B3:F5 )

Il y a là une certaine logique qui m'échappe, ou une logique qui m'échappe certainement...
Maintenant, avec une explication claire du but de la manoeuvre...
A+
kjin

 

[Garth69]

Re : Récupérer le contenu d'une RANGE au dessus d'une RANGE sélectionnée ...

Merci de ta réponse Softmama !

C'pas tout à fait ce que je cherche ( Cela s'en rapproche un peu néanmoins 😛 ... ) .

Ton code remonte de -1 ma zone de sélection ( Voir de -3 si je la modifie ), mais la zone de sélection reste la même, alars que je souhaite qu'elle ne concerne plus que la RANGE B3:F5 ( Les 3 lignes colorées ) .

 

[Softmama]

Re : Récupérer le contenu d'une RANGE au dessus d'une RANGE sélectionnée ...

re, bonjour kjin 🙂,

je viens de comprendre la logique !!!
Correction ici :

Sub Selectionner()
' Récupération de la plage sélectionnée
Dim TabloCycle As String
 TabloCycle = Range(Selection.Cells(1).Offset(Selection.Cells(1).End(xlUp).End(xlUp).Row - Selection.Cells(1).Row, 0), Selection.Cells(Selection.Columns.Count).Offset(-1, 0)).Address
 Range("B15") = TabloCycle
 ' J'utiliserai  "Range(TabloCycle)" pour travailler ma Macro sur ma sélection ! ! !
End Sub

que tu peux aussi écrire à mon avis plus simplement ainsi :

Sub Selectionner()
' Récupération de la plage sélectionnée
Dim PlageCycle As Range
 PlageCycle = Range(Selection.Cells(1).Offset(Selection.Cells(1).End(xlUp).End(xlUp).Row - Selection.Cells(1).Row, 0), Selection.Cells(Selection.Columns.Count).Offset(-1, 0))
 Range("B15") = PlageCycle.address
 ' J'utiliserai  l'objet PlageCycle pour travailler ma Macro sur ma sélection ! ! !
End Sub

 

[Garth69]

Re : Récupérer le contenu d'une RANGE au dessus d'une RANGE sélectionnée ...

Il y a là une certaine logique qui m'échappe, ou une logique qui m'échappe certainement...
Maintenant, avec une explication claire du but de la manoeuvre...
A+
kjin

Ma feuille va contenir environ 200 "Zones" sélectables par l'utilisateur ( Similaires à la range B6:F13 de mon fichier exemple ), toutes les autres cellules de ma feuilles seront verouillées pour l'utilisateur ...
Selon la "zone" ( Ou range ) sélectée par l'utilisateur, j'ai besoin de récupérer la range des 3 lignes au dessus de ces zones qui seront sélectées, car elles varieront ( Ce sont des dates et des jours ... ).

Dslé si je suis si peu compréhensible 😛 ...

 

[Garth69]

Re : Récupérer le contenu d'une RANGE au dessus d'une RANGE sélectionnée ...

re, bonjour kjin 🙂,

Je viens de comprendre la logique !!!

Merci ! C'est parfaitement fonctionnel, et répond mon besoin 🙂 ...

Ton 1er code fonctionne bien, le 2eme me renvoie un message d'erreur ( Je vais tenter de "décortiquer l'affaire 😛 , sinon, le 1er va très bien ... ).


Je te remercie grandement de ton aide ! ! !

 

[Softmama]

Re : Récupérer le contenu d'une RANGE au dessus d'une RANGE sélectionnée ...

re,

j'ai oublié de mettre Set devant PlageCycle = .... Elle est là l'erreur.