code VBA

Version imprimable

09/11/2020, 17h53
amoves

code VBA

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
10/11/2020, 03h36
Invité
Citation:

Envoyé par amoves

Bonjour,

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

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é!<>""

Correction de codes

Code:

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:

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

10/11/2020, 14h42
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.
10/11/2020, 15h00
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.