Discussion :

[yzf-r]

Salut,

J'ai créé une fonction assez simple pour déterminer le status d'une ligne en fonction de ces cellules.
Sauf que je plante sur une étape.
je dois vérifié que la valeur de ma cellule ASRCN soit bien présente dans la colonne d'une seconde feuille (ASR_CN en l'occurrence).
J'ai tenté le coup avec une sorte de IN mais c'est pas bon!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Function CalculateStatus(ASRType As String, ASRState As String, ASRCN As String)
 
Dim strResult As String
 
   If ASRType = "ASR Problem" Then
        If ASRState = "Waiting" Then
            If ASRCN <> "" Then
                strResult = "ERROR1"
            Else
                If ASRCN in Range(ASR_CN!B:B).Cells then
                    strResult = "Waiting for CN resolution"
                Else
                    strResult = "ERROR2"
                End If
            End If
        End If
    End If
 
    CalculateStatus = strResult
 
End Function

Dans le meilleur des mondes, ma cellule ASRCN à le même format que la colonne B:B de la seconde feuille.
En gros:
Feuille 1
ASR-1
ASR-2
ASR-3

Feuille 2
ASR-4
ASR-1

donc la comparaison est simple.
Mais parfois, sur le feuille1, je peux avoir pour ma cellule ASRCN des valeurs tels que:
ASR-152, ASR-153
ASR-15, ASR-16, ASR-17

Comment vérifié si chacune des valuers ASR-15, ASR-16, ASR-17 est bien présent dans ma colonne B:B de la seconde feuille?

Je sais, je suis gourmand

Par avance merci

[Philippe Tulliez]

Bonjour,
Sans avoir regardé l'ensemble du code, il y a un problème dans le type des arguments et surtout pour ASRCN.
Soit c'est un range (cellule), soit c'est un string et le traitement est différent.
Petit exemple, ci-dessous avec une fonction qui fait la somme d'une plage.
Exemple 1 - Argument de Type Range

Code :

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

1
2
3
Function SommePlage(asrn As Range) as Double
 SommePlage = Application.WorksheetFunction.Sum(asrn)
End Function

Exemple 2 - Argument de type String (Chaine de caractères)

Code :

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

1
2
3
Function SommePlage(asrn As String) as Double
 SommePlage = Application.WorksheetFunction.Sum(Range(asrn))
End Function

Le résultat renvoyé par la fonction sera le même sauf que dans l'exemple 1, on sélectionne une plage, dans l'exemple 2, il faut entrer une chaîne de caractère par exemple "A2:A10"

[yzf-r]

Merci pour ta réponse Corona, par contre, je ne suis pas sur de suivre.

Mon problème porte sur la partie:

Code :

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

1
2
3
 
If ASRCN in Range(ASR_CN!B:B).Cells then
                    strResult = "Waiting for CN resolution"

si je ma remplace par exemple par:

Code :

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

1
2
3
 
If ASRCN ="Toto" then
                    strResult = "Waiting for CN resolution"

pas de soucis.
Dans ma feuille excel ensuite, lorsque sur ma cellule Z2 je rentre =CalculateStatus(A2;C2;K2)
le résultat est correct.

Mais je dois vérifier que la valeur de ma cellule ASRCN soit bien présente dans la colonne d'une seconde feuille (ASR_CN en l'occurrence).
J'ai tenté le coup avec une sorte de IN mais c'est pas bon.

C'est pour cela que je ne vois pas le rapport avec la fonction somme que tu me décrits!
Désolé, je débutes

[Philippe Tulliez]

Bonjour,
J'ai lu un peu rapidement ton code.
Si tu cherches une chaîne de caractères dans un range, regarde du côté de la méthode FIND.
Petit exemple ci-dessous. La fonction Recherche te renvoie l'adresse du string recherché

Code :

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

1
2
3
Function Recherche(ASRN As String)
  Recherche = Range("Feuil1!A:A").Find(ASRN).Address
End Function

Ajout : J'ai oublié de dire que cette instruction sauf ignorance de ma part, et c'est toujours possible, n'existe pas

Code :

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

If ASRCN in Range(ASR_CN!B:B).Cells

[yzf-r]

merci
je pense être proche du but!

une autre question néanmoins, comment faire un test pour vérifier si le retour est vide ou non. J'ai essayé:

Code :

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

If Range("ASR_CN!B:B").Find(ASRCN).Address <> "" Then

mais cela ne semble pas bon.

[jfontaine]

Bonjour,

Essais comme cela

Code :

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

If Range("ASR_CN!B:B").Find(ASRCN) is nothing Then

[Philippe Tulliez]

Bonsoir,
Petit exemple : Si la chaine est trouvée la fonction renvoie "Trouvé", sinon "Pas trouvé".

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Function Recherche(ASRN As String)
  Dim celF As Range
  With Worksheets("Feuil1").Range("A:A")
   Set celF = .Find(ASRN, Lookat:=xlWhole)
   If Not celF Is Nothing Then
     Recherche = "Trouvé"
    Else
     Recherche = "Pas trouvé"
   End If
  End With
End Function
 
Sub test()
 msgbox Recherche("ToTo")
End Sub