decalage cellule

[pikpik]

Voici un problème qui s'avère je presumme pas très difficil mais je ne vois pas pourquoi cela ne marche pas. Je veux récupérer des valeurs et les recopier en lançant une fonction qui est la suivante:

Function trait(ByRef cellcourante As Range) As Integer

trait = 0

Dim Mat As String
Dim Vis As String

cellcourante = cellcourante.Offset(2, 2)
Mat = cellcourante.Value
cellcourante = cellcourante.Offset(3, 0)
Vis = cellcourante.Value
cellcourante.Offset(10, 10).Select
ActiveCell.FormulaR1C1 = Mat

End Function

Le problème est que cellcourante garde toujours comme valeur 'A1' et donc je ne peux pas lire les données du fichier car je reviens toujours au départ à la fin de l'appel de la fonction!!!!!

Euh c'est pas très clair lol

 

[pikpik]

Bon ben pas de réponse. Je vais reformuler ma question:

Pourquoi si j'écris

ActiveCell = ActiveCell.Offset(2, 2)
Mat = ActiveCell.FormulaR1C1

et que par exemple activecell vaut avant cette instruction A1, mat récupère bien la valeur de C3 mais si je reecris

ActiveCell = ActiveCell.Offset(3, 3)
typ = ActiveCell.FormulaR1C1

Je récupère la valeur de D4 mais pas celle de F6. Pourquoi svp????

 

[Moa]

Salut Pikpik !


Offset(Ligne, Colonne)

Donc, si cellule active = A1, offset(3,3) donne un décalage de 3 lignes et trois colonnes, soit D4 !

@ +++

Moa

 

[pikpik]

Oui mais ce que je ne comprends pas c'est que lorsque je mets

dim cellcourante as range

set cellcourante = range('A1')
cellcourante.select

ActiveCell = ActiveCell.Offset(2, 2)
Mat = ActiveCell.FormulaR1C1

La cellule active c'est bien C3???