[VBA-E] aide pour macro sur excel

**letoulouzin31** · 18/05/2006, 09h58

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 :

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

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

**Vesta** · 18/05/2006, 10h07

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

Code :

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

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

**moulefrite** · 18/05/2006, 10h11

salut

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 :

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

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

**letoulouzin31** · 18/05/2006, 10h12

Merci mais il y a un souci au niveau de :

Code :

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

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

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

**moulefrite** · 18/05/2006, 10h19

ta feuille aussi s'appel feuil1 ??

**letoulouzin31** · 18/05/2006, 10h21

oui elle s'appelle Feuil1

**Vesta** · 18/05/2006, 10h22

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 :

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

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

**letoulouzin31** · 18/05/2006, 10h28

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

**Vesta** · 18/05/2006, 11h06

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 :

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

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

**letoulouzin31** · 18/05/2006, 11h12

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)

**Vesta** · 18/05/2006, 11h32

SI ta un prob hesite pas c cool

**letoulouzin31** · 18/05/2006, 17h48

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

Code :

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

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

mais sa viendra je ne suis qu'à ma premiere année de BTS info en plein stage).

Merci d'avance pour toute reponses

**Vesta** · 18/05/2006, 19h13

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

Code :

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

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

**letoulouzin31** · 19/05/2006, 09h17

Je viens d'essayer mais quand je tape

Code :

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

 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 :

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

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

**AlainTech** · 19/05/2006, 09h41

Code :

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

Return: somme

C'est pas du VB, ça.

Pour le retour, tu dois faire comme ça:

Code :

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

somme_cel_couleur = somme

**Vesta** · 19/05/2006, 09h46

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 :

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

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 :

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

 somme_cel_couleur(G1:G383;vbMagenta)

Dans le code :

Code :

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

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

**letoulouzin31** · 19/05/2006, 09h53

NON pas résolu

tout me parait bon avec tout ce que vous m'avais dis mais non toujour et encor ce fichu #valeur

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

**AlainTech** · 19/05/2006, 10h12

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.

**letoulouzin31** · 19/05/2006, 15h11

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

Code :

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

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

**Vesta** · 19/05/2006, 15h46

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

Code :

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

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

[VBA-E] aide pour macro sur excel

Macros et VBA Excel

Discussions similaires

Partager

Partager