Discussion :

[Thibautrives]

Bonjour,
J'ai un petit problème à résoudre avec un code vba :
Je voudrais pouvoir récupérer le numéro de la ligne qui vérifie cette condition : lorsque dans une colonne A une valeur Va est atteinte, et que dans une autre colonne B la valeur Vb est atteinte. J'ai trouvé une solution sous excel à l'aide des fonctions :index(), equiv() et si() mais je n'arrive pas à la transcrire en vba.

Serait-il possible d'avoir un petit coup de pouce?

Merci
Thibaut

[Godzestla]

Salut,

as-tu essayé de faire Macro - >Enregistrement nouvelle macro et puis de faire F2 sur la/les cellules ou ta/tes fonctions(s) se trouve(nt).

Dans le module généré, tu verras certainement du code qui t'aideras.

J'espère que ce n'est pas trop simpliste.

A+

[fring]

Bonjour,

Quelque chose de ce style ?

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
Sub test()
Dim i As Integer, r As Integer
 
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
    If Cells(i, 1) = "Va" Then
        If Cells(i, 2) = "Vb" Then
            r = Rows(i)
            Exit For
        End If
    End If
Next
 
MsgBox "la ligne contenant Va et Vb est : " & r
 
End Sub

[Thibautrives]

Merci pour ta réponse, mais j'ai déja essayé d'utiliser le code correspondant mais lorsque je veux utiliser la fonction avec un Application.WorksheetFunction.index par exemple, cela ne fonctionne pas.

[Thibautrives]

j'ai testé le code, et j'ai un message du genre : incompatibilité de type...c'est exactement ça que je veux faire.

[fring]

Je crois que j'ai fait une petite boulette au niveau de la ligne trouvée, essaye comme ceci

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
Sub test()
Dim i As Integer, r As Integer
 
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
    If Cells(i, 1) = "Va" Then
        If Cells(i, 2) = "Vb" Then
            r = i '<-- modif
            Exit For
        End If
    End If
Next
 
MsgBox "la ligne contenant Va et Vb est : " & r
 
End Sub

[Thibautrives]

En enlevant le rows() et en utilisant directement la valeur de i, ça fonctionne bien.

Merci!