Discussion :

[stmastma]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[Fvandermeulen]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("B3")

s'écrit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(3,2)

et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("B3:D5")

S'écrit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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+

[Qwazerty]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[stmastma]

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