Discussion :

[arbotch]

Bonjour, je suis débutant en vba et j'aurais grand besoin d'aide.

J'ai créé un tableau Excel de 200 lignes et 3 colonnes. En fait in faudrait que pour un certaine valeur donnée dans la colonne 1 (par exemple 5) et un autre valeur donnée dans la colonne 2 (par exemple 15), le programme me donne la valeur correspondante de la colonne 3. Je pense qu'il faut utiliser des boucles for mais je ne sais pas faire.

Je vous remercie d'avance.

Cordialement.

[DeaD78]

Bonjour,

A main levée et selon ton exemple ça donne :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub test()
 
For i = 1 To 200
    If Cells(i, 1).Value = "5" Then
        If Cells(i, 2).Value = "15" Then
            MsgBox Cells(i, 3).Value
        End If
    End If
Next
 
End Sub

Et voilà !

bonne chance

[casefayere]

Bonjour,

tu peux peut-etre adapter un code dans ce gout là, avec les éléments que tu donnes

Code :

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

1
2
3
4
5
6
7
8
dim dl as integer, x as integer
dl = range("a" & rows.count).end(xlup).row
 
for x = 1 to dl
if range("a" & x) = 5 and range("b" & x) = 15 then
msgbox range("c" & x).value
end if
next x

[Fvandermeulen]

Bonjour et bienvenue,
Désolé mais c'est pas très clair,
Une valeur donnée? comment indique tu la valeurs de ta colonne 1 et 2 dans une boite de dialogue, dans des celulles ?
De même comment veux tu retrouver le résultat, dans une celulle, dans une boite de dialogue,...
Est ce que chaque ligne est unique, ou y a t'il des doublons ?
Il faut un peu plus d'explications pour pouvoir t'aider.

Edit: Bah il y en a des plus perspicaces que moi

[arbotch]

Voila en fait les deux valeurs données sont entrées dans une boite de dialogue que j'ai créé. Et j'aimerais que la réponse me soit donnée sur une feuille Excel dans une cellule.

Merci.

[DeaD78]

Pour avoir la réponse donnée dans la feuille BlaBla disons dans la cellule A1, tu remplaces

Code :

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

MsgBox Cells(i, 3).Value

par

Code :

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

Worksheets("BlaBla").Range("A1").Value = Cells(i, 3).Value

Est-ce que tu souhaites ?

[arbotch]

oui, c'est ce que je souhaite. Mais est-ce que le code donné ci-dessus est correct si j'utilise une boite de dialogue ? Merci.

[casefayere]

si je reprends mon exemple

Code :

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

1
2
3
4
5
6
7
8
9
10
dim dl as integer, x as integer, v2 as string, v1 as string
v1 = inputbox("valeur1","entrez la valeur")
v2 = inputbox("valeur2","entrez la valeur")
dl = range("a" & rows.count).end(xlup).row
 
for x = 1 to dl
if range("a" & x) = v1 and range("b" & x) = v2 then
Worksheets("BlaBla").Range("A1").Value = range("c" & x).Value
end if
next x

[DeaD78]

Re,

Prends le dernier code de casefayere (salutations ! ), c'est le plus optimisé.

Bonne continuation