aide programmation vba

Version imprimable

26/05/2009, 16h22
arbotch

aide programmation vba

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.

Bonjour,

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

Code:

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 :ccool:

Bonjour,

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

Code:

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

26/05/2009, 16h41
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 :calim2:
26/05/2009, 16h44
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.
26/05/2009, 16h51
DeaD78

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

Code:

MsgBox Cells(i, 3).Value

par

Code:

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

Est-ce que tu souhaites ?
26/05/2009, 16h56
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.

si je reprends mon exemple

Code:

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

26/05/2009, 17h13
DeaD78

Re,

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

Bonne continuation
27/05/2009, 17h20
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... :roll:

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:

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 :ccool:
27/05/2009, 17h46
arbotch

1 pièce(s) jointe(s)

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
28/05/2009, 07h08
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 :

Citation:

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
28/05/2009, 08h55
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

:ccool:
28/05/2009, 09h25
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.
28/05/2009, 09h27
arbotch

Lynx92260, j'ai ouvert ton fichier Excel, mais je ne vois qu'un tableau?
28/05/2009, 09h48
Lynx92260

1 pièce(s) jointe(s)

j'ai oublié

de mettre un bouton ....

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

Bon désolé sur l'oubli

:ccool:
28/05/2009, 09h58
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

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:

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 :ccool:

28/05/2009, 10h52
casefayere

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

Citation:

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

Citation:

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 ?
28/05/2009, 12h26
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.
28/05/2009, 16h03
arbotch

J'aimerais que mes trois résultats apparaissent dans trois cellules différentes et pas dans une boite de dialogue.
28/05/2009, 16h05
casefayere

cette réponse

Citation:

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.

ne m'aide pas car j'ai des idées mais je suis sur qu'il faudra les revoir en fonction des feuilles, envoies un fichier simplifié, ça ira mieux pour moi.....et pour les autres

Bonne soirée