Discussion :

[heder1fr]

Bonjour,

j'ai du mal à bien comprendre l'imbrication de condition avec les variables. je crois que je n'ai pas compris l'architecture de la conception du module VBA.

je m'explique:

SI jean a moins de 5 ans ALORS pas d'argent de poche, SINON SI il a entre 5 ET 10 ALORS 5€, SINON SI 11 et 18 ALORS 10€, SINON trop vieux. Et SI c'est pas jean mais autre prénom ALORS c'est pas le bon prénom.

Et après il faudrait imbriqué ca avec ses notes par exemple:
de 0 a 10 droit argent de poche sinon de 11 à 15 argent X2 et le reste X3

quelqu'un serait disponible pour m'aider à comprendre ou m'expliquer sur cette exemple?

[Philippe Tulliez]

Bonjour,
Pas besoins d'utiliser l'instruction If et franchement pas besoin de VBA non plus.
Un simple tableau de correspondance reprenant l'âge minium et le montant de l'argent de poche et une simple fonction de recherche telle que RECHERCHEV, EQUIV imbriqué à INDEX ou encore RECHERCHEX suffit amplement

Un exemple dans l'un de mes billets titré Comment remplacer des SI imbriqués par la fonction RECHERCHEV

[heder1fr]

En faite la c est en gros un exemple je travail sur un fichier avec énormément de lignes et les conditions ne sont pas aussi simple. C est vraiment du VBA que j ai besoin. Ça vas jusqu’à une dizaine de conditions

[Philippe Tulliez]

Bonjout,
Quand bien même, il y aurait 200.000 lignes et 15 conditions, l'usage de tableau de correspondance et de fonctions natives d'excel même en utilisant le VBA est bien plus simple à réaliser et surtout plus léger à maintenir.

[EDIT]
Pour en savoir plus sur les instruction If..Then...Else, ElseIf, Select Case, je vous conseille la lecture du chapitre 11. Les structures décisionnelles du tutoriel Initiation au VBA Office

[heder1fr]

Merci je vais regarder les pages, bonne fin de journée

[Transitoire]

Pour le fun , voila une possibilité à adapter à votre spécificité.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub test()
Dim Prenom As String
Dim Age As Integer
Dim Argent As Integer
Prenom = Range("B1").Value    'Prénom dans cellule B1
Age = Range("C1").Value         'Age dans cellule C1
If Prenom = "Jean" Then
    If Age < 5 Then
    Argent = 0
    ElseIf Age > 5 And Age < 11 Then: Argent = 5
    ElseIf Age > 10 And Age < 19 Then: Argent = 10
    Else
    Argent = 0
    End If
    Range("D1").Value = Argent        'La réponse Argent est dans cellule D1
Else
 MsgBox "ça n'est pas le bon prénom!"
End If
End Sub

Cordialement