Selection de cellules non contigues

bonjour

Je débute en vba.

je souhaite sélectionner des cellules sur une seule ligne.

ex : H15 et D15.

ainsi je pourra simplifier mon code pour écrire ce qui suit sur 2 lignes uniquement mais je sèche.

Range("D15").Select

ActiveCell.FormulaR1C1 = "2"

Range("H15").Select

ActiveCell.FormulaR1C1 = "2"

J'ai bien testé avec :

Range("D15, H15").Select

ActiveCell.FormulaR1C1 = "2"

mais VB ne prend pas en compte la deuxième cellule. De même si je teste avec union.

pouvez vous m'aider?

Bonjour toutes et tous

@Jeff59, si, j'ai bien compris, ci-joint

Explication:

Dans un module 'Module1

Option Explicit
' Déclaration variable
Dim formule1, formule2 As String

Sub test()
' la macro

' en cas d erreur
On Error GoTo plouf

' la feuille1
With Sheets("feuil1")
Range("d15").Select
formule1 = "=2"
ActiveCell.FormulaR1C1 = formule1

Range("h15").Select
formule2 = "=2"
ActiveCell.FormulaR1C1 = formule2
End With

' la selection
Range("d15:h15").Select
plouf: Exit Sub
End Sub

crdlt,

André

Bonjour à tous,

Sur une seule ligne, ça va quand même ?

Range("D15, H15").Value = 2

note bien que j'ai écrit 2 (nombre, et non "2" (texte !!)

Les .Select sont à bannir tant que tu peux (il y a de rares fois où tu es obligé).

Ca ralenti beaucoup l'exécution.

eric

eriiic a écrit :

Bonjour à tous,

Sur une seule ligne, ça va quand même ?

Range("D15, H15").Value = 2

note bien que j'ai écrit 2 (nombre, et non "2" (texte !!)

Les .Select sont à bannir tant que tu peux (il y a de rares fois où tu es obligé).

Ca ralenti beaucoup l'exécution.

eric

RE, génial Eric c'est tout à fait ce que je voulais !!!

Encore merci