adresse cellule en vba

[steve]

bonsoir le forum

je voudrais definir l' adresse d'une cellule en vba
puis luis rajouter une variable fgt=3 pour que la cellule active se deplace de 3 case vers la gauche



Merci d' avance
et bonne année

 

[Hellboy]

Bonsoir steve

Définir une adresse en VBA ??


Range('A1') ou Cells(1,1)

Pour le déplacement, la commande Offset(ligne,Colonne)

Pour appliquer ta demande à la cellule active:

ActiveCell.Offset(0, -3).Activate

 

[ol39]

une des solutions:
Dim macellule As Range
Set macellule = Range('A1')
macellule.Select
Set macellule = macellule.Offset(0, 3)
macellule.Select

par exemple

 

[Hervé]

bonsoir steve, ami philippe, ol

juste pour information :

On peut se passer du offset : ActiveCell(1, -3).Select

ol, on déconseille fortement la sélection de cellule, plusieurs raisons :

1) ca ralentit le traitement du code
2) ca fini par etre génant visuellement
3) c'est franchement inutile

salut

 

[Dan]

Bonsoir,

Complément à Hellboy avec cette macro :

Sub test()
'Macro par Dan pour XLD
Dim i As Byte
On Error Resume Next
i = 3
ActiveCell.Offset(-i, 0).Activate
End Sub

Avec -i caractérisant le déplacement à gauche. Par défaut Excel fait un déplacement à droite.

Si pb n'hésite pas

 

[Dan]

Re,

Oups hervé je ne t'avais pas vu. Cela va dans le même sens de toute façon.

 

[steve]

Merci a tous
Voila ma macro qui fonctionne

Dim n As String
Dim Chw As String
Dim i As Byte
n = ActiveCell
Sheets('accueil').Select
Cells.Find(What:=(n), After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
i = 4
ActiveCell.Offset(0, -i).Activate
End Sub

A+
:woohoo:

 

[PascalXLD]

Bonjour tout le monde

Il serait peut-être bien aussi de t'assurer que tu peux aller 4 colonnes à gauche

Imagine que tu sois en colonne c là ça bug

Bonne journée

 

[Dan]

Re,

Exact Pascal, c'est d'ailleurs pour cela que j'avais placé l'instruction On error resume next.
Mais Steve ne l'a pas reprise dans sa macro.

Bonne soirée