[Excel VBA] Faire une condition sous Excel

Version imprimable

02/08/2007, 18h33
ANTMA

[Excel VBA] Faire une condition sous Excel

Bonjour à tous j'aurais besoin d'un petit coup de main concernant une condition que j'ai besoin de mettre en place sous Excel alors je ne sais pa si c'est faisables en VBA ou pas.

Voila en fait j'ai besoin que l'on m'affiche plusieurs lettres A,B,C, ou D en fonction de deux colonne représentant respectivement les parts de marché et le CA. Le CA et les parts de marche varient selon plusieurs villes.
Il s'agit alors d'afficher les lettres A,B,C ou D en fonction du CA et des parts de marché mais aussi selon deux conditions relatives aux chiffres de deux cases qui constituent un sortent de réfrentiel.

Exemple

Dans la case A4 = 78%
et B12 = 789

Si le CA d' avignon est superieur à B12 et le part de marché est sup à A4 Alors j'affiche A dans une colonne
Si le CA est superieur à B12 et la part de marché de creteil est inf à A4 alors j'affiche B dans une colonne
Si le CA est inf à B12 et la part de marché de BAstia est inf à A4 alors j'affiche
D
Si le CA est sup à B12 et la part de marché de monaco est inf à A4 alors j'affiche C

Ps: le document est dynamique donc le nombre de ligne de chaque colonnes est susceptible de bouger.

Par avance merci pour le coup de main

Re bonjour
T'as décidé de me faire travailler aujourd'hui :lol:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim I As Integer
I = 1 ' première ligne de la colonne des villes
Do While Cells(I, Numero_Colonne) <> ""
    If Cells(I, Numero_Colonne_CA) > Cells(12, 2) And Cells(I, Numero_Colonne_PDM) > Cells(4, 1) Then
        Cells(I, Numero_Colonne_Resultat) = "A"
    ElseIf Cells(I, Numero_Colonne_CA) > Cells(12, 2) And Cells(I, Numero_Colonne_PDM) < Cells(4, 1) Then
        Cells(I, Numero_Colonne_Resultat) = "B"
    ElseIf Cells(I, Numero_Colonne_CA) < Cells(12, 2) And Cells(I, Numero_Colonne_PDM) < Cells(4, 1) Then
        Cells(I, Numero_Colonne_Resultat) = "D"
    Else
        Cells(I, Numero_Colonne_Resultat) = "C"
    End If
    I = I + 1
Loop

Slts

02/08/2007, 19h53
ullan

Bonsoir,

Comment différencier la 2ème et la 4ème condition ?
CA > B12 et part de marché < A4

Merci pour ta réponse, j'ai encore un autre problème il s'agit de remplir un champ de ma colonne de résultat lorsqu'une de mes cases de conditions est indefini ou - ou 0

Voila le code que j'ai inscri

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim I As Integer
I = 1 ' première ligne de la colonne des villes
Do While Cells(I, Numero_Colonne) <> ""
    If Cells(I, Numero_Colonne_CA) > Cells(12, 2) And Cells(I, Numero_Colonne_PDM) > Cells(4, 1) Then
        Cells(I, Numero_Colonne_Resultat) = "A"
    ElseIf Cells(I, Numero_Colonne_CA) > Cells(12, 2) And Cells(I, Numero_Colonne_PDM) < Cells(4, 1) Then
        Cells(I, Numero_Colonne_Resultat) = "B"
    ElseIf Cells(I, Numero_Colonne_CA) < Cells(12, 2) And Cells(I, Numero_Colonne_PDM) < Cells(4, 1) Then
        Cells(I, Numero_Colonne_Resultat) = "D"
     ElseIf (Cells(I, 7) < Cells(16, 5)) And (Cells(I, 11) > Cells(14, 5)) Then
        Cells(I, 14) = "C"
    ElseIf (Cells(I, 7) = 0) Or (Cells(I, 11) = "-") Then
        Cells(I, 14) = ""
    End If
    I = I + 1
Loop