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

**DonKnacki** · 31/01/2006, 10h41

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

**bidou** · 31/01/2006, 10h49

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

Case Asc("B") marchera sans doute mieux

**ouskel'n'or** · 31/01/2006, 10h56

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

A+

**Igloobel** · 31/01/2006, 11h12

Salut,

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

Code :

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

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

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

**bouley** · 31/01/2006, 11h19

salut à tous,

je ne comprend pas:

Code :

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

Range("&j8")

dans ce cas :

Code :

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

Range(Chr(j) & "8")

est convenable non ?
@+

**ouskel'n'or** · 31/01/2006, 11h28

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 :

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

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 :

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

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

ou

Code :

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

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

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

A+

**Pierre Fauconnier** · 31/01/2006, 11h42

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 :

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

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

ou

Code :

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

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

j'utiliserais

Code :

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

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

Pierre Fauconnier

**ouskel'n'or** · 31/01/2006, 11h50

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

Range("a1") = "RECU"

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

A+

**Igloobel** · 31/01/2006, 12h01

Salut,
en 2000 ça marche

Code :

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

Range("a1") = "RECU"

(je viens de tester)

chapeau

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

Igloobel

**DonKnacki** · 31/01/2006, 12h02

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 :

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

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

**SfJ5Rpw8** · 31/01/2006, 12h05

bon à colonne il faut 1 ou 2 n ?

**Pierre Fauconnier** · 31/01/2006, 12h06

Envoyé par Nom

Code :

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

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

**Pierre Fauconnier** · 31/01/2006, 12h09

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

Pense à toujours avoir

Code :

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

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

**DonKnacki** · 31/01/2006, 12h09

bon à colonne il faut 1 ou 2 n ?

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

**DonKnacki** · 31/01/2006, 12h14

merci à vous tous de votre aide

**Igloobel** · 31/01/2006, 12h15

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

Igloobel

**Pierre Fauconnier** · 31/01/2006, 12h27

Envoyé par ouskel'n'or

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

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

**DonKnacki** · 31/01/2006, 12h43

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 :

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

 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é

**Pierre Fauconnier** · 31/01/2006, 12h49

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 :

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

1
2
3
 
Ligne = 4
range ("a" & Ligne) = ...

ou encore, pour l'exemple

Code :

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

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 :

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

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

**DonKnacki** · 31/01/2006, 12h56

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

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

Macros et VBA Excel

Discussions similaires

Partager

Partager