Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1322 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [Résolu][Excel] pb de formula

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[Résolu][Excel] pb de formula

n°1402567
jpcheck
Pioupiou
Posté le 07-07-2006 à 10:21:41  profilanswer
 

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
mood
Publicité
Posté le 07-07-2006 à 10:21:41  profilanswer
 

n°1402575
Paul Hood
Posté le 07-07-2006 à 10:31:11  profilanswer
 

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

n°1402588
jpcheck
Pioupiou
Posté le 07-07-2006 à 10:39:19  profilanswer
 

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 ?

n°1402613
Paul Hood
Posté le 07-07-2006 à 10:53:13  profilanswer
 

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.

n°1402617
jpcheck
Pioupiou
Posté le 07-07-2006 à 10:56:14  profilanswer
 

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)) & " )"

n°1402624
Paul Hood
Posté le 07-07-2006 à 11:04:37  profilanswer
 

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

n°1402638
jpcheck
Pioupiou
Posté le 07-07-2006 à 11:15:47  profilanswer
 

incompatibilité de type 13

n°1402645
jpcheck
Pioupiou
Posté le 07-07-2006 à 11:18:50  profilanswer
 

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

n°1402656
Paul Hood
Posté le 07-07-2006 à 11:26:35  profilanswer
 

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

n°1402668
jpcheck
Pioupiou
Posté le 07-07-2006 à 11:33:50  profilanswer
 

je me retrouve avec des erreurs 1004

mood
Publicité
Posté le 07-07-2006 à 11:33:50  profilanswer
 

n°1402672
Paul Hood
Posté le 07-07-2006 à 11:36:28  profilanswer
 

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

n°1402673
jpcheck
Pioupiou
Posté le 07-07-2006 à 11:38:24  profilanswer
 

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

n°1402681
Paul Hood
Posté le 07-07-2006 à 11:44:50  profilanswer
 

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

n°1402696
jpcheck
Pioupiou
Posté le 07-07-2006 à 11:55:09  profilanswer
 

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

n°1403566
Paul Hood
Posté le 10-07-2006 à 10:24:31  profilanswer
 

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.

n°1403577
jpcheck
Pioupiou
Posté le 10-07-2006 à 10:34:40  profilanswer
 

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:


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [Résolu][Excel] pb de formula

 

Sujets relatifs
[Résolu] Equivalent uft8_encode() en Java?[Excel] Définir les lignes à répéter en haut pour ttes les feuillles
[RESOLU] vider plusieur sous dossier[Résolu] Fusionner plusieurs feuilles en une seule
reccurence de mots dans un fichier (excel ou html)replace excel
[Résolu]Affichage ou non d'un scrollBar[RESOLU] concatenation
[Résolu] Génération fichier PDF depuis fichier XML, en utilisant FOP[résolu] Passage de variable javascript vers flash avec iframe
Plus de sujets relatifs à : [Résolu][Excel] pb de formula


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR