Discussion :

[Vbajon]

Bonjour,

J'evite d'utiliser des Range et de faire des Set MyData = .... J'utilise plutôt des Variant. Mais j'ai un problème quand je fais :

Code :

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

1
2
 
MyData(i,1).Interior.Color = RGB(0, 250, 0)

(i étant la variable d'incrémentatio de la boucle for).

Erreur 426 objet requis

Quelqu'un sait m'aider?

[Jean-Philippe André]

Salut,

un variant n'a pas ce genre de propriete.

Essaie de passer par un Range ou Cells a la place, le reste du code etant a priori correct =]

[Vbajon]

Salut,

un variant n'a pas ce genre de propriete.

Essaie de passer par un Range ou Cells a la place, le reste du code etant a priori correct =]

Pour éviter d'utiliser les Range et comme les variant n'ont pas cette propriété, j'ai l'idée de faire cette partie sur Excel. En gros, il s'agit de deux colonne (A et B par exemple). Si B=A, alors colorer B en vert, si B<A, alors colorer B en orange, et si B=0 et A>0, alors colorer B en rouge . Ceci me semble compliquer à faire sur Excel, c'est pour ça que l'ai fait sur VBA. Tu aurais peut être une solution Excel? Merci!

[unparia]

Bonjour
Qu'est très précisément l'objet MyData ?

[Jean-Philippe André]

La mise en forme conditionnelle sous Excel est tres simple a appliquer sinon =]

[Vbajon]

Bonjour
Qu'est très précisément l'objet MyData ?

C'est variant. MyData = sheets("MySheet").Range("A4:A27") par exemple

La mise en forme conditionnelle sous Excel est tres simple a appliquer sinon =]

Je sais le faire pour un IF et else; mais là il s'agit de 3 conditions... C'est un peu compliqué non?

[joe.levrai]

Bonjour,

J'evite d'utiliser des Range et de faire des Set MyData = .... J'utilise plutôt des Variant. Mais j'ai un problème

Bonjour,

ce n'est pas pour rien si l'on peut typer des variables
des problèmes, tu en auras encore beaucoup par la suite à tout gérer par Variant

pourquoi refuser d'utiliser des variables Range ?
Et d'ailleurs, même si MyData est un Variant, si tu ne l'instancie pas au travers d'un "Set", tu n'auras jamais un "faux range" dans ton variant
ici c'est bêtement un tableau interne 2D dans lequel sont stockées les Value (voir Text) de tes cellules


C'est foncer droit dans le mur que de travailler à la libre interprétation de VBA, mais chacun sa façon de voir les choses

[unparia]

C'est variant. MyData = sheets("MySheet").Range("A4:A27") par esxemple

Mydata n'est donc pas un objet, mais une simple variable (une matrice de valeurs... un tableau ...).
L'instruction Set affecte un OBJET (ce que n'est pas Mydata) à une variable.

[Menhir]

J'evite d'utiliser des Range

C'est un tord.
Perso, je fais exactement le contraire : plus la variable est typée précisément, mieux le code se porte.
Je n'utilise Variant que dans les cas où je ne suis pas sûr de la nature de la données récupérée, par exemple si on récupère le contenu d'une cellule pouvant contenir du texte ou des valeurs, ou bien si on récupère la valeur renvoyée par une fonction pouvant être de nature différente (ce qui est assez rare).

et de faire des Set MyData = .... J'utilise plutôt des Variant. Mais j'ai un problème quand je fais :

Code :

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

MyData(i,1).Interior.Color = RGB(0, 250, 0)

De toute façon, utiliser une variable de type Variant ne t'affranchira pas du Set si tu veux y placer la référence à un objet.
Si tu n'utilises pas le Set, tu ne mettra dans la variable que le contenu de la cellule et non la référence de la cellule.

Or, ce contenu ne te permet pas d'accéder au format.
Donc, si tu demandes la couleur de fond comme tu l'as fait, VBA te plantera, comme il l'a fait.
CQFD.

Je sais le faire pour un IF et else; mais là il s'agit de 3 conditions... C'est un peu compliqué non?

Et alors ?...
Les ET(), OU() et les SI() imbriqués, ça permet pas mal de chose pour multiplier les conditions.

[Vbajon]

Oui en effet, c'est possible. Merci