au secours!!!!

[oeildor]

souci avec un tableau automatique

déja bjr à tous bonnes fetes et merci de votre aide😀
bon j'ai un tableau de style suivant
nom quantité prix total
MANTEAU
BERGE 1 12 12
CHOCO
PLUMES
BOUT 4 10 40
GRE
TUILES 5 10 50

SUR UNE AUTRE FEUILLE JE NE DOIS RETROUVER LA LISTE QUE DES NOMS QUI ONT UN TOTAL ET CELA SUR DEUX COLONNES ce qui donnerait
nom total NOM TOTAL
berge 12 BOUT 40
TUILES 50

UNE IDEE SNIFF
merci
Pour mieux expliquer mon souci je joint un fichier excel
sur le premier onglet il y a la base de donnée.
sur le deuxieme onglet il y a le tableau qui doit se modifier selon le tableau et que je dois imprimer en sachant que sa zone d'impression depend de son nombre de ligne
j'espere etre assez claire et vous remercie

 

[ROGER2327]

Re : au secours!!!!

Bonsoir à tous

Un essai.

[COLOR="DarkSlateGray"][B]Sub toto()
Dim sDat(), oCel, tf As Boolean
   ReDim sDat(1 To 4, 1 To 1)
   sDat(1, 1) = "Nom"
   sDat(2, 1) = "Prix"
   sDat(3, 1) = "Nom"
   sDat(4, 1) = "Prix"
   With Feuil1
      For Each oCel In .Range("D2").Resize(.Cells(Rows.Count, 1).End(xlUp).Row - 1, 1).Cells
         If oCel <> 0 Then
            If tf Then
               tf = False
               sDat(3, UBound(sDat, 2)) = oCel.Offset(0, -3).Value
               sDat(4, UBound(sDat, 2)) = oCel.Value
            Else
               tf = True
               ReDim Preserve sDat(1 To 4, 1 To 1 + UBound(sDat, 2))
               sDat(1, UBound(sDat, 2)) = oCel.Offset(0, -3).Value
               sDat(2, UBound(sDat, 2)) = oCel.Value
            End If
         End If
      Next oCel
   End With
   With Feuil2
      Intersect(.Columns("A:D"), .Range("A1").CurrentRegion).Cells.ClearContents
      .Range("A1").Resize(UBound(sDat, 2), UBound(sDat, 1)).Value = WorksheetFunction.Transpose(sDat)
   End With
End Sub[/B][/COLOR]

ROGER2327
#2535

 

[oeildor]

Re : au secours!!!!

OUA!! vous êtes trop fort tous les deux merci à vous tous c'est génial fantastique super mega cool
bref je m'incline et surtt vous remercie

 

[CISCO]

Re : au secours!!!!

Bonsoir

Et sans macro ?

@ plus