cs_Bacano
Messages postés2Date d'inscriptionvendredi 30 juillet 2004StatutMembreDernière intervention30 juillet 2004
-
30 juil. 2004 à 21:08
louisvbfrance
Messages postés31Date d'inscriptiondimanche 4 mai 2003StatutMembreDernière intervention12 mars 2009
-
2 août 2004 à 01:55
Bonjour messieurs dames.
J'essaie de faire quelque chose qui me paraît très simple, mais qui est très compliqué lorsqu'on ne connaît absolument rien à VBA.
Comme le titre l'indique: ma question concerne la condition IF-THEN
Voici le problème (de débutant). Avec mon ami Excel, lorsque nous essayons d'établir un contact avec VBA je lui dis "écoute, je souhaite que tu ailles à la case A1 et A2, que tu voies leur valeur, si A1 est égal à 2 ET A2 est égal à 3 tu mets dans la case A3 la valeur 17 (ou une valeur contenue sur une autre cellule, dans un tableau par exemple). Si A2 est égal à 2 ET A2 à 6, tu mets 19 en A3..." mais VBA est têtu... Je passerais bien par les formules type "=SI" mais avec VBA ce devrait être BIEN plus simple.
cs_liquide
Messages postés1016Date d'inscriptionsamedi 22 mars 2003StatutMembreDernière intervention24 juin 2008 30 juil. 2004 à 22:14
salut, je suis d'accord avec Frop01, le VBA est utile surtout quand tu utilises une interface. Si il n'y en a pas, pas la peine. Ceci dit tu peux toujours paramètrer en Macro et la lancer quand le besoin est.
Il existe certe le If Then Elseif Then Else End If, mais il faut aussi penser a utiliser le Select case, lui aussi est très pratique.
Neo.balastik
Messages postés796Date d'inscriptionjeudi 17 mai 2001StatutMembreDernière intervention 5 mai 20097 30 juil. 2004 à 22:27
Salut ;O)
Simplissime ....
Dans ta feuille Excel, appuye en même temps sur ALT + F11 pour atteindre l'IDE de VBA et ensuite va sur la feuille désirée dans la liste située à gauche et colle ceci :
Private Sub Worksheet_Change(ByVal Target As Range)
If Cells(1, 1) 2 And Cells(2, 1) 3 Then Cells(3, 1) = 17
cs_Bacano
Messages postés2Date d'inscriptionvendredi 30 juillet 2004StatutMembreDernière intervention30 juillet 2004 30 juil. 2004 à 23:06
Merci camarades.
En fait en ce qui concerne la formule SI, ma faible expérience en la matière ne m'a pas permis d'utiliser au mieux l'outil. Il me semble que chaque formule SI est limitée à 7 conditions, et comme les chiffres sont nombreux sur ce tableau (une cinquantaine), et en rajoutant à cela les doubles conditions... bref, plutôt compliqué à mettre en place pour moi :)
Vous n’avez pas trouvé la réponse que vous recherchez ?
louisvbfrance
Messages postés31Date d'inscriptiondimanche 4 mai 2003StatutMembreDernière intervention12 mars 2009 2 août 2004 à 01:51
Et pour reprendr e NeoBalistik, tu peux faire :
If Cells(1, 1) 2 And Cells(2, 1) 3 Then
Cells(3, 1) = 17
Cells(15,4)=cells(14,22)
'là tu met ce que tu veux faire ...
'et encore d'autre choses...
end if
Si tu n'aime pas cells(1,1), tu peux remplacer par Range("A1")
Julien :)
louisvbfrance
Messages postés31Date d'inscriptiondimanche 4 mai 2003StatutMembreDernière intervention12 mars 2009 2 août 2004 à 01:55
Et pour reprendr e NeoBalistik, tu peux faire :
If Cells(1, 1) 2 And Cells(2, 1) 3 Then
Cells(3, 1) = 17
Cells(15,4)=cells(14,22)
'là tu met ce que tu veux faire ...
'et encore d'autre choses...
end if
Si tu n'aime pas cells(1,1), tu peux remplacer par Range("A1")
Julien :)