[Résolu] variable VBA

variable VBA [Résolu] - VB/VBA/VBS - Programmation

Marsh Posté le 26-07-2005 à 16:57:43    

lut, :)
 
comment pourrais je faire pour remplacer le H228 par une variable
nbr = ActiveCell.FormulaR1C1 = "=COUNT(C[-3])"==> fonction permettant de calculer les cellules non vides
 
ma variable vaut 227 apres cela mais je tape cela:
Selection.AutoFill Destination:=Range("H2:H"nbr), Type:=xlFillDefault
 
il plante : erreur 1004 la méthode Range de l'objet Global a échoué
 
Need help :)


Message édité par julseb le 27-07-2005 à 14:45:41
Reply

Marsh Posté le 26-07-2005 à 16:57:43   

Reply

Marsh Posté le 26-07-2005 à 18:40:27    

bonsoir,
Selection.AutoFill Destination:=Range("H2:H" & nbr), Type:=xlFillDefault  
?


---------------
roger
Reply

Marsh Posté le 27-07-2005 à 07:46:08    

j'ai essayé et g toujours la même erreur :(

Reply

Marsh Posté le 27-07-2005 à 08:57:34    

julseb a écrit :

j'ai essayé et g toujours la même erreur :(


tu es sur qu'il ne te met po nbr à 0? souligné en jaune il te file quoi comme valeur pour le range?

Reply

Marsh Posté le 27-07-2005 à 08:59:27    

salut,
 
J'ai tout le temps ce genre de probleme avec le range, j'ai jamais réussi a lui mettre une variable avec cette forme. Je suis bien interessée si quelqu'un sait ou trouver un "cours" sur les variables globales de ce type.
 
en attendant je triche un peu en introduisnat une variable complementaire telle que
A="H2:H" &nbr
 
c'est pas tres orthodoxe mais ça marche

Reply

Marsh Posté le 27-07-2005 à 09:32:53    

watashi a écrit :


c'est pas tres orthodoxe mais ça marche


J'ai souvent biaisé de la sorte moi aussi  :whistle:

Reply

Marsh Posté le 27-07-2005 à 09:39:21    

lolllllllll
 
Je sait c un peu bourin et pas forcément poètique surtout pour une fille. Mais bon! Je suis que qualiticienne et pas informaticienne mais je m'en sors pas mal en fin de compte ;)

Reply

Marsh Posté le 27-07-2005 à 10:25:50    

g tapé cela et g la même erreur
 
nbr = ActiveCell.FormulaR1C1 = "=COUNT(C[-3])"
result = "H2:" & nbr
Selection.AutoFill Destination:=Range (result), Type:=xlFillDefault

Reply

Marsh Posté le 27-07-2005 à 12:13:55    

Mets un point d'arret après la mise en place de ta variable result et regardes si c'est bien "H2:H227".
ensuite t'auras plus qu'à modifier la formule de result pour obtenir la bonne syntaxe.
Sur ce qui est marqué dans ton post il manque un H.

Reply

Marsh Posté le 27-07-2005 à 14:45:21    

la soluce c t cela:
 
ActiveCell.FormulaR1C1 = "=COUNT(C[-3])"  
Nbr = ActiveCell
result = "H2:H" & nbr  
Selection.AutoFill Destination:=Range (result), Type:=xlFillDefault

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed