XL pour MAC Récapitulatif

[klemasson]

Bonjour,

J'ai crée un fichier pour le calcul des prix pour mon entreprise.
Et j'aimerai savoir s'il est possible que dans l'onglet "récap", cela reprenne uniquement les données lorsque je rempli un nombre de l'onglet "prix"
Par exemple si je remplis la ligne Nombre de copies N/B A4 ainsi que papier -50 feuilles A4 80gr, je souhaiterai que uniquement ces 2 lignes soit reprises dans l'onglet "récap".

Je ne sais pas si je suis compréhensible ?

Est-ce que cela est possible ?
A disposition

Merci d'avance

 

[Calvus]

Bonsoir Klemasson, le forum,

Voici, si j'ai bien compris ta demande.

Voici le code, situé dans le module1

Option Explicit

Sub Transfert()

Dim i%, FPrix As Worksheet, fRecap As Worksheet, tPrix, n As Byte, col As Byte

Set FPrix = Sheets("Prix")
Set fRecap = Sheets("Recap")

tPrix = FPrix.Range("A1:W" & FPrix.Range("M" & Rows.Count).End(xlUp).Row)

ReDim a(1 To UBound(tPrix), 1 To 4)

n = 1
For col = 4 To 22 Step 6
    For i = 1 To UBound(tPrix)
        If tPrix(i, col) <> "" And tPrix(i, col) <> "Nombre " And tPrix(i, col) <> "Nombre (min)" Then
            a(n, 1) = tPrix(i, col - 3)
            a(n, 2) = tPrix(i, col - 2)
            a(n, 3) = tPrix(i, col)
            a(n, 4) = tPrix(i, col + 1)
            n = n + 1
        End If
    Next i
Next col

fRecap.Range("A7").CurrentRegion.ClearContents
fRecap.Range("A7").Resize(n-1, 4) = a
End Sub

A+

 

[klemasson]

Salut !

C'est parfait !
Merci beaucoup