Discussion :

[zakuli]

Bonjour,

Pour appeller une cellule au sein d'une fonction VB, on peut soit utiliser un ou un Range(cellule)

La première cellule en haut à gauche est donc pour le
Cells(ligne, colonne) : en ligne 1 et colonne 1
pour le Range(cellule) en A1

Si dans ma fonction VB je veux pouvoir appeller la cellule dans le mode range, je peux écrire ma fonction : fonction(cellule as string)

Dans une cellule d'une feuille je devrai donc mettre =fonction("A1")

L'inconvénient de cela est que si l'on recopie la cellule en dessous de la précédente, on aura toujours =fonction("A1") là où la copie a été faite et non comme je le souhaiterai =fonction("A2"), car comme il s'agit d'une string et non d'une adresse de cellule, Excel la laisse invariante à la recopie.

Comment faire pour que ma fonction marche avec =fonction(A1) ? Comment déclarer la variable cellule dans la fonction pour qu'elle soit considérée comme une adresse ?

Merci

[jfontaine]

Bonjour,

Il te faut declarer ta variable en type Range

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

fonction(cellule as Range)

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Public Function Fonction(byref rng as Range)

et dans ta feuille tu écris =Fonction(A1)
et ça fera l'affaire

[aalex_38]

Bonjour,

Au lieu de transmettre un string, transmet directement une cellule :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Public Function MaFonction(ByVal Target As Range)

[zakuli]

Bon merci à tous, mais ça ne marche pas chez moi, le contenu de la cellule où j'ai mis la fonction renvoie #VALEUR !

Où est l'erreur ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Function Couleur(feuille As String, cellule As Range) As Long
Application.Volatile
Couleur = Sheets(feuille).Range(cellule).Interior.ColorIndex
End Function

Merci

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Function Couleur(feuille As String, cellule As Range) As Long
 
    Application.Volatile
    Couleur = Sheets(feuille).cellule.Interior.ColorIndex
 
End Function

[Pierre Fauconnier]

Bonsoir

Puisque tu passes un objet Range, tu n'as pas besoin de passer le nom de ta feuille...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Function Couleur(Cellule As Range) As Long
 
    Application.Volatile
    Couleur = Cellule.Interior.ColorIndex
 
End Function

[zakuli]

Merci Pierre, Merci mercatog,

Ca roule parfaitement comme cela

Cordialement