XL 2016 Plage de cellules non contiguës

[VINCI2A]

Bonjour cher forum,

Sur une feuille, j'ai sélectionné plusieurs cellules non contiguës à l'aide de la touche CTRL.
Pensez-vous possible de connaître (ou consolider dans une variable type tableau) toutes les "range" des cellules de la sélection ?

L'idée est par la suite d'inscrire la même valeur dans chacune des cellules de la sélection.

Un grand merci d'avance.

 

[Hasco]

Bonjour,

Par exemple, mettra 4 dans les cellules des plages :

Range("$G$84:$I$84,$K$87:$K$92,$K$83:$N$83").value =4

Notez la virgule comme séparateur de plage de cellules dans les adresses.

Cordialement

 

[Eric C]

Bonsoir le forum
Bonsoir VINCI2A, Oupssss désolé Bonsoir Hasco

Tu peux faire un truc du genre (peut être un peu plus long mais bon, une fois répertorié...) :

Option Explicit

Sub ecrire_dans_cell()
Dim Cels As Range

Set Cels = Range("A1,B2,C3,D4,E5,F6,G7")
.......
[Cels] = "Bonjour"
........  
End Sub

A voir
Bonne soirée à toutes & à tous
@+ Eric c

 

[VINCI2A]

Bonsoir Hasco, Eric C,
Merci pour vos retours rapides.

En fait, la sélection n'est pas toujours la même... du coup, les cellules non contiguës peuvent être différentes.
Ce serait de connaître la range de la ou des cellules d'une sélection.

 

[Hasco]

Re,

Range(Selection.Address) = valeur

Ou

Selection = Valeur

Avec test de sélection pour s'assurer qu'il s'agit d'un objet range

If TypeOf Selection Is Range Then Selection = Valeur

Pas plus compliqué.

Cordialement

 

[VINCI2A]

Merci Hasco... et oui comme dit... pas plus compliqué ! J'étais parti dans un autre délire en fait !!!!!
Bonne soirée à tous !!

 

[Hasco]

Re,

Hi, hi, hi, ça m'arrive aussi...