Discussion :

[amoves]

Bonjour,
J'ai un classeur de gestion des notes. Je compte exécuter une formule en vba qui permettra de comparer l'ancienne note se trouvant dans la feuille Relevé_S1 et dont la première note se trouve dans la cellule H16 à celle se trouvant dans la cellule AM16 de la même feuille et de mettre réponse dans la cellule E16 de la feuille PV_S1.
La formule est celle-ci
E16=si(Relevé!H16="";Relevé!AM16;si(et(Relevé!H16<>"";Relevé!AM16="déf.");Relevé!H16;si(Relevé!H16<=Relevé!AM16;Relevé!AM16;Relevé!H16)))Cette formule est incrémentée de E16 à E5000 dans la feuille PV_S1. Cette formule sera exécutée dans les plages G16 à G5000, I16 à I5000, K16 à K5000, M16 à M5000, O16 à O5000, Q16 à Q5000.
Comment développer un code vba pour cette formule.
Je veux une proposition de code vba pour exécuter cette formule à l'aide d'un bouton

[Invité]

Bonjour,

Ce code permet de récupérer votre formule en VBA dans la fenêtre exécution (Ctrl-G) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Sub Test()
 
    Debug.Print Range("E16").Formula
    Debug.Print Range("E16").FormulaR1C1
 
End Sub

Nb : Votre formule contient une erreur à cet endroit : et(Relevé!<>""

[amoves]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
If MC.Offset(0, 4).Value = "" Then
    MC.Offset(0, 44).Value = MC.Offset(0, 35).Value
    If MC.Offset(0, 4).Value <> "" And MC.Offset(0, 35).Value = "Déf." Then
    MC.Offset(0, 44).Value = MC.Offset(0, 4).Value
    ElseIf MC.Offset(0, 4).Value <= MC.Offset(0, 35).Value Then
    MC.Offset(0, 44).Value = MC.Offset(0, 35).Value
    Else: MC.Offset(0, 44).Value = MC.Offset(0, 4).Value
 End If
 End If

Voici un code que j'ai écrit, seulement cette partie ne s'exécute pas:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
If MC.Offset(0, 4).Value <> "" And MC.Offset(0, 35).Value = "Déf." Then
    MC.Offset(0, 44).Value = MC.Offset(0, 4).Value

Je demande de l'aide pour que toutes les conditions soient prises en compte

[MarcelG]

Bonjour, 'Salut Eric!),

Personnellement, j'opterais une instruction Select Case, voire 2 imbriquées.
Ce processus permettrait de mieux contrôler les conditions par une exécution pas à pas.
Au demeurant, il nécessite, en aval, un algorithme rigoureux.

[Pierre Fauconnier]

Salut.

Pourquoi un code VBA?

Si tu travailles avec des tableaux structurés, tu n'as nul besoin de développer cette formule par VBA. Mais même si tu voulais écrire du code VBA pour remplacer ta formule (on se demande bien pourquoi...), tu auras intérêt à utiliser les tableaux structurés.

Corriger "simplement" ta formule ou ton code ne sert à rien. Comprendre ce que tu souhaites réaliser et pourquoi permettra de te donner la solution la meilleure pour atteindre ton objectif.