récupérer la valeur de l´unique cellule colorée d´une colonneRésolu

Question

bonjour

je veux créer une FONCTION, où je selectionnerais une colonne
et la fonction me donnerait la valeur de la cellule qui est colorée en jaune dans cette colonne (je precise il n´y a qu´une seule cellule jaune dans la colonne) puis je fais une multiplication avec une autre cellule où je connais son adresse

comment faire ?
j´ai la macro suivante qui fonctionne
mais je voudrais une fonction

Sub Farbig()
Dim i As Integer
For i = 1 To 9
    If Cells(i, 10).Interior.ColorIndex = 6 Then
        Cells(11, 10).Value = Cells(i, 10).Value * Cells(10, 10).Value
    End If
Next

End Sub


le probleme que je rencontre c´est en faisant Function Farbig (.......) as string
que mettre dans les parentheses pour dire que je puisse selectionner une colonne

merci

micmerle · Accepted Answer

Salut,
Maximo71 a raison avec son bouton. Une fonction qui change la valeur d'une autre cellule qu'elle mm ne pourra pas tourner. Donc c'est le bouton qui d&#233;clenche une sub et pas une fonction (et tu &#233;cris o&#249; tu veux) ou la fonction et le r&#233;sultat sera &#233;crit dans la fonction et pas ailleurs
Michael

micmerle · Answer

