Simplifier code avec offset

Bonjour,
J'ai une macro qui créer écrit des données dans une feuille et fait des mises en formes :mouarf:
J'ai utilisé la fonction :

Code:

---

1 2 3 4

worksheets(nom de la feuille).range("a1").activate with selection .range("a7").interior.colorindex = "46" .range("a7:g7").merge

---

etc...

pensez vous que je devrais remplacer par la fonction offset afin de prendre comme valeur de départ "a1" ? je ne sais pas si je suis clair.
En faite je veux choisir une cellule de base et que les autres soient dépendantes de celle là par rapport à leur position (ligne et colonne)

D'ailleurs comment puis je faire un offset pour fusionner des cellules ?

Salut,
Sans rentrer dans le débat de l'utilisation du Merge (souvent déconseillé) voici une piste (une méthode parmis d'autres) pour gérer tes plages.
Tu peux utiliser Cells, qui fonctionne en indiquant le numéro de ligne et de colonne, donc facile de faire + et -
Exemple:

Code:

---

Range("B3")

---

s'écrit

Code:

---

Cells(3,2)

---

et

Code:

---

Range("B3:D5")

---

S'écrit

Code:

---

Range(cells(3,2),cells(5,4))

---

Admettons ta cellule de départ en B3 (cellule active) et ta plage +2 lignes et +3 colonnes, donc range("B3:E5") le code en guise d'exemple:

Code:

---

1 2 3 4 5 6 7

Sub format()   'Attention Activecell s'applique sur la feuille ACTIVE !!! Range(ActiveCell, Cells(ActiveCell.Row + 2, ActiveCell.Column + 3)).Interior.ColorIndex = 46 'Met la plage en couleur Range(ActiveCell, Cells(ActiveCell.Row + 2, ActiveCell.Column + 3)).Merge 'Fusionne la plage   End Sub

---

A+

Salut
En complement de ce qui vient d'etre ecrit par Fvandermeulen.

Gros avantage de cells a mon gout, il supporte cette forme d'écriture

Code:

---

cells(2,"A") 'cells(2,1)

---

ce qui a mon gout est bien plus lisible lorsque l'on recherche quelque chose dans sont code.

Tu peux aussi faire des recherches (touche F1) sur les fonction suivante
Offset et Resize

A++
Qwaz

merci à tous pour vos réponses je vais essayer !