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

[DeaD78]

Bonjour,

Tu as PLEIN de sujets traitant de ce type de traitements sur le forum, sur le net, dans les FAQ ou dans les Tutos... Tu n'as qu'à te servir...

Pour les pistes, il faut déjà savoir où tu as rentré tes valeurs. Dans des InputBox, dans des cellules ?

Peu importe, que ce soit attribué par une InputBox ou une cellule, admettons que tu passes la valeur de la colonne dans une variable "col" et celle de la valeur recherchée dans "val".

Il ne te reste plus qu'à faire une boucle sur ta colonne et chercher ta valeur :

Code :

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

1
2
3
4
5
For i = 1 to 100 '100 lignes
    If Cells(i,col).value = val Then
        Worksheets("BlaBla").Range("A1").value = Cells(i,col).value
    End if
Next

Et tu te retrouves avec ta valeur en A1 sur la feuille BlaBla.

A tes outils, adapte, cherche..

Bonne chance

[arbotch]

On vien de me montrer comment insérer une pièce jointe. Je vais donc essayer de vous éclairer un peu plus sur mon problème.

Mon problème est illustré dans la pièce jointe

[casefayere]

Bonjour le forum, arbotch,

je viens de regarder ton exemple, il aurait mieux valu que tu joignes ton fichier excel (allégé, bien sur) avec des données bidon si tu le souhaites

Par rapport à ça :

Par exemple pour un pas de 1, une valeur nominale de 7 et une classe P, je souhaiterais obtenir 0,06 et 0,04 dans deux cellules distinctes de la feuil2

si je mets 1 dans le premier textbox (j'imagine que c'est un textbox) et 10 dans le second, P dans le troisième quelle est la réponse attendue ?

et dans quelles cellules distinctes veux-tu la réponse ?

Bonne journée

[Lynx92260]

Si j'ai bien compris voici ma proposition pour répondre à sa demande

Voir la solution ci joint proposé pour ramener l'info souhaite

[arbotch]

Bonjour Casefayere, avec les données que tu m'as demandées il faudrait obtenir 0.06 dans la cellule A1 de la feuil2 et 0.04 dans la cellule A2 de la feuil2.
Si tu avais 1 dans la textbox1, 14 dans la textbox2 et X dans la textbox3, il faudrait obtenir 0.05 et 0.03 dans les cellules donées ci-dessus.

Merci à Lynx92260, je m'ai étudier ce que tu as fait. Merci beaucoup.

[arbotch]

Lynx92260, j'ai ouvert ton fichier Excel, mais je ne vois qu'un tableau?

[Lynx92260]

de mettre un bouton ....

Il faut fouiner un peu dans le code non ??????

Bon désolé sur l'oubli

[arbotch]

Je n'arrive pas à trouver les codes que tu as utilisé pour le programme. J'aurais aimé les voir pour étudier comment tu as fait. Merci

[Lynx92260]

le code se trouve dans l'userform

Tu selectionnes l'userform puis tu demandes d 'afficher le code

Il y a juste ce code pour raffraichir les données ....

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
 
Private Sub ComboBox1_Click()
Dim xls As Worksheet, lIndex As Long
 
    Set xls = ThisWorkbook.Worksheets("Feuil1")
 
    lIndex = ComboBox1.ListIndex + 3
    TxtFiletage.Text = xls.Cells(lIndex, 2)
    If OptionP Then
        TxtSup.Text = xls.Cells(lIndex, 4)
        TxtInf.Text = xls.Cells(lIndex, 5)
    Else
        TxtSup.Text = xls.Cells(lIndex, 6)
        TxtInf.Text = xls.Cells(lIndex, 7)
    End If
 
End Sub

Et la ComboBox1.RowSource=PasFiletage ou la region de la feuille 1 nommée pour des commodites de programmation

Tout simplement

[casefayere]

j'ai du mal à saisir car d'près ce que tu indiques

avec les données que tu m'as demandées il faudrait obtenir 0.06 dans la cellule A1 de la feuil2 et 0.04 dans la cellule A2 de la feuil2.
Si tu avais 1 dans la textbox1, 14 dans la textbox2 et X dans la textbox3, il faudrait obtenir 0.05 et 0.03 dans les cellules donées ci-dessus.

le résultat est le meme que sur ton exemple

Par exemple pour un pas de 1, une valeur nominale de 7 et une classe P, je souhaiterais obtenir 0,06 et 0,04 dans deux cellules distinctes de la feuil2

la valeur nominale n'a pas d'influence sur le résultat ?

[arbotch]

Pour ce tableau, la valeur nominale n'a pas d'influence. Mais je dois faire ceci pour d'autres tableaux dans lesquels la valeur nominale a une influence.