resultat sur 2 colonneset 2 feuilles

[Surfeur En Serie]

Bonjour le forum
j'ai de nouveau un probleme ( je sais , ça ne change pas lool )
alors je m explique
1 )sur 1 feuille j'ai un tableau avec plusieur jours aleatoire ( pas de limitation en nombre de ligne )
2) sur une seconde feuille , j ai un tableau avec des jours egalement aleatoire ( qui sont le resultats d une autre feuille que je ne mets pas ici pour ne pas compliquer la comprehension

je voudrais compter le nombre de jour total, et surtout compter le nombre de jour different

sur ce projet , je commence par des jours , mais ca pourrait etre egalement des noms au lieu des jours , donc une formule qui pourrait gerer une chaine de caracteres serrai l ideal plutot que de gerer soit des dates soit des noms je pense.
Je prefererai que cela se passe par formule

 

[Surfeur En Serie]

Re : resultat sur 2 colonneset 2 feuilles

merci de repondre aussi rapidement et désolé des problemes que je rencontre mais je pensais qu a partir du moment ou j vais la valeur que celle ci etait exploitable
sur differente feuille j ai besoin de recuperer les valeurs suivante
"=Temp!F3" à "=Temp!F6" qui me servent de depart pour certain calcule tout simple

 

[JCGL]

Re : resultat sur 2 colonneset 2 feuilles

Bonjour à tous,

Peux-tu essayer avec :

Option Explicit

Sub Consolide_Onglets()
    Dim F As Byte
    Dim NL As Long
    Dim NC As Long

    Application.ScreenUpdating = 0
    On Error Resume Next
    Sheets("Temp").Range("A1:F1000").ClearContents
    For F = 2 To Sheets.Count
        NL = Sheets(F).Range("A1000").End(xlUp).Row - 1
        NC = Sheets(F).Range("A1").CurrentRegion.Columns.Count
        Range("A600").End(xlUp).Offset(1, 0).Resize(NL, NC).Value = _
                Sheets(F).Range("A2").Resize(NL, NC).Value
    Next F
    On Error Resume Next

    With Range("A1:A1000")
        .SpecialCells(xlCellTypeBlanks).EntireRow.Delete
        .Sort Key1:=Range("A1"), Order1:=xlDescending, Header:=xlGuess
    End With

    With Range("F2")
        .Formula = "=SUMPRODUCT((LEFT(R[-1]C[-5]:R[98]C[-5],3)=""Liv"")*1)"
        .NumberFormat = "00"" Dates de Livraisons"""
        .HorizontalAlignment = xlLeft
    End With

    With Range("F4")
        .Formula = "=SUMPRODUCT((RIGHT(R[-3]C[-5]:R[996]C[-5],1)=""A"")*1)"
        .NumberFormat = "00"" Stock A"""
        .HorizontalAlignment = xlLeft
    End With

    With Range("F5")
        .Formula = "=SUMPRODUCT((RIGHT(R[-4]C[-5]:R[995]C[-5],1)=""B"")*1)"
        .NumberFormat = "00"" Stock B"""
        .HorizontalAlignment = xlLeft
    End With

    With Range("F6")
        .Formula = "=SUMPRODUCT((RIGHT(R[-5]C[-5]:R[994]C[-5],1)=""C"")*1)"
        .NumberFormat = "00"" Stock C"""
        .HorizontalAlignment = xlLeft
    End With

    With Range("F7")
        .Formula = "=SUMPRODUCT((LEFT(R[-5]C[-5]:R[994]C[-5],3)=""Ent"")*1)"
        .NumberFormat = "00"" Entrées"""
        .HorizontalAlignment = xlLeft
    End With

    With Range("F1")
        .Value = "Résultats"
        .HorizontalAlignment = xlCenter
    End With

    Range("B1:B1000").Formula = "=IF(COUNTIF(R1C1:RC[-1],RC[-1])>1,"""",RC[-1])"

    With Range("F3")
        .Formula = "=SUMPRODUCT((LEFT(R[-2]C[-4]:R[97]C[-4],3)=""Liv"")*1)"
        .NumberFormat = "00"" Dates de Livraisons Uniques"""
        .HorizontalAlignment = xlLeft
    End With

    Range("F1:F7").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    Range("B1:B1000").ClearContents

    Sheets("Feuille NON compté").Range("B9:B14").Formula = "=Temp!R[-6]C[4]"
    Sheets("Feuille NON compté").Range("C9:C14").Formula = "=Temp!R[-6]C[3]*100"
    Range("A1").Select

End Sub

A+ à tous

 

[Surfeur En Serie]

Re : resultat sur 2 colonneset 2 feuilles

re
Cette fois ça, ça a l'air de fonctionner a merveille.
Je te remercie pour ton aide et surtout ta patience
Merci

 

[Staple1600]

Re : resultat sur 2 colonneset 2 feuilles

Bonsoir à tous


Juste pour infos

J'avais été voir le code dans cette pj
Lien supprimé

et dans cette pj, point de déclarations

d'où mon précédent message.

Pardon JCGL, j'avais zappé ta pj

 

[JCGL]

Re : resultat sur 2 colonneset 2 feuilles

Bonjour à tous,
Re l'Agrafe ,

L'Agrafe : Pas grave...

Surfeur En Serie : ALLELUIA, c'est de circonstance...

Ravi d'avoir pu t'aider... Mais je pressens une suite Arf Arf

A++
A+ à tous

 

[Surfeur En Serie]

Re : resultat sur 2 colonneset 2 feuilles

lool
certainement une suite mais plus sur ce probleme que tu a resolu avec brio.
Encore merci