[VBA-E] Probleme comparaison cellules

Version imprimable

15/04/2007, 22h37
andrew07

[VBA-E] Probleme comparaison cellules
Bonjour a tous,

je cherche a effectuer un traitement qui peut paraitre simple mais je ne manie pas asez bien le VBA pour le realiser seul.
Voici ma problematique:
Je dois affecter une valeur dans une colonne (cad pour chaque cellule de la colonne) en fonction d'un test effectué dans une autre colonne
ex si l'une des valeurs de ma cellule est paris alors le resultat dans ma seconde colonne (dans la cellule correspondante) sera 4 et ainsi de suite pour toutes les cellules non vide de ma premiere colonne.
J'ai deja essayé avec les fonctions tel si dans excel mais mon probleme est que j'ai enormement de criteres qui ne peuvent pas rentrer dans cette fonction.

En code VBA j'ai esssaye ceci :
Code:

1 2 3 4 5 6 For Each Cells.Value In Columns("I:I") If Cells.Value = "PARIS" Or Cells.Value = "VERSAILLES" ...... Then Columns(X:X).Range.Value = "4" End If Next End Sub
Le but serait de faire un traitement automatique des deux collonnes a l'aide d'un bouton mais j'avoue pecher dans le code est les procedures a utiliser ....

Merci a tous d'avance.

Je pense que tu as d'autres valeurs que Paris ou Versailles.
Déjà, tu peux corriger ça

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Ranger()
Dim cel As Range
    For Each cel In Range("I:I")
        If cel <> "" Then
            Select Case cel
                  Case "PARIS", "VERSAILLES"
                        cel.Offset(0, -7).Value = "4"
                  Case "LYON", "SAINT ETIENNE"
                        cel.Offset(0, -7).Value = "2"
                  Case "TOULOUSE"
                        '... etc
                  Case Else
                        MsgBox "Cette ville n'existe pas sur terre"
            End Select
        End If
    Next
End Sub

Tu dis

16/04/2007, 00h22
andrew07

Merci a toi

La boucle a bien l'air de faire le test mais elle ne me renvoie pas de resultat dans les cellules correspondantes de ma deuxieme colonne (c'est la colonne AD)
de plus je ne comprend pas a quoi sert le offset avec les coordonées que tu m'a donné ..
Merci
16/04/2007, 00h42
ouskel'n'or

Pour moi et tel que tu as rédigé ton message, la seconde colonne était la colonne B. Sinon montre-moi où tu as écrit "AD" :lol:
Tu corriges l'offset pour que ça colle avec ta colonne.
Et pour savoir comment fonctionne Offset, quoi de mieux que :f1:
A+
16/04/2007, 12h36
andrew07

Ca marche merci a toi !!!

J'ai donc regardé la syntaxe du offset et je lui ai donné la valeur 21 pour la colonne ce qui permet donc de copier mes valeurs dans la colonne AD.
Mon dernier petit soucis concerne la premiere cellule de ma colonne AD a savoir que j'applique un filtre et que le code me rempli cette cellule
Ya t'il un moyen que le code n'agisse qu'a partir de la deuxieme cellule cad que mon traitement se fasse pour toutes les cellules sauf pour la premiere ?

Merci d'avance.
16/04/2007, 12h46
ouskel'n'or

Mets ton code pour le filtre, ça nous éviteras d'avoir à le faire pour le corriger ;)
16/04/2007, 12h57
andrew07

excuse moi mais je ne comprend pas ce que tu ve dire par mettre le code sur le filtre
16/04/2007, 13h02
SfJ5Rpw8
tu peu par exemple tester le numéro de ligne...
Code:

1 2 3 4 ... If cel <> "" and cel.row >1 Then ..
16/04/2007, 13h11
ouskel'n'or

Citation:

Envoyé par Tu

Mon dernier petit soucis concerne la premiere cellule de ma colonne AD a savoir que j'applique un filtre et que le code me rempli cette cellule

je parlais de ce filtre là... Mais bbil t'a proposé une solution ;)
16/04/2007, 16h36
andrew07

Merci a vous