Appel plage de cellules par une fonction/feuille différente Fermé

Question

Bonjour, 

J'ai programmé cette fonction VB EXCEL qui appelle une plage de cellules. Elle donne un mauvais résultat si cette plage n'est pas dans la feuille qui appelle la fonction, alors que je lui donne la bonne adresse de plage. Je ne sais pas s'il faut activer la feuille de la plage ni comment le faire.
Function MaxiA(plage As Range, vent, direction, angle1, angle2, polaire) As String '
Dim li
Dim chaine As String
Dim vitesse As Single
Dim anglei As Single
Dim bat As Single
Worksheets(polaire).Activate
anglei = 181
i = 0
vMax = 0
vitesse = 0
anglei = 181
For Each li In plage
    i = i + 1
    anglei = anglei - 1
If (anglei <= angle2) And (anglei >= angle1) Then
    bat = anglei + vent - 360
    vitesse = Abs(Range("A" & (li.Row)) * Cos((bat - direction) * 3.14159265359 / 180))
'chaine = chaine & "v" & Int(vitesse * 1000) / 1000
'chaine = chaine & "i" & i
    If (vitesse > vMax) Then
        vMax = vitesse
        iMax = i
        angleMax = anglei
    End If
End If
Next li
vMax = Int(vMax * 1000) / 1000
bat = angleMax + vent - 360
MaxiA = "d" & bat & "v" & vMax & "a" & angleMax
'MaxiA = chaine
End Function

Heliotte · Answer

Bonjour robert.perrin8,

Deux méthodes existent pour cette situation:
1° - Il faut ajouter le nom de la feuille:
       Worksheets(polaire).Activate, si polaire est une variable
       Worksheets("polaire").Activate, si polaire est le nom de l'onglet
2° - Travailler avec une plage nommée. Il faut déclarer les cellules dans une plage à laquelle on donne un nom. Il suffit ensuite de nommer le nom de cette plage pour y faire référence.

f894009 · Answer

Bonjour,

Cette fonction  est appelee comment: en partant d'une cellule, d'un code VBA????

f894009 · Answer

Re,
Avez-vous mis le nom de la feuille devant la plage de cellules,

ex:=MaxiA(Feuil2!A1:A12;.........)

A+

ccm81 · Answer

Bonjour à tous,

> robert
Peux tu envoyer ton fichier au format excel 2003 (ou une partie exploitable) sur cjoint.com et joindre le lien obtenu à ton prochain message.
N'oublies pas d'y joindre quelques exemples (données+résultat attendu) de ce que tu veux obtenir

Bonne suite

Appel plage de cellules par une fonction/feuille différente

4 réponses

Discussions similaires