Discussion :

[andrew07]

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 :

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

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.

[ouskel'n'or]

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

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
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

[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

[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"
Tu corriges l'offset pour que ça colle avec ta colonne.
Et pour savoir comment fonctionne Offset, quoi de mieux que
A+

[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.

[ouskel'n'or]

Mets ton code pour le filtre, ça nous éviteras d'avoir à le faire pour le corriger