Creation premiere macro vba

Signaler
Messages postés
1
Date d'inscription
samedi 28 mars 2009
Statut
Membre
Dernière intervention
13 janvier 2010
-
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
-
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

1 réponse

Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
74
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)