Bonjour je travail sous Excel 97 pour faire des macro
J'ai fais ce code mais il ne fonctionne pas (il compile ne fais rien)

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
For j = Asc("B") To Asc("G")
    Select Case j
        Case "B":
    Range("&j8").FormulaR1C1 = "Recu"
        Case "C":
    Range("&j8").FormulaR1C1 = "Traité"
        Case "D":
    Range("&j8").FormulaR1C1 = "RAF"
    End Select
    Next
Ce code est censé se balader des colonne B à G
puis si c'est la colonne B il marque en B8 Recu
si c'est la colonne C il marque en C8 Traité
si c'est la colonne D il marque en D8 RAF
mais pour l'instant cela ne fais rien!
Une autre petite question au passage comment faire pour mettre 2 lettres dans mon Case :
je souhaiterai faire ceci

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 
For j = Asc("B") To Asc("G")
    Select Case j
        Case "B" or "E":
    Range("&j8").FormulaR1C1 = "Recu"
...