Salut,
(ByRef maSelection as Range) avec maSelection une s&#233;lection de cellule
et tu extraits ta colonne par
maColonne=maSelection .Row (ca marchera si tu as bien une ou plusieurs cellules mais sur une mm colonne
Sinon pourquoi tu ne mets pas juste un (ByVal maColonne as Integer) et quand tu l'appelles via une Worksheet, tu peux mettre
=Farbig(Column(A1)) ou Colonne(A1) en fran&#231;ais ?

Le prob va etre le suivant: depuis une fonction, tu ne peux pas modifier une cellule (hors celle qui continet la fonction )donc ton code devra changer en:
'elle retournera 0 si elle trouve pas
Function Farbig(ByVal maColonne As Integer) as Long
Dim i As Integer

For i = 1 To 9
    If Cells(i, maColonne ).Interior.ColorIndex = 6 Then
        Farbig(11, maColonne ).Value = Cells(i, maColonne ).Value * Cells(10, maColonne ).Value
      exit function
    End If
Next

End Function

MAXIMO71 · Answer

function Farbig as long





for each c in range("J1:J9")

    If c.interior.ColorIndex  = 6 then

       cells(11,10).value = c.value * cells(10,10).value

        exit for

    end if

Next c



end function



Test ce qui est au dessus, dit moi si cela convient par un petit message et en validant la r&#233;ponse merci




 MAXIMO71 
PS Si la r&#233;ponse vous satistait
pensez &#224; la valider

jrivet · Answer

Re

A quoi ca sert de reposer la m&#234;me question 2 Fois......

http://www.vbfrance.com/infomsg/FORMULE-EXCEL-PERMETTANT-RECONNAITRE-COULEUR-CELLULE-5_708989.aspx

@+, Julien 
Pensez: Moteur de Recherche, R&#233;ponse Accept&#233;e

ludo_wob · Answer

salut micmerle merci beaucoup pour ton aide, effectivement ca renvoie zero, je ne comprends pas exactement pourquoi

merci aussi maximo, dans ton script l´utilisateur ne peut pas choisir la colonne ? et lorsque je teste ca, ca ne renvoie aucune valeur

vous pouvez m´aider
merci

ludo_wob · Answer

certes c´est peut etre la meme question, d´ailleurs tu m´as bien aidé, je t´en remercie, mais je reexprime ma demande sous d´autres termes

jrivet · Answer

Re,

Si tu Expliques bien d&#232;s le d&#233;but ton probl&#232;me tu porras avoir une r&#233;ponse claire...
"reexprime ma demande sous d&#180;autres termes"...
Pourquoi ne pas l'avoir fait avant... tu aurais pu penser aux gens qui lisent et d&#233;pensent de leur temps (m&#234;me si ils ne le sont pas oblig&#233;s) &#224; essayer de r&#233;soudre ton probl&#232;me 

Enfin bref.

@+, Julien 
Pensez: Moteur de Recherche, R&#233;ponse Accept&#233;e

ludo_wob · Answer

jsuis desolé, mais c´est en utilisant le code que tu m´avais ecrit, que j´ai vu que je bloquais donc c´est la raison de ce nouveau post

MAXIMO71 · Answer

Function Farbig() As Long





For Each c In Selection

    If c.Interior.ColorIndex = 6 Then

       col = c.Column

       Cells(11, col).Value = c.Value * Cells(10, col).Value

       Exit For

    End If

Next c



End Function



J'insiste mais ici tu selectionnes une colonne celle que tu veux et tu lance ta macro qui contient la fonction

 MAXIMO71 
PS Si la r&#233;ponse vous satistait
pensez &#224; la valider

ludo_wob · Answer

Je viens de tester ce que tu m´as proposé mais ca ne fonctionne toujours pas. Je ne comprends pas ce que tu veux dire par "lancer la macro". car en enregistrant le code que tu me proposes j´obtiens une fonction et non une macro. donc ´je selctionne ma colonne, puis je lance ma fonction mais j´obtiens toujours 0. ce qui ne correspond pas au resultat de mon operation

MAXIMO71 · Answer

La fonction est elle pr&#233;sente dans une macro car dans une de tes demande, tu demandais une fonction.

Si tu veux la tester je te la donne sous forme de macro



Sub test25()

Farbig

End Sub





Function Farbig() As Long





For Each c In Selection

    If c.Interior.ColorIndex = 6 Then

       col = c.Column

       Cells(11, col).Value = c.Value * Cells(10, col).Value

       Exit For

    End If

Next c



End Function





Tu selectionnes une colone dans laquelle il y a une case jaune qui
contient une valeur et une valeur dans la case 10, tu lance la macro
test25 et tu obtiendras le r&#233;sultat de la multiplication dans la case
11.  J'attire ton attention sur une &#233;vidence mais bon parfois, il
faut que tes cases contiennent des valeur num&#233;riques et pas du texte,
je sais c'est une &#233;vidence mais j'ai parfois bloqu&#233; pour moins

 MAXIMO71 
PS Si la r&#233;ponse vous satistait
pensez &#224; la valider

ludo_wob · Answer

Salut Maximo71
merci beaucoup pour ton aide, j´ai maintenant compris comment ca fonctionne. c´est parfait. Je suis loin d´etre un expert en programmation, et ca me fait toujours plaisir d´avoir de l´aide

j´aurais une autre question: 
avec cette macro je ne peux selectionner qu´une colonne puis je lance la macro et j´obtiens le resultat. Maintenant si je dois effectuer cette operation sur plusieurs colonnes, existe t´il une possibilité pour que je sélectionne des le debut 5, 6 voire plusieurs colonnes et en lancant la macro j´obtiendrai le resultat pour toutes mes colonnes ?

Deuxieme question: 
Au debut j´avais imaginé faire en sorte que toute les cellules de la ligne 11 soient dotées d´une "fonction" c´est a dire genre

= Si de la ligne 1 à 9 il y a une case jaune, je prends sa valeur et je la multiplie par la valeur de la ligne 10
ainsi il serait surement possible d´avoir des valeurs actualisées de mon calcul lorsque je modifie la valeur de ma cellule jaune
est ce que tu me comprends ? et donc je voulais savoir si ca serait envisageable ?

merci
bonne journee

MAXIMO71 · Answer

La fonction utilise la selection comme zone de recherche, donc
normalement si tu en selectionnes plusieurs cela devrait fonctionner.
Autrement, tu peux d&#233;finir la zone de recherche en utilisant un objet
range du genre Range("A1:J9") pour tester toutes les cases de la plages
A1 &#224; J9, &#233;crit de cette fa&#231;on, la plage selectionn&#233;e correspond &#224; A1
comme cellule en haut &#224; gauche et J9 comme cellule en bas &#224; droite, il
y a d'autre fa&#231;on de faire mais celle ci est simple et te permet
d'appr&#233;hender les objets Range. Je te redonne le code modifi&#233;:



Sub test25()

Farbig

End Sub





Function Farbig() As Long





For Each c In Range("A1:J10") 'A correspond &#224; la colone la plus &#224; gauche que tu veux tester et J la plus &#224; droite.

    If c.Interior.ColorIndex = 6 Then

       col = c.Column

       Cells(11, col).Value = c.Value * Cells(10, col).Value

       Exit For

    End If

Next c



End Function


Pour ce qui concerne ton id&#233;e de formule du type =...., il n'est pas
possible de les utiliser dans ce cas car elles ne permettent pas de
tester autre chose que la valeur de la cellule (pas de mise en forme).
En revanche, tu peux mettre un bouton de commande dans ta barre de
bouton en utilisant outil/personnaliser/commande/macro. Cela
simplifiera l'utilisation de ta Macro.

Je dois v&#233;rifier quelque chose sur le site et je te donne plus d'&#233;l&#233;ments pour te simplifier la vie.



A+ et n'h&#233;site pas &#224; poser des questions mais fais attention quand on
met le doigt dans le developpement m&#234;me &#224; petit niveau, rien ne plus
t'arr&#233;ter.

Dernier petit d&#233;tail, peux tu valider la r&#233;ponse, merci


 MAXIMO71 
PS Si la r&#233;ponse vous satistait
pensez &#224; la valider

MAXIMO71 · Answer

C'est re moi pour te simplifier la manipulation de la Macro tu peux
cr&#233;er un bouton sur ta feuille de calcul avec la barre d'outil Visual
Basic tu met un bouton sur ta feuille et clique droit pour visualiser
le code puis tu &#233;cris directement le code dans le bouton que tu cr&#233;es.



Voila en esp&#233;rant que tu vas tout comprendre et que tu vas atteindre ton objectif.

 MAXIMO71 
PS Si la r&#233;ponse vous satistait
pensez &#224; la valider

ludo_wob · Answer

salut
j´ai testé ton code, et la modification ne change rien au resultat, c´est a dire que je n´obtiens le resultat de la multiplication uniquement pour la derniere colonne de ma selection.
j´ai tenté de modifier ton code, avec celui ci-dessous

Function couleur() As Long

Dim nbcol As Integer
Dim colo As Integer
nbcol = Worksheets(1).UsedRange.Columns.Count

For colo = 1 To nbcol

    For Each c In Range(Cells(1, colo), Cells(9, colo)) 'A correspond à la colone la plus à gauche que tu veux tester et J la plus à droite.
        If c.Interior.ColorIndex = 6 Then
            col = c.Column
            Cells(11, col).Value = c.Value * Cells(10, col).Value
        Exit For
        End If
    Next c
Next colo

End Function

c´est a dire que pour chaque colonne je demande a faire la multiplication. D´apres mes premiers essais ca a l´air de fonctionner.
merci beaucoup pour ton aide. je n´ai pas beaucoup de connaissance en informatique mais c´est vrai que la logique informatique ca m´interesse et c´est aussi utile pour mon boulot.

autre chose: pour le bouton raccourci macro, c´est parfait.

ciao

Récupérer la valeur de l´unique cellule colorée d´une colonne

15 réponses

Discussions similaires