[VBA-E] aide pour macro sur excel

Bonjour,

Je souhaiterai avoir de l'aide pour recherché dans un tableau Excel les nouveau client de la semaine (une colone = une semaine 52 semaines au total) qui sont repérés avec une couleur spécifique et faire le calcul en bas de chaque colone je vous une partie du code qui a été réalisé par personne sur laquelle je me suis basé [mais je ne sait koi mettre dans l'apel de la fontction somme_cel_couleur(Feuil1 , ....)]

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

Private Sub somme_Click()   Sum = somme_cel_couleur(Feuil1, bgcol)   End Sub   Function somme_cel_couleur(SearchArea As Object, Bgcolor As Range) As Double   Dim macoul As Byte, cell As Range Dim somme As Double   Application.Volatile   somme = 0   macoul = Bgcolor.Interior.ColorIndex   For Each cell In SearchArea   If cell.Font.ColorIndex = macoul Then somme = somme + cell.Value End If   Next cell   somme_cel_couleur = somme   End Function

---

Merci d'avance

Essaie avec ca si ca foire dis moi ou...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

Private Sub somme_Click() Sum = somme_cel_couleur(Feuil1.Range("A1:C100000"), vbRed) End Sub Function somme_cel_couleur(SearchArea As RANGE, Bgcolor as integer) As Double Application.Volatile somme = 0 For Each cel In SearchArea.cells If cel.Font.ColorIndex = Bgcolor Then somme = somme + cel.Value End If Next cel somme_cel_couleur = somme End Function

---

salut :D


il te demande un object comme 1er parametre, j'ai fais ca il y a un petit moment mais il me semble que c'a doit etre peu-etre le nom de ta feuille excel
et pour ce qui est de ta variable bgcolor c'est un code couleur.

moi perso j'aurai fai plus simple avec une fonction qui recoit en parametre d'entrée l'indice colonne.


exemple :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

fonction somme_cel(col int) as double   parcours colonne somme = somme + cell.value jusqu'a cell = ""   ensuite pour ce qui est de la couleur tu genere le code couleur genre #FF1188 grace à l'indice de ta colonne ex : colonne 9 tu fai un pti code #FF9900   tu renvoi ton resultat

---

en faite l'utilisation de ta fonction devai surement se faire sur plusieurs feuilles.
Si tu ne l'utilise uniquement que sur celle-ci l'adapter pour qu'elle ne recoive plus en parametre d'entrée la feuille sur laquelle elle devra faire le traitement.

voila j'espere que c'a t'aidera :D

Merci mais il y a un souci au niveau de :

Code:

---

Sum = somme_cel_couleur(Feuil1.Range("A1:C100000"), vbRed)

---

Citation:

---

erreur : la méthode Range de work sheet a echoué

---

ta feuille aussi s'appel feuil1 ??

oui elle s'appelle Feuil1

Citation:

---

Envoyé par letoulouzin31

Merci mais il y a un souci au niveau de :

Sum = somme_cel_couleur(Feuil1.Range("A1:C100000"), vbRed)

erreur : la méthode Range de work sheet a echoué

---

Peut etre que j'ai exagéré dans les 0 lol mas 85536 lol

Code:

---

Sum = somme_cel_couleur(Feuil1.Range("A1:C3000"), vbRed)

---

Je pense que sa marche mais il doit y avoir quelque trucs a changé merci beacoup. Juste une petite question le vbRed correspond à quoi??
car en fait c'est la couleur de police a recherché est rose

c'est la couleur rouge...

essaie un debug.print vbred
et dans l'aide cherche un peu... Tu trouvera les variables vb assignées a des couleurs... Si tu ne trouve pas... Tu prend l'adresse d'une cellule que tu connais et qui contient la couleur, tu demande de t'afficher le code couleur par code.

Code:

---

Msgbox cells(2,2).font.colorindex

---

et tu note, puis tu remplace vbred par ce que tu ca...

Oui c'est pour te donnée une idée... Faut changer qques trucs... Mais je connais pas tout de ton fichier, des ranges de recherche etc... Donc peu pas faire mieu :p

Merci Tout Va m'être très utile.(je ne me plain pas de ne pas avoir plus de détaille je m'attendais à avoir des choses a modifier faut bien que je bosse un peu quand même sinon il n'y a pas d'intérêt.)

Problème résolu (sauf exeption)

SI ta un prob hesite pas c cool

Bon alor j'ai décider que je passerai que par la fonction et que je n'utiliserai pas de fonction graphique.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Function somme_cel_couleur(SearchArea As Range, Bgcolor As Integer) As Double Application.Volatile   somme = 0 For Each Cel In SearchArea.Cel If Cel.Font.ColorIndex = Bgcolor Then somme = somme + Cel.Value End If Next Cel   Return: somme   End Function

