P
pikpik
Guest
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:
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
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