Gestion de cuve avec MACRO

Bonjour,

Je cherche a gérer différent volumes dans des cuves

J'ai un tableau où je rentre les interventions et les volumes de liquide dans des cuves et j'aimerai répartir les lignes par feuille de cuve

J'arrive a faire un macro mais j'ai que les volumes qui rentrent et pas ceux qui sortent

j'ai fait un exemple pour etre plus clair

31cuve.xlsm (21.52 Ko)

j'ai fait un exemple

Merci

Bonjour,

Je pense qu'il faut déjà commencer par structurer correctement vos tableaux

Après nous verrons

bonjour,

une proposition structure de tes feuilles légèrement adaptée

Sub aargh()
    Set wss = Sheets("feuil1") ' feuille source
    With wss
        dlwss = .Cells(Rows.Count, 1).End(xlUp).Row
        ' on efface les feuilles "1" à "4"
        For Each sh In ThisWorkbook.Sheets
            If sh.Name <> wss.Name Then
                sh.Cells.Delete
                wss.Rows(1).Copy sh.Rows(1)
            End If
        Next sh
        ' on remplit les feuilles "1" à "4"
        For i = 2 To dlwss
            For j = 1 To 2 '2 feuilles à compléter la feuille cuve de départ et la feuille cuve d'arrivée
                Set ws = Sheets(CStr(.Cells(i, j)))
                dl = ws.Cells(Rows.Count, 1).End(xlUp).Row + 1
                wss.Cells(i, 1).Resize(1, 5).Copy ws.Cells(dl, 1).Resize(1, 5) 'copie la ligne
                If j = 1 Then ws.Cells(dl, 3) = -ws.Cells(dl, 3) 'on change le signe pour la cuve de départ
            Next j
        Next i
    End With
End Sub
17cuve.xlsm (21.46 Ko)

Bonjour h2so4

La proposition fonctionne parfaitement, je n'aurai jamais trouvé

Je vais essayer avec mon vrai tableau qui a 50 cuves

Merci

J'essaye de l'adapter a mon tableau initial

mais je veux commencer mon tableau sur une autre ligne il me marque ça en jaune :

Set ws = Sheets(CStr(.Cells(i, j)))

merci

re-bonjour,

For i = 2 To dlwss

cette instruction sert à parcourir les lignes de ton tableau. (ici on commence à la ligne 2), dlwss contient le numéro de la dernière ligne non vide en colonne 1.

A toi d'adapter cette instruction, en fonction de la première ligne de données de ton tableau.

Rechercher des sujets similaires à "gestion cuve macro"