8 résultats trouvés pour wilfried_42

Bonjour

une petite question : comme je n'ai pas trouvé, est il possible de lier un fichier Excel dans le forum ? Je n'ai trouvé que les images...

merci de votre attention

bonjour Administrateur

j'ai mis le fichier sur mon site mais non lie à une page
Sur google chrome (que j'ai) çà affiche une page blanche mais le fichier est à télécharger en bas à gauche
sur Internet Explorer, ça affiche directement la fenêtre de téléchargement
Pour les autres firefox.... etc, je ne sais pas

re:

voici un fichier un peu plus élaboré qui permet aussi à l'aide de formules matricielles de calculer selon les couleurs des MFC. j'ai refait sub un autre principe pour que la macro aille plus vite...

Calcul MFC

voici un lien c-joint, volatile Calcul MFC

Bonjour

Personnellement je n'aime pas cette formulation et je ne l'utilise jamais, il se pourrait qu'il manque un EndIf.
If vecteur_CH(k) = "AB" Then
vecteur_PL(k) = "CD"
ElseIf vecteur_CH(k) = "EF" Then
vecteur_PL(k) = "GH"
ElseIf vecteur_CH(k) = "IJ" Then
vecteur_PL(k) = "KL"
End If
je prefère ca, c'est plus lisible :

Code:

select case vecteur_CH(k)
      Case ="AB"
          vecteur_PL(k) = "CD"
      Case "EF"
          vecteur_PL(k) = "GH"
      Case "IJ"
          vecteur_PL(k) = "KL"
      CaseElse
          Vecteur_PL(k) = "Erreur" ' Simplement pour terminer la Demo
end select


Bonjour

un montant TTC se calcule comme suit
TTC = HT + (HT * TVA /100)
Autrement dit :
TTC = HT * 1.186
donc :
HT = TTC / 1.186
Et :
TVA = TTC - (TTC/1.186)

re: JNP, Bisous Brigitte

Une petite précision, Cette macro est à l'origine celle de Laurent Longre, que j'ai omis de citer précédemment.

dans la fonction tu as 3 paramètres
1 - la cellule
2 - Le code couleur
3 - un Code de 0 à 3

le Code de 0 à 3
0 --> affiche le code couleur dans un message
1 --> teste si le code couleur = au fond de la cellule
2 --> teste si la code couleur = à la couleur des caractères
3 --> Renvoie le code couleur de la MFC prise en compte

si code 1 ou 2 : renvoie 1 s'il y a égalité sinon renvoi 0

La fonction telle quelle ne peut fonctionner et ne fonctionnera jamais à cause du désagrément d'Excel précédemment cité.
Dés que tu utilises des Formules (6ème choix Excel 2007) avec des références cellule relatives ça ne peut pas marcher.
Si tu n'utilises que des références de cellule figées, il suffit d'enlever une ligne de la Macro : Target.Select
On ne peut en aucun cas sélectionner une cellule dans une Fonction
Et comme Excel Fait varier les références relatives des MFC selon la cellule Active et non pas la cellule qui contient la MFC, ça devient un problème insurmontable.... Sauf en trichant comme je l'ai fait dans le lien donné et en utilisant l'interruption Calculate. Mais la ça devient une usine à gaz.

Bonjour JNP

C'est déja écrit : Ici

mais c'est un peu lourd, même si c'est une fonction, elle ne peut s'utiliser qu'à l'intérieur d'un Sub, Excel (dans le cas des formules MFC) faisant évoluer les adresses en fonction de la cellule active, on est dans l'obligation de sélectionner la cellule chose impossible dans une fonction classique.

le code :

Code:

Public Function Q_MFC(Target As Range, couleur As Integer, code As Integer) As Double
' Procedure originelle de Laurent LONGRE modifiée par Wilfried_42
    Dim fc As FormatCondition, F1, F2
    Dim c As Range
    Q_MFC = 0
    Set c = ActiveWorkbook.ActiveSheet.Cells.Find(Empty)
' la fonction est appelée par une procedure Sub donc pas de probleme, je peux selectionner la cellule
'
' Cette selection est necessaire, un desagremment d'Excel fait varier les plages des formules MFC en fonction de la
' cellule active (Plages non figées)
    Target.Select
'
' Cette partie de la macro est tirée de la macro de Laurent LONGRE
'
    For Each fc In Selection.FormatConditions ' on scrutte toute les MFC
        c.FormulaLocal = fc.Formula1: F1 = c ' Si c'est une formule, mise en place de cette formule dans une cellule, resultat Vrai ou Faux
        If fc.Type = xlCellValue Then ' si le type de MFC est : La valeur de la cellule (ce n'est pas une formule)
            Select Case fc.Operator ' Selon l'opérateur utilisé : on réalise le test et on met 1 quand c'est Ok
                Case xlBetween, xlNotBetween: '
                    c.FormulaLocal = fc.Formula2: F2 = c
                    If fc.Operator = xlBetween Then If ActiveCell >= F1 And ActiveCell <= F2 Then Q_MFC = 1
                    If fc.Operator = xlNotBetween Then If ActiveCell < F1 Or ActiveCell > F2 Then Q_MFC = 1
            Case xlEqual ' Egalité
                If ActiveCell = F1 Then Q_MFC = 1
            Case xlGreater ' Plus grand
                If ActiveCell > F1 Then Q_MFC = 1
            Case xlGreaterEqual ' Plus grand ou egal
                If ActiveCell >= F1 Then Q_MFC = 1
            Case xlLess ' Plus petit
                If ActiveCell < F1 Then Q_MFC = 1
            Case xlLessEqual ' Plus petit ou egal
                If ActiveCell <= F1 Then Q_MFC = 1
            Case xlNotEqual ' Différent
                If ActiveCell <> F1 Then Q_MFC = 1
            End Select
        Else ' C'est une formule on regarde le resultat de la formule
            If F1 = True Then Q_MFC = 1
        End If
        If Q_MFC = 1 Then
            Select Case code
                Case 0
                    MsgBox fc.Interior.ColorIndex
                    Q_MFC = 0
                Case 1
                    If fc.Interior.ColorIndex <> couleur Then Q_MFC = 0
                Case 2
                    Q_MFC = Target.Value
                    If fc.Interior.ColorIndex <> couleur Then Q_MFC = 0
                Case 3
                    Q_MFC = fc.Interior.ColorIndex
                Case Else
                    Q_MFC = 0
            End Select
            Exit For
        End If
    Next fc
    c.ClearContents
End Function

Bonjour à tous

Pour l'admin : ayant changé d'adresse email, je n'ai pas vu ton message, ayant oublié de modifier mon adresse. désolé pour ce retard.

Tres joli ton forum, toutes mes félicitations.

@ plus, ici ou ailleur

amicalement
Wilfried