Introduire une valiable dans le Range()
Fermé
akregor
Messages postés
1
Date d'inscription
dimanche 21 décembre 2014
Statut
Membre
Dernière intervention
21 décembre 2014
-
Modifié par jordane45 le 22/12/2014 à 09:28
NHenry Messages postés 15047 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 11 mars 2023 - 22 déc. 2014 à 09:53
NHenry Messages postés 15047 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 11 mars 2023 - 22 déc. 2014 à 09:53
A voir également:
- Introduire une valiable dans le Range()
- Input signal out of range ✓ - Forum Matériel informatique
- Vba range avec variable ✓ - Forum VB / VBA
- Range ip ✓ - Forum Windows
- Comment désactiver out of range - Forum Ecran
- Out of range ✓ - Forum Matériel informatique
2 réponses
jordane45
Messages postés
37253
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
17 mars 2023
4 551
22 déc. 2014 à 09:37
22 déc. 2014 à 09:37
Bonjour,
Tu créés tes RANGE .. en dehors de ta boucle...
Normal que X ne change pas...
Ensuite...
Pour définir une Variable comme une RANGE .. il faut utiliser le mot clé.. SET
Et enfin... tu écris :
Cette syntaxe n'est pas bonne......
Si tu veux dire... jusqu'à ce que la cellule A soit vide... ce n'est pas un FOR qu'il faut utiliser mais un do loop until..
Tu créés tes RANGE .. en dehors de ta boucle...
Normal que X ne change pas...
For x=2 to......
a = Range(Cells("A", x))
e = Range(Cells("E", x))
f = Range(Cells("F", x))
Ensuite...
Pour définir une Variable comme une RANGE .. il faut utiliser le mot clé.. SET
dim a as range
dim b as range
dim c as range
SET a = Range(Cells("A", x))
SET e = Range(Cells("E", x))
SET f = Range(Cells("F", x))
Et enfin... tu écris :
For x = 2 To a.Value = Null
Cette syntaxe n'est pas bonne......
Si tu veux dire... jusqu'à ce que la cellule A soit vide... ce n'est pas un FOR qu'il faut utiliser mais un do loop until..
Dim valCelluleE
Dim X as Integer
X=2
Do Until IsEmpty(celluleActive)
valCelluleE = cells(X,"E").value
valCelluleF = cells(X,"F").value
Select Case valCelluleE
Case 4
Select Case valCelluleF
Case "Petit"
a.Interior.ColorIndex = 39
Case "Moyen"
a.Interior.ColorIndex = 39
Case "Grand"
a.Interior.ColorIndex = 39
End Select
Case 5
'....
End Select
X = X+1
Loop
ThauTheme
Messages postés
1442
Date d'inscription
mardi 21 octobre 2014
Statut
Membre
Dernière intervention
29 juillet 2022
160
22 déc. 2014 à 09:38
22 déc. 2014 à 09:38
Bonjour Akregor, bonjour le forum,
c'est quoi ton code. Du VB ou du VBA ?
Si c'est du VBA, je ne le comprends pas et je pense que tu devrais nous fournir un fichier exemple montrant ce tu as avant et ce que tu voudrais après le traitement par la macro...
c'est quoi ton code. Du VB ou du VBA ?
Si c'est du VBA, je ne le comprends pas et je pense que tu devrais nous fournir un fichier exemple montrant ce tu as avant et ce que tu voudrais après le traitement par la macro...
jordane45
Messages postés
37253
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
17 mars 2023
4 551
22 déc. 2014 à 09:47
22 déc. 2014 à 09:47
C'est très certainement du VBA .... Il y parle de RANGE .....et vu la syntaxe et la structure du code.. c'est pour du EXCEL.
Maintenant il est clair que son code pourrait très très certainement être amélioré... car son système de boucle me laisse songeur....^^
Maintenant il est clair que son code pourrait très très certainement être amélioré... car son système de boucle me laisse songeur....^^
22 déc. 2014 à 09:53
Case "Petit", "Moyen", "Grand"