Ce navigateur n’est plus pris en charge.
Effectuez une mise à niveau vers Microsoft Edge pour tirer parti des dernières fonctionnalités, des mises à jour de sécurité et du support technique.
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(128, 8%, 22%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EA%3C/text%3E%3C/svg%3E)
Bonjour,
J'ai un code qui met à 1 la cellule "Cells(7,68)".
If Cells(i, 4).Value > Cells(i, 5).Value Then Cells(7, 68).Value = 1
Si la condition n'est pas remplie, pour mettre la valeur "0", faut-il passer par Else ?
Merci pour votre aide.
Cordialement
Famille de feuilles de calcul Microsoft avec des outils pour l’analyse, le graphique et la communication des données.
Question verrouillée. Cette question a été migrée à partir de la Communauté Support Microsoft. Vous pouvez voter pour indiquer si elle est utile, mais vous ne pouvez pas ajouter de commentaires ou de réponses ni suivre la question.
Bonjour Arnaud,
les 2 propositions fonctionnent super.
Merci à tous les deux et bonne journée.
Cordialement
Patrick
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(160, 33%, 25%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EH%3C/text%3E%3C/svg%3E)
Bonjour,
Je propose simplement de ne pas mettre de Si 😊
Cells(7, 68).Value = (Cells(i, 4).Value > Cells(i, 5).Value)*-1
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(108.80000000000001, 78%, 20%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3ED%3C/text%3E%3C/svg%3E)
Oui, tu peux mettre :
Cells(7, 68).Value = IIf(Cells(i, 4).Value > Cells(i, 5), 1, 0)
Je ne m'en sers jamais, je ne sais pas pourquoi...
Daniel
Bonjour Daniel,
OK. Je pensais que l'on aurait pu faire comme cet exemple dans la barre de formule : =SI(U7=10;1;0)
Merci beaucoup et bonne journée.
Cordialement
Patrick
Bonjour,
Oui :
If Cells(i, 4).Value > Cells(i, 5).Value Then
Cells(7, 68).Value = 1
Else
Cells(7, 68).Value = 0
End If
Daniel