Sujet Précédent Sujet Suivant

Macro excel

michael -  
 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

A voir également:

7 réponses

Réponse 1 / 7
eljojo_e Messages postés 1255 Statut Membre 155
 
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,
0
eljojo_e Messages postés 1255 Statut Membre 155
 
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
0
Réponse 2 / 7
via55 Messages postés 14730 Date d'inscription   Statut Membre Dernière intervention   2 751
 
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 ?
0
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
0
michael
 
c'est bon j'ai trouve, c'est:
=SI(ET......
0
Réponse 3 / 7
Le Pingou Messages postés 12714 Date d'inscription   Statut Contributeur Dernière intervention   1 467
 
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
0
Réponse 4 / 7
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.
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 7
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 ?
0
eljojo_e Messages postés 1255 Statut Membre 155
 
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
0
michael
 
j'avais mis sub test et end sub, fallait que je saute les lignes, ca fonctionne merci.
0
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
0
eljojo_e Messages postés 1255 Statut Membre 155
 
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
0
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
0
Réponse 6 / 7
Le Pingou Messages postés 12714 Date d'inscription   Statut Contributeur Dernière intervention   1 467
 
Bonjour,
Et comme cela : 
Sub test_si ()
If Range("G25") > Range("G27") Then
   Range("I25") = 1
Else 
   Range("I25") = 0
End If
End Sub
0
Réponse 7 / 7
Le Pingou Messages postés 12714 Date d'inscription   Statut Contributeur Dernière intervention   1 467
 
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
0
michael
 
Merci du renseignement.
0

Discussions similaires

Transformer un chiffre en lettres dans excel sans macro
vincentphilippos -
tontong -

6 réponses