[Résolu][Excel] pb de formula

pb de formula [Résolu][Excel] - VB/VBA/VBS - Programmation

Marsh Posté le 07-07-2006 à 10:21:41    

bonjour à tous, :hello:  
encore un soucis dans l'automatisation des formules. Je cherche à faire une automatisation de la formule SOMME SI dans plusieurs cases. le projet me répond que la mléthode raneg plantouille
 
je sens que c'est évident mais voila mon code
 

Code :
  1. For k = 94 To 99
  2.     For l = 15 To 19
  3.         Range(Cells(k, l)).Formula = "=SOMME.SI(F8:F90;" & Cells(k, 6) & ";" & Cells(8, l) & ":" & Cells(90, l) & " )"
  4.     Next l
  5. Next k


 
des idées ?


Message édité par jpcheck le 10-07-2006 à 10:35:05
Reply

Marsh Posté le 07-07-2006 à 10:21:41   

Reply

Marsh Posté le 07-07-2006 à 10:31:11    

sans avoir testé...
les arguments pour range c'est soit "A1" soit (cells(k,1),cells(k,1))

Reply

Marsh Posté le 07-07-2006 à 10:39:19    

Paul Hood a écrit :

sans avoir testé...
les arguments pour range c'est soit "A1" soit (cells(k,1),cells(k,1))


j'ai modifié ca oui, déjà déso :|
par contre il existe déjà une formule dans certaines cases, alors dois-je supprimer à la main toutes les formules initialement dans les cellules, ou bien mettre un Set devant le range...Formula pour imposer ?

Reply

Marsh Posté le 07-07-2006 à 10:53:13    

Ce qui est  bizzare dans ta formule c'est que la plage à sommer (3 ème paramètre) est  
  Cells(8, l) & ":" & Cells(90, l)
et ca ca donne 2 valeurs avec un : entre les deux et pas un range.

Reply

Marsh Posté le 07-07-2006 à 10:56:14    

j'en arrive à cette formula ci :

Code :
  1. Range(Cells(k, l), Cells(k, l)).Formula = "=SOMME.SI(F8:F90;" & Range(Cells(k, 6), Cells(k, 6)) & ";" & Range(Cells(8, l), Cells(90, l)) & " )"

Reply

Marsh Posté le 07-07-2006 à 11:04:37    

je dirais :
Range(Cells(k, l), Cells(k, l)).Formula = "=SOMME.SI(F8:F90;" & Cells(k, 6) & ";" & Range(Cells(8, l), Cells(90, l)) & " )"

Reply

Marsh Posté le 07-07-2006 à 11:15:47    

incompatibilité de type 13

Reply

Marsh Posté le 07-07-2006 à 11:18:50    

jpcheck a écrit :

incompatibilité de type 13


j'ai déjà simplifié le cells(k,6) par  
Range(Cells(k, l), Cells(k, l)).Formula = "=SOMME.SI(F8:F90;F" & k & ";" & Range(Cells(8, l), Cells(90, l)) & " )"
y-a-t-il un moyen de changer le cells(8,l) en lettre & "8" ?

Reply

Marsh Posté le 07-07-2006 à 11:26:35    

si tu fais cells(1,1).address => $A$1

Reply

Marsh Posté le 07-07-2006 à 11:33:50    

je me retrouve avec des erreurs 1004

Reply

Marsh Posté le 07-07-2006 à 11:33:50   

Reply

Marsh Posté le 07-07-2006 à 11:36:28    

Moi aussi avec
"=SOMME.SI($A$1:$A$10;" & Cells(1, 2).Address & ";" & Cells(1, 3).Address & ":" & Cells(10, 3).Address & " )"

Reply

Marsh Posté le 07-07-2006 à 11:38:24    

j'arrive à quelque chose de mieux, mais ca tourne dans le vide avec formulalocal à la place de formula, cf ici

Reply

Marsh Posté le 07-07-2006 à 11:44:50    

moi avec .formulalocal = "= SOMME.SI($A$1:$A$10;" & Cells(1, 2).Address & ";" & Cells(1, 3).Address & ":" & Cells(10, 3).Address & " )"
ca marceh

Reply

Marsh Posté le 07-07-2006 à 11:55:09    

tourne en boucle, obligé de faire un ctrl alt sup
g des pb aussi avec le fait que dans les cellules que j'ajoute dans la somme si, g des caracteres aussi :s

Reply

Marsh Posté le 10-07-2006 à 10:24:31    

jpcheck a écrit :

tourne en boucle, obligé de faire un ctrl alt sup
g des pb aussi avec le fait que dans les cellules que j'ajoute dans la somme si, g des caracteres aussi :s


Lorsque je mets des caractères non numérique dans mes plages à sommer, il ne les prends pas en compte mais ne plante pas.

Reply

Marsh Posté le 10-07-2006 à 10:34:40    

j'ai finalement réussi à obtenir ce que je voulais, c'est bon. Malheureusement, comme c'était à effecture une seule fois, et qu je faisais ca sur un bouton que j'ai reprogrammé derrière, je ne peux meme po vous donnez les lignes de codes complètes.  
Merci bien pour l'aide, mais reste dans les parages, je n'ai pas fini ;)
 :jap:

Reply

Sujets relatifs:

Leave a Replay

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