Discussion :

[-TheSpaceWalker-]

Bonjour, à tous !



Allons à l'essentiel...



J'ai essayé un peu le VBA, mais ce n'est pas trop mon truc ...

Je suis capable de le comprendre et de le modifier, mais quand il s'agit d'écrire... Plus personne.

Je fais donc appel à vous pour savoir s’il était possible que quelqu'un m'écrive une petite macro où me donnes des petit Tips sur celle-ci.

La macro que je souhaiterais questionnerait une colonne ( E ) à l’infini. Si la première case de E est non-vide elle va venir vérifier une condition sur une autre plage de données. Cette plage de données est : ( Dans la ligne de ma cellule non vide, de la colonne 9 à 13). Si la plage de données contient une cellule d'une couleur issue d'une mise en forme conditionnelle ( soit 198,89,17 ou 192,0,0 ) c’est gagné. Si elle ne contient pas cette couleur où tout simplement pas de valeur nous pouvons passer la deuxième case de E et ainsi de suite jusqu’à l’infini.

En revanche si la case de E est non-vide et contient la couleur c’est ici que je voudrais une extraction de données vers une nouvelle feuille.

Dans un premier temps, je souhaiterais extraire des valeurs non-variables ( B1, C1, D1 ) en haut de ma nouvelle feuille (en utilisant sûrement un xlup /xldown).

Dans un second temps, je souhaiterais extraire mes 2 conditions pour les alignées à mes valeurs non-variables.

Dans un troisième temps, je souhaiterais extraire la semaine de la case colorée ( La case tout en haut de cette case ) encore une fois à côté des 2 premières extractions.

Et pour finir, je souhaiterais extraire la donnée « action » qui dépend de la ligne de la condition correcte, encore une fois à côté des 3 premières extractions.

Je vous mets en exemple le type de fichier que j’utiliserais et le résultat que j’attendrais pour que ce soit plus parlant.

Je vous serais très reconnaissant si vous auriez des pistes où la détermination de me guider, ça serait vraiment gentil.

Si quelqu’un a même la foi de développer cette macro je saurai le récompenser .

Merci d’avance pour vos réponses.

Exemple Dev.xlsm

[mfoxy]

Bonjour,

Les format conditionnels (couleur de cellule) sont difficilement exploitable en vba.
Il serait plus simple de vérifier la condition dans la boucle.

Ton projet ne semble pas insurmontable, mais au vu de ton énoncé, il semble ici plus s'agir d'une demande de développement que d'une aide à apporter pour corriger un code existant.

Il y a ici, et j'en fait partie, des membres dont le vba fait partie de leur metier/revenu, filmer un coup de main oui mais faire un développement complet ressemble plus à un projet facturable qu'à une aide de 5 minutes.

N'hésite pas à revenir avec un bout de code pour que nous puissions t'aider.

Bat,

[MarcelG]

Bonjour à vous, Bonjour le Forum,

Je suis d'accord avec l'ami Mickaël.
Voir ce billet

[BENNASR]

bonjour
travailler avec des MFC + VBA n'est pas recommandé comme a signalé les messieurs ci haut
et moi, débutant et autodidacte VBA, je propose de tester :
fonction personnalisée (trouvée sur le net) + code (développé par un autodidacte ) :
1- fonction personnalisée :

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Public Function CouleurMFC(RG As Range, Optional Mode As Byte = 0) As Variant
Dim e As Long, i As Byte, LoTest As Boolean
Dim LoMFC As FormatCondition
    Application.Volatile
    'boucle sur le nombre de condition(s)
    'Si pas de MFC .FormatConditions.Count renvoi 0
    For i = 1 To RG.FormatConditions.Count
        Set LoMFC = RG.FormatConditions(i)
        If LoMFC.Type = xlCellValue Then
        'tester le type de la formule entrée
            Select Case LoMFC.Operator
            Case xlEqual
                LoTest = RG = Evaluate(LoMFC.Formula1)
            Case xlNotEqual
                LoTest = RG <> Evaluate(LoMFC.Formula1)
            Case xlGreater
                LoTest = RG > Evaluate(LoMFC.Formula1)
            Case xlGreaterEqual
                LoTest = RG >= Evaluate(LoMFC.Formula1)
            Case xlLess
                LoTest = RG < Evaluate(LoMFC.Formula1)
            Case xlLessEqual
                LoTest = RG <= Evaluate(LoMFC.Formula1)
            Case xlNotBetween
                LoTest = (RG < Evaluate(LoMFC.Formula1) Or RG > Evaluate(LoMFC.Formula2))
            Case xlBetween
                LoTest = (RG >= Evaluate(LoMFC.Formula1)) And (RG <= Evaluate(LoMFC.Formula2))
            End Select
            If LoTest Then
                'Peu ajouter d'autre format si nécessaire,
                'comme la bordure, la police etc..
                Select Case Mode
                Case 0
                    CouleurMFC = LoMFC.Interior.ColorIndex
                Case 1
                    CouleurMFC = LoMFC.Interior.Color
                End Select
                Exit Function
            End If
        End If
    Next i
    CouleurMFC = xlNone
End Function

2 - Code :

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
29
30
31
Sub RECAPUTULER()
Dim F1 As Worksheet
Dim F2 As Worksheet
Dim i As Long
Dim derligne As Long
Set F1 = Sheets("synthèse")
Set F2 = Sheets("Résultat")
Application.ScreenUpdating = False
 F2.Cells.ClearContents
derligne = F1.Cells(Rows.Count, 1).End(xlUp).Row
Ligne = 1
For i = 3 To derligne
    For C = 9 To 13
    If Not IsEmpty(F1.Cells(i, 5).Value) Then
          If CouleurMFC(F1.Cells(i, C)) = 46 Or CouleurMFC(F1.Cells(i, C)) = 3 Then
        F2.Cells(Ligne, 1) = F1.Cells(1, 2)
        F2.Cells(Ligne, 2) = F1.Cells(1, 3)
        F2.Cells(Ligne, 3) = F1.Cells(1, 4)
        F2.Cells(Ligne, 4) = F1.Cells(i, 3)
        F2.Cells(Ligne, 5) = F1.Cells(i, C)
        F2.Cells(Ligne, 6) = F1.Cells(i, 5)
        F2.Cells(Ligne, 7) = F1.Cells(1, C)
        End If
    End If
    If F2.Cells(Ligne, 1) <> "" Then Ligne = Ligne + 1
    Next C
 If F2.Cells(Ligne, 1) <> "" Then Ligne = Ligne + 1
Next i
Application.ScreenUpdating = True
F2.Select
End Sub

je sais pas si ça résout ton problème
so c'est le cas et suite votre message :

Si quelqu’un a même la foi de développer cette macro je saurai le récompenser

donc un petit virement bancaire
Bonne Continuation
ton fichier avec le code

[Pierre Fauconnier]

Salut.

Je plussoie mes camarades (Bonjour à tous ).

La mise en forme conditionnelle a été prévue pour permettre une analyse visuelle par un utilisateur humain. Elle n'est pas conçue pour qu'une machine l'analyse et la machine analysera bien mieux les conditions qui président à la MFC que la MFC elle-même.

Au vu de tes explications, je pense qu'il faudrait de toutes façons revoir la conception du classeur.