boucles

[Gaby71]

Bonjour à tous,

Je bloque pour terminer ma macro je dois faire des boucles .
Pour chaque machine, le nombre de lignes est different
Je veux inscrire en colonne F le nombre total de pieces en fonction des informations en colonne E.
si pas d'information ( cellule vide en E )reporter en F le nombre inscrit en D.
si information (ex : "For each Side tension deck") ,muliplier le nombre en E par le nombre en C2.
Idem pour l'autre cas en multipliant par C3.

En espérant que mes explications sont comprehensibles.

Merci d'avance

 

[pierrejean]

Re : boucles

Bonjour Gaby71

Avec un fichier on y verrait un peu plus clair !!

 

[Gaby71]

Re : boucles

Bonjour Pierrejean

J'ai pourtant fait la manip pour joindre mon fichier mais ça n'a pas été au bout apparemment

@+

 

[pierrejean]

Re : boucles

Re

Vois si cela te convient

 

[ROGER2327]

Re : boucles

Bonjour Gaby71, pierrejean.

Un autre code :​

Sub toto()
Dim i&, nl&, d(), v()
Const pl& = 7
    nl = Cells(Rows.Count, 2).End(xlUp).Row - pl
    If nl > 0 Then
      d = [B2:C3].Value
      d(1, 1) = "For each Side Tension Deck"
      d(2, 1) = "For each 305LS Deck"
      v = Range(Cells(pl + 1, 4), Cells(nl + pl, 5))
      ReDim Preserve v(1 To UBound(v), 1 To 3)
      For i = 1 To nl
        Select Case v(i, 2)
        Case Empty: v(i, 3) = v(i, 1)
        Case d(1, 1): v(i, 3) = d(1, 2) & "x" & v(i, 1)
        Case d(2, 1): v(i, 3) = d(2, 2) & "x" & v(i, 1)
        End Select
      Next
      Range(Cells(pl + 1, 4), Cells(nl + pl, 6)) = v
    End If
End Sub

Bonne journée.


ℝOGER2327
#7488

Mercredi 4 Tatane 141 (Ascension du Mouchard, statisticien, psychiatre et policier - fête Suprême Quarte)
29 Messidor An CCXXII, 3,5354h - blé
2014-W29-4T08:29:06Z

 

[Gaby71]

Re : boucles

Merci Pierrejean
Nickel
un grand pas pour ma macro

Quand un Caladois aide un Maconnais...

 

[Gaby71]

Re : boucles

Merci beaucoup Roger
j'ai testé le code de Pierrejean
c'est trés bien.

je testerais votre code quand ma charge de travail aura diminué

en tout cas , je le garde dans mon cahier " formation"

Merci encore