cs_thechosenone5959
Messages postés1Date d'inscriptionsamedi 28 mars 2009StatutMembreDernière intervention13 janvier 2010
-
29 mars 2009 à 08:39
cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 2015
-
29 mars 2009 à 12:50
Bonjour à tous,
Je n'ai aucune connaissance en vb. je souhaiterai donc un peu de votre aide pour traduire en langage vba la macro que j'essaye de réaliser sous excel.
C'est assez simple, je souhaite juste remplir un champs "total" en additionnant des champs contenant des variables chaines. si
l'utilisateur saisit "p1" dans les cellules "a1,a2,a3...a6", on ajoute à a7 (total) le chiffre 4. si
l'utilisateur saisit "p1" dans les cellules "a1,a2,a3...a6", on ajoute à a7 (total) le chiffre 5. Ce qui donne cela
Dim i as integer
For i range [A1:A6]
if i = "P1" then
A7(contenu de la cellule) = A7 + 4
elseif i="P2"
A7(contenu de la cellule) = A7 + 5
Endif
Merci d'avance pour la traduction
Cordialement Kévinthechosenone5959
Junior
Messages: 33
Inscrit le: Lun 22 Mai 2006, 6:12Haut
cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 201579 29 mars 2009 à 12:50
Salut
Essaye ça :
Dim maCellule As Object
Dim Total As Long
Total = Cell("A7").Value
For Each maCellule In Range("A1:A6") If maCellule.Value "P1" Then Total Total + 4 If maCellule.Value "P2" Then Total Total + 5
Next
Cell("A7").Value = Total
Fait de mémoire --> Regarde dans l'aide de Excel si besoin
Vala
Jack, MVP VB NB : Je ne répondrai pas aux messages privés
<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)