[VBA-E]Select case qui ne fonctionne pas :(

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:

---

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:

---

1 2 3 4 5 6

For j = Asc("B") To Asc("G") Select Case j Case "B" or "E": Range("&j8").FormulaR1C1 = "Recu" ...

---

comme tu fais le test sur la valeur ASCII le test sur le caractère ne va rien donner :roll:

Case Asc("B") marchera sans doute mieux

Oui... et si tu mets formula à la place de formulaR1C1, ça serait aussi bien ... :wink:

A+

Salut,

Dans un select case le "ou" est une virgule "," exemple :

Code:

---

1 2 3 4 5

For j = Asc("B") To Asc("G") Select Case j Case Asc("B"), Asc("E") Range("&j8").FormulaR1C1 = "Recu" ...

---

Et puis moi je met pas de ":" et ça marche (excel 2000)
Pour plus de détail tu peux faire :f1:

Igloobel

PS : ouskel'n'or tu viens de poster pendant que je créais mon post pourquoi "formula" est mieux que "formular1c1" ? dans l'aide d'excel (je viens de faire F1) c'est pas clair que c'est mieux :?

salut à tous,

je ne comprend pas:

Code:

---

Range("&j8")

---

dans ce cas :

Code:

---

Range(Chr(j) & "8")

---

est convenable non ?
@+

FormulaR1C1 est réservé aux FORMULES EXCEL à insérer dans les cellules. Comme tu insère une donnée, Value ou Formula sont plus adaptés. Rien de grave.
Par contre, je me demande pourquoi tu t'escrimes à vouloir utiliser les lettres pour tes colonnes à la place des N° de colonne

Code:

---

1 2 3 4 5 6 7 8 9 10

For j = 2 To 7 Select Case j Case 2 Range("J8").Formula = "Recu" Case 3 Range("J8").Formula = "Traité" Case 4 Range("J8").Formula = "RAF" End Select Next

---

Si J8 est bien la cellule dans laquelle tu veux placer ta donnée.

Tu peux aussi faire

Code:

---

Cells(NoLigne, 8).formula = "La donnée"

---

ou

Code:

---

Cells(NoLigne, NoCol).formula = "La donnée"

---

si tu veux utiliser des variables comme N° de lignes ou de colonnes

A+

Pour compléter Ouskel'n'or


Formula et FormulaR1C1 sont utilisées pour connaître ou modifier une formule inscrite dans une cellule...

formula utilise l'adressage A1 et formulaR1C1 utiliser l'adressage L1C1 (Colonnes renseignées par des numéros et non par des lettres, voir dans Excel Outils/Options...)

Dès lors, plutôt que

Code:

---

1 2	range("a1").formula = "RECU"

---

ou

Code:

---

1 2	range("a1").formulaR1C1 = "RECU"

---

j'utiliserais

Code:

---

1 2	Range("a1") = "RECU"

---

Pierre Fauconnier

Ok, Pierre, dans une version d'Excel > 97, parce que

Citation:

---

Range("a1") = "RECU"

---

ne fonctionne pas sur Excel97.
Tu vérifies ta version

A+

Salut,
en 2000 ça marche

Code:

---

Range("a1") = "RECU"

---

(je viens de tester)

chapeau :) et merci ouskel'n'or et Pierre Fauconnier pour vos explication sur formula et formulaR1C1

Igloobel

suite à vos remarque j'ai essayer de modifier mon code mais comme je maitrisse assez mal je suis un peu perdu

j'ai fais ceci

Code:

---

1 2 3 4 5 6 7 8 9 10 11

For NoColonne = 2 To 7 Select Case NoColone Case 2, 5: 'colonne B et E Cells(8, NoColonne).Formula = "Recu" Case 3, 6: Cells(8, NoColonne).Formula = "traité" Case 4, 7: Cells(8, NoColonne).Formula = "RAF" End Select Next

---

Hélas rien ne s'affiche dans les case B8,C8,D8,E8,F8,G8 ...

bon à colonne il faut 1 ou 2 n ?

Citation:

---

Envoyé par Nom

Code:

---

1 2 3 4 5 6 7 8

... Select Case NoColone Case 2, 5: 'colonne B et E Cells(8, NoColonne).Formula = "Recu" ... End Select Next

---

Hélas rien ne s'affiche dans les case B8,C8,D8,E8,F8,G8 ...

---

Il ne faut pas les : sur la ligne Case...

Pierre Fauconnier

Pour compléter la remarque de BBIL,...

Pense à toujours avoir

Code:

---

1 2	Option Explicit

---

En début de tes modules...

Cela force la déclaration des variables et ton problème d'orthographe dans les noms des variables sera résolu...

Pour que cela soit fait POUR LES NOUVEAUX MODULES, va dans Outils/Options et coche la propriété "Déclaration automatique des variables"

Ok?

Pierre Fauconnier

Citation:

---

bon à colonne il faut 1 ou 2 n ?

---

:oops: j'ai honte !!!!!!!!!
désolé

merci à vous tous de votre aide ;)

Salut,

colone et colonne sont deux variables différentes si tu testes sur une et que tu incrémentes une autre cela ne peux pas marcher !

choisi la même variable 1 ou 2 n, mais choisi la même :wink:

Igloobel

Citation:

---

Envoyé par ouskel'n'or

Ok, Pierre, dans une version d'Excel > 97, parce que

Citation:

---

Range("a1") = "RECU"

---

ne fonctionne pas sur Excel97.
Tu vérifies ta version

A+

---

Cette syntaxe fonctionne sans problème sur Excel 97...

Pierre Fauconnier

encore une petite question est il possible d'utiliser les numéro de colonne et de ligne lors d'un Range

par exemple à la place de

Code:

---

Range ("A1").Select

---

mettre Range (Cells(1,1)).Select
j'ai essayé et ca m'a donné un code d'erreur l'objet 'Range' de l'objet '_Global' a échoué

Je serai tenté de dire

Soit tu utilises Range
Soit tu utilises Cells...

Cela étant, l'adresse d'un range est une propriété Texte, il est donc possible de la créer dynamiquement

Code:

---

1 2 3

Ligne = 4 range ("a" & Ligne) = ...

---

ou encore, pour l'exemple

Code:

---

1 2	Range("a" & ActiveCell.Row) = "Pierre"

---

Note que lorsque tu utilises Cells(i,j), i représente la ligne et j la colonne. Tu peux aussi utiliser

Code:

---

1 2	Range(Cells(5, 9).Address) = "Pierre"

---

Bref, tu as plein de possiblités pour créer l'adresse de ta cellule ou de ta plage...

Ok?

Pierre Fauconnier

tres bien j'utiliserais donc un Cells (NoLigne,NoColonne).Select c'est plus pratique pour les boucles