fonction offset

Staple1600

XLDnaute Barbatruc

• 27 Juillet 2011

• #2

Re : fonction offset

Bonsoir


Si j'ai bien compris la question.

Code:

Sub a()
Range("B1").Offset(, 3).Resize(, 3).MergeCells = True
End Sub

 

Vote positif 0 Vote négatif

K

krysos

Guest

• 27 Juillet 2011

• #3

Re : fonction offset

Pratiquement oui. En tout cas, cela m'apporte la solution.

En fait, ma cellule de départ est déjà activée à la suite d'une recherche.

La formule que je cherchais est effectivement celle-ci :

ActiveCell.Offset(2, 3).Resize(, 3).MergeCells = True

Cliquez pour agrandir...

C'est parfait, merci beaucoup, je vais pouvoir continuer.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 27 Juillet 2011

• #4

Re : fonction offset

Bonjour,

Jean-Marcel à dit:

Bonjour
ou encore

Code:

Sub TUTU()
    ActiveCell.Range("D1:F1").Select
End Sub

Cliquez pour agrandir...

pas sur que "ActiveCell" soit nécessaire dans ce cas...

bonne journée
@+

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 27 Juillet 2011

• #5

Re : fonction offset

Re,

façon peu orthodoxe de coder.... et peu clair à la lecture...

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 27 Juillet 2011

• #6

Re : fonction offset

Re,

perso, c'est pas le style de code que je conseillerais.... je baserais jamais une appli comme ca... enfin c'est juste mon avis...

 

Vote positif 0 Vote négatif

K

krysos

Guest

• 27 Juillet 2011

• #7

Re : fonction offset

Merci pour ces détails complémentaires. Les 2 formules fonctionnent correctement, mais dans le cas de celle que j'ai cité, je trouve qu'il est effectivement plus facile de s'y retrouver en partant de la cellule de base.

Je ne vois pas vraiment l'utilité d'utiliser la fonction Range, sinon pour se compliquer la vie 🙂

 

Dernière modification par un modérateur: 27 Juillet 2011

Vote positif 0 Vote négatif

K

krysos

Guest

• 27 Juillet 2011

• #8

Re : fonction offset

J'ai précisé en citant la formule

En fait, ma cellule de départ est déjà activée à la suite d'une recherche.

Cliquez pour agrandir...

Par conséquent, je ne sais pas où la cellule de base se trouve.

J'avais cité B1 comme exemple, mais ce n'était qu'un exemple.

La fonction Resize par contre permet de situer plusieurs cellules positionnées par rapport à la cellule active de base et je pense qu'il est plus clair de compter les cellules d'où ma préférence pour :
ActiveCell.Offset(2, 3).Resize(, 3).MergeCells = True
plutôt que ActiveCell.Range("D3:F3").Resize(, 3).MergeCells = True

 

Vote positif 0 Vote négatif