Rapport de message :*
 

Re: mDF-XLpages.com change de look !

Titre du sujet : Re: mDF-XLpages.com change de look !
par JeanMarie le 01/07/2008 00:17:18

Bonsoir, tout le monde et en particulier à Didier

Comment resté objectif...

Très belle performance.

Et cela fonctionne correctement sur Safari. 

J'apprécie la taille de mes écrans... Le bandeau pseudo a pris un peu trop de place à mon goût.

J'ai aussi testé ce que tu expliquais dans le fil concernant la correction orthographique et le Ctrl+Clique droit, ça marche aussi, mais avec une petit plus, sous mon navigateur la correction automatique reste fonctionnelle. 

J'attends comme beaucoup de monde les prochaines possibilités qui nous seront offertes.

@+Jean-Marie

Sans oublier...

L'ajout d'une formule...
=SI(EQUIV(PETITE.VALEUR($A3:$J3;COLONNE()-11);$A3:$J3;0)=M3;M3+1;EQUIV(PETITE.VALEUR($A3:$J3;COLONNE()-11);$A3:$J3;0))
 L'ajout d'un code VBA

Sub ValFiltres()
'myDearFriend!  -  www.mdf-xlpages.com
Dim CritFiltres(1 To 3, 1 To 5) As Variant
Dim C As Byte
    With Sheets("Feuil1").AutoFilter
        For C = 1 To 5
            With .Filters(C)
                If .On Then
                    CritFiltres(1, C) = .Criteria1
                    If .Operator Then
                        CritFiltres(2, C) = Choose(.Operator, "Et", "Ou")
                        CritFiltres(3, C) = .Criteria2
                    End If
                End If
            End With
        Next
    End With
    With Sheets("Feuil2")
        .Range("D2:H4").Value = CritFiltres
    End With
End Sub