offset????

[nico]

re salut à tous!

J'essaye desespérement de savoir comment manipuler les offset de cellule par VBA.
En fait j'aimerai savoir comment je me déplace vers la gauche de l'ActiveCell...
activeCell.offset(0, -1) ??
Ca ne fonctionne pas je crois!!!

Avez vous une idée???

Merci

 

[EricS]

Bonjour

activecell.offset(0,-1).select >>>>>>>>pour se déplacer à gauche de 1 col

activecell.offset(0,-1).value = .... >>>>>pour modifier san sse déplacer

cela marche jusqu'aux limites de la feuille

Eric

 

[nico]

Salut eric!

merci pour ta réponse!!
je l'avais fais mais ça ne fonctionnait pas, j'ai dû relancer le fichier et là, surprise: ça fonctionne!!!

Enfin, j'ai une autre question, eric, ou celui qui sait:
Voilà je teste la propriété LOCKED des cellules d'un tableau de plusieurs lignes et plusieurs colonnes; je sais vérifier toutes les cellules d'une colonne mais pour passer à la première cellule de la colonne suivante je n'y arrive pas!!
Je me tire les cheveux avec les offset!!

Quelqu'un pourrait-il m'aider???


MERCI

 

[EricS]

re

le plus simple si on imagine que le tableau est en b2 g11 :

se positionner sur b2
tester les colonnes jusqu'à g (8 colonnes en tout)
se positionner en b3
......pendant les 10 lignes

une solution pour le faire, si tu connais la taille de ton tableau :

dim nbcolonnes as single, nblignes as single, ligne as single, colonne as single
nbcolonnes = 8
nblignes = 10
ligne = 0

range("b2").select
while ligne < nblignes
colonne = 0
while colonne<nbcolonnes
' test de la cellule
if activecell.offset(ligne,colonne)..........then 'Adapter la formule
'.............adapter les actions si vrai
end if
colonne = colonne+1
wend
ligne = ligne+1
wend

NON TESTE mais cela doit fonctionner

Eric