VBA: Problème boucles et conditions
Bonjour,
Je suis en ce moment entrain de travailler sur un dossier VBA. Je dois calculer la quantité de produits A , B et C à partir d’un tableau, dans le désordre. Les formules à utiliser sont les boucles For et les conditions avec IF THEN.
J’aimerais de l’aide car après plusieurs heures passer sur la question, c’est compliqué et mon niveau actuel en VBA n’aide pas plus…
Je vous mets le dossier en pièce jointe, avec ma dernière tentative pas très glorieuse....
j’espère que vos réponses m’aideront à comprendre mes erreurs et à améliorer mon niveau !
Merci d’avance :)
Bonjour et bienvenue sur le forum
Une formule suffit :
Bye !
j'ai une petite erreur de récupération du dossier et de la macro.
Est ce que ce serait possible que vous l'écriviez directement sur la conversation ?
Merci à vous !
NON j'arrive pas à ouvrir le fichier, je voulais donc savoir si vous pouviez éventuellement mettre la macro sur la discutions du forum. $
merci à vous, bonne soirée.
la discussion de mon sujet.
merci encore.
j'ai une petite erreur de récupération du dossier et de la macro
Il n(y a pas de (nouvellle) macro dans le fichier V1, juste une formule.
Quant à la V2, voilà la macro :
Sub exercicenumŽro1()
Dim i&, iF2&
'totoA = 0
With Sheets("Feuil1")
Range("D5").CurrentRegion.Offset(1, 1).ClearContents 'Initialisation de la plage de résultat
For i = 1 To 15 'on va passer chaque ligne de la 1° a la 15° de la fFeuil1
'For ni = 1 To 2
'Next
For iF2 = 6 To 8 'pour chacune des lignes précédente (i) on va passer les
'les 3 lignes de la Feuil2 de la 6° à la 8°
If .Range("A" & i) = Range("D" & iF2) Then
Range("E" & iF2) = Range("E" & iF2) + .Range("B" & i)
End If
Next iF2
Next i
End With
'If Cells(i, 1).Value = "A" Then
'totoA = totoA + Line.Value = "A"
'End If
'Worksheets("feuil2").Range("E6").Value = "totoA"
End Subça fonctionne, je vous remercie !