Tab Content
Pas d'activité récente
Informations de tamtam64

Informations de base

Informations de tamtam64
Sexe:
Homme
Pays:
France
Activité:
stagiaire developpement vba
Secteur:
Finance
Twitter:
tamtam64
Blog:
https://www.facebook.com/anthony.p.lomonaco
Loisirs:
Foot

Signature


Allez le RC LEns

Contact


Cette page
https://www.developpez.net/forums/u507541/tamtam64/
Messagerie instantanée

Envoyer un message instantanée à tamtam64 avec...

Statistiques


Messages au total
Messages au total
441
Messages par jour
0,15
Informations générales
Dernière activité
27/03/2020 19h14
Date d'inscription
06/05/2012
Voir le blog de tamtam64

Billets récents

Filtre avec condition (Fonction Tableau)

par tamtam64, 09/05/2016 à 17h28
Ici on présentera un filtre toujours avec une fonction tableau. On y ajoute une condition sur un critére.
Cette solution expliquée est aussi bien présentée dans le livre ctrl shift f9.


Code : Sélectionner tout - Visualiser dans une fenêtre à part
=IF(INDEX(Produits!$C:$C;MIN(IF(Produits!$R$9:$R$290="OK";IF(COUNTIF(C$19:C19;Produits!$C$9:$C$290)=0;ROW(Produits!$C$9:$C$290);ROWS(Produits!$C$9:$C$290)+ROWS(Produits!$C$9:$C$290)))))=0;"";INDEX(Produits!$C:$C;MIN(IF(Produits!$R$9:$R$290="OK";IF(COUNTIF(C$19:C19;Produits!$C$9:$C$290)=0;ROW(Produits!$C$9:$C$290);ROWS(Produits!$C$9:$C$290)+ROWS(Produits!$C$9:$C$290))))))

En lire plus...

Catégories
Sans catégorie

filter sans doublons

par tamtam64, 09/05/2016 à 15h57
Cette formule tableau que j'ai créé, à l'aide du formidable bouqui Ctrl shift F9, permet de disposer d'une liste sans doublon à partir d'une liste eventuellement constituée de doublons.
Petites informations :
On va nommer notre liste qui dispose des doublons "Vendeurs". On supose que cette liste est la liste des differents deals effectués, on comprend bien qu'un vendeur peut donc y etre plusieurs fois. Nous on veut récuperer la liste des vendeurs qui ont fait des ventes.

En lire plus...

Catégories
Sans catégorie

gestion pour test si une valeur appartien a un tableau de valeur

par tamtam64, 14/07/2015 à 15h36
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
    Dim MyTab As Variant
    Dim MyRange As Range
    MyTab = Array("SEK", "EUR")
    With Application.ThisWorkbook.Worksheets("Feuil2")
        For Each MyRange In .UsedRange.Columns(2).Cells
            On Error Resume Next
            If Not IsNull(Application.WorksheetFunction.Match(MyRange.Value, MyTab, 0)) Then
                If Err.Number = 1004 Then GoTo 1
                MsgBox ("Il y est")'

En lire plus...

Catégories
Sans catégorie

date sans l'heure

par tamtam64, 14/07/2015 à 10h50
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
    'transforme une date time sans la date
Function DateWithoutTime(ByVal Dat As Date) As Date
    DateWithoutTime = Int(Dat) + Hour(Date) / 24
End Function
Catégories
Sans catégorie

importer du texte avec un querytabes

par tamtam64, 14/07/2015 à 10h48
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
    'importe des donnees text
Sub ImportText(ByVal FileName As String, ByVal PosImport As Range)
    Dim QT As QueryTable
    Set QT = ActiveSheet.QueryTables.Add(Connection:="TEXT;" & FileName, Destination:=PosImport)
    With QT
        .TextFileSemicolonDelimiter = True
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .Refresh
    End With
End Sub
Catégories
Sans catégorie
Aucune certification n'a été indiquée. Déclarez vos certifications