---

mais voilà avec sa g un problème quand je rentre la fonction sur ma feuille avec ceci:
somme_cel_couleur("G1:G383",vbMagenta) sa me donne "#VALEUR"

P.S.: oui oui je suis pas très bon en VB :D mais sa viendra je ne suis qu'à ma premiere année de BTS info en plein stage).:roll:
Merci d'avance pour toute reponses

"G1:G383" ca n'a rien avoir avec un Range qu'attend la fonction...

Code:

---

somme_cel_couleur(Nomdelafeuille.Range("G1:G383"),vbMagenta) sa me donne "#VALEUR"

---

Je viens d'essayer mais quand je tape

Code:

---

somme_cel_couleur(Feuil1.range("G1:G383");vbMagenta)

---

Le résultat est le même
Est ce qu'il n'y orai pas une erreur dans ma fonction au niveau de la boucle?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Function somme_cel_couleur(SearchArea As Range, Bgcolor As Integer) As Double Application.Volatile   somme = 0 For Each Cel In SearchArea.Cel If Cel.Font.ColorIndex = Bgcolor Then somme = somme + Cel.Value End If Next Cel   Return: somme   End Function

---

P.S.: je vien de voir que je n'vais pas déclarer la variable somme que je retourne mais résultat touour identique

Code:

---

Return: somme

---

C'est pas du VB, ça.

Pour le retour, tu dois faire comme ça:

Code:

---

somme_cel_couleur = somme

---

A la fin je ne m'en sort plus lol de lol Résolu ou pas ? Sii tu as encore des prob crée un nouveau message stp...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Function somme_cel_couleur(SearchArea As Range, Bgcolor As Integer) As Double Application.Volatile somme = 0 For Each Cel In SearchArea.Cel If Cel.Font.ColorIndex = Bgcolor Then somme = somme + Cel.Value End If Next Cel 'Return: somme ARGH PAS BON somme_cel_couleur = somme End Function

---

Cette fonction tu l'appelle dans une feuille ou dans le code?

Dans une feuille alors faut ecrire :

Code:

---

somme_cel_couleur(G1:G383;vbMagenta)

---

Dans le code :

Code:

---

somme_cel_couleur(Feuil1.range("G1:G383"),vbMagenta)

---

NON pas résolu :cry: tout me parait bon avec tout ce que vous m'avais dis mais non toujour et encor ce fichu #valeur:cry:


P.S:OK je v créer un nouveau message (dsl pour cette errreur de resolu alor que finalement sa ne l'etait pas

Citation:

---

Envoyé par letoulouzin31

P.S:OK je v créer un nouveau message (dsl pour cette errreur de resolu alor que finalement sa ne l'etait pas

---

NON!
Continue dans celle-ci, sinon on perd l'historique de ton problème.

Ben la je c pas trop comment faire car g tout essayer avec les informations données
Ma fonction corrigée donne:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Function somme_cel_couleur(SearchArea As Range, Bgcolor As Integer) As Double   Application.Volatile Dim somme As Double   somme = 0 For Each Cel In SearchArea.Cel If Cel.Font.ColorIndex = Bgcolor Then somme = somme + Cel.Value End If Next Cel somme_cel_couleur = somme   End Function

---

Mais j'obtiens toujours le #VALEUR

Encore une erreur qui n'était pas dans ma fonction

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Function somme_cel_couleur(SearchArea As Range, Bgcolor As Integer) As Double Application.Volatile Dim somme As Double somme = 0 For Each Cel In SearchArea.Cells If Cel.Font.ColorIndex = Bgcolor Then somme = somme + Cel.Value End If Next Cel somme_cel_couleur = somme End Function

---

Rochmenback precise plusieur koi??????? sinon on ne pourra t'aider

P.s.: bon pour ma fonction je v l'envoyer à un de mes prof il pourra peu être m'aider car celà ne marche toujours pas. Vesta je te remercie pour toute l'aide que tu m'a apporté je posterai la solution quand je l'orai trouvé.

:P ben voilà comme promis la solution à mon problème:lol: :roll: . Finalement la solution pour le repérage des couleur de police dans le tableau ce fait a l'aide d'une couleur de fond de la cellule où la formule est insérer:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Function somme_cel_couleur(SearchArea As Object, BgColor As Range) As Double   Dim macoul As Byte, cell As Range Application.Volatile True   somme_cel_couleur = 0 macoul = BgColor.Interior.ColorIndex   For Each cell In SearchArea If cell.Font.ColorIndex = macoul Then somme_cel_couleur = somme_cel_couleur + cell.Value Next cell End Function

---

je remercie toutes les personnes m'ayant aidé pour ce problème