Macro excel

michael -  
Bonjour,

je souhaiterais faire une macro simple dans excel, mais je ne maitrise pas la syntaxe à employer, quelqu'un peut-il me faire cette syntaxe ?

Si la cellule A1 > cellule A2, alors cellule B1 = 1 et cellule B2 = 0
Si la cellule A1 < cellule A2, alors cellule B1 = 0 et cellule B2 = 1

Merci d'avance

7 réponses

  1.  Le Pingou
    Bonjour michael,
    Vous pouvez utiliser une procédure qui se déclenche sur un événement de la feuille, vous copiez et collez la procédure suivante dans le module de la feuille concernée : 
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("G25:G27")) Is Nothing Then
    If Range("G25") > Range("G27") Then
       Range("I25") = 1
    Else
       Range("I25") = 0
    End If
End If
End Sub


    1. michael
      Merci du renseignement.
  2. Le Pingou
    Bonjour,
    Et comme cela : 
    Sub test_si ()
If Range("G25") > Range("G27") Then
   Range("I25") = 1
Else 
   Range("I25") = 0
End If
End Sub

    1. michael
      Hé les gars, voici la syntaxe que j'ai écris:

      If Range("G25") > Range("G27") Then
      Range("I25") = 1

      Else: Range("I25") = 0

      End If

      cependant, lorsque j'execute la maccro, il me surligne en jaune la 1ère ligne, pourquoi ?
      1. eljojo_e
        Toujours commencer son code par : 
        Sub NomDeTonCode()

        et finir ton code par : 
        End sub


        ps : tes ":" après else ne servent à rien il faut sauter une ligne 

        
sub test() 

If Range("G25") > Range("G27") Then  

Range("I25") = 1  

Else 

Range("I25") = 0  

End If  

end sub
      2. michael
        j'avais mis sub test et end sub, fallait que je saute les lignes, ca fonctionne merci.
      3. michael
        bon en fait ca fonctionne toujours pas, en fait quand je retourne sur excel, j'ai un chiffre 0 qui s'affiche dans la case I25, mais le chiffre 1 n'apparait pas quand je respecte la condition, pourtant j'ai fait execution>reinitialiser puis execution>executer
      4. eljojo_e
        Ba écoute chez moi ça fonctionne à merveille lol. essaye de mettre .value à la fin : 

        sub test()  

If Range("G25").value > Range("G27").value Then   

Range("I25").Value = 1   

Else  

Range("I25").value = 0   

End If   

end sub


        tu copie-colle ce code
      5. michael
        alors oui en fait ca marche bien maintenant,lorsque je lance l'execution et que je retourne sur excel j'ai bien la bonne valeur, mais si je change les valeurs des cellules dans excel, ca ne me change pas le resultat dans la case i, je suis obligé de retourner dans la macro et d'executer la macro, je pensais que le resultat changerait a chaque fois que je changeais les valeurs dans excel
    2. michael
      Merci de ces reponses aussi rapide, je ne connaissais pas la version simple directement dans excel, puis j'aimerai apprendre a maitriser cette syntaxe pour faire des fonctions plus complexes par la suite, d'ou le fait de commencer par de simples.

      je vais maintenant le rediger.
      2. Le Pingou
        Bonjour,
        La syntaxe pour :
        Si la cellule A1 > cellule A2, alors cellule B1 = 1 et cellule B2 = 0 
        If Range("A1") > Range("A2") Then
    Range("B1") = 1
Else
    Range("B2") = 0
End If


        Si la cellule A1 < cellule A2, alors cellule B1 = 0 et cellule B2 = 1 
        If Range("A1") < Range("A2") Then
    Range("B1") = 0
Else
    Range("B2") = 1
End If

        1.  via55
          Bonsoir,

          Pourquoi une macro ?
          Des formules dans les cellules suffisent

          formule à mettre en B1 =SI(A1>A2;1;0)
          formule à mettre en B2 =SI(B1=1;0;1)

          Est ce bon ?
          1. michael
            ta syntaxe a bien fonctionnée, maintenant je souhaite faire:

            comparer la cellule A2 aux cellules A1 et A3 pour avoir A4=0 ou 1

            dans la cellule A4, j'ai ecris:

            =SI(A1<A2<A3;1;0)

            ca ne marche pas
          2. michael
            c'est bon j'ai trouve, c'est:
            =SI(ET......
        2. eljojo_e
          sub test()

          if [a1]>[a2] then
          [b1]=1
          [b2]=0
          end if

          end sub

          tu devrai te débrouiller pour ta deuxième conditions ;)

          cordialement,
          1. eljojo_e
            Après si tu veux aller plus loin dans la compréhension du code, tu as : 

            
Range("B1").value = 1 ' défini la valeur (d'où le .value) de B1 

Range("B1").select 'sélectionne la cellule B1, tu peux écrire aussi : 

 Range("B1").select = 1 'sélectionne la cellule B1 et lui assigne la valeur 1 

[b1] = 1 'fonctionne tout aussi bien que Range("B1").value = 1, et est plus simple à rédiger lol

        Discussions similaires

        Transformer un chiffre en lettres dans excel sans macro
        vincentphilippos

        6 réponses