XL 2016 Plage de cellules non contiguës

Hasco

XLDnaute Barbatruc

Repose en paix

• 5 Février 2022

• #2

Bonjour,

Par exemple, mettra 4 dans les cellules des plages :

VB:

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

 

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 5 Février 2022

• #3

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

VB:

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

 

Vote positif 0 Vote négatif

V

VINCI2A

XLDnaute Nouveau

• 5 Février 2022

• #4

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. 😉

 

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 5 Février 2022

• #5

Re,

Range(Selection.Address) = valeur

Cliquez pour agrandir...

Ou

Selection = Valeur

Cliquez pour agrandir...

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

If TypeOf Selection Is Range Then Selection = Valeur

Cliquez pour agrandir...

Pas plus compliqué.

Cordialement

 

Vote positif 0 Vote négatif

Solution

V

VINCI2A

XLDnaute Nouveau

• 5 Février 2022

• #6

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

 

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 5 Février 2022

• #7

Re,

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

 

Vote positif 0 Vote négatif