planning previsionnel planning ferme

[reve24]

bonjour à tous

je cherche a creer un planning ferme et un planning prévionnel
à partir d un onglet base de donnée
en copie VBA des colonnes "A" "B" "C"
cela repartirai les lignes selon si colonne "D" validée oui ou non
si oui planning ferme
si non planning prévisionnel

merci a vous

 

[Fred0o]

Re : planning previsionnel planning ferme

Bonjour reve24,

Voici un code à mettre dans un module puis à appeler par un bouton (ou autre) :

Sub Bouton1_Cliquer()
    Dim i, d
    Sheets("planning Prévisionnel").Range("A2:C65536").ClearContents
    Sheets("Planning ferme").Range("A2:C65536").ClearContents
    For i = 2 To Range("A65536").End(xlUp).Row
        If Cells(i, 4) = "oui" Then
            d = Sheets("Planning ferme").Range("A65536").End(xlUp).Row + 1
            Sheets("Planning ferme").Cells(d, 1) = Cells(i, 1)
            Sheets("Planning ferme").Cells(d, 2) = Cells(i, 2)
            Sheets("Planning ferme").Cells(d, 3) = Cells(i, 3)
        Else
            d = Sheets("Planning ferme").Range("A65536").End(xlUp).Row + 1
            Sheets("planning Prévisionnel").Cells(d, 1) = Cells(i, 1)
            Sheets("planning Prévisionnel").Cells(d, 2) = Cells(i, 2)
            Sheets("planning Prévisionnel").Cells(d, 3) = Cells(i, 3)
        End If
    Next
End Sub

A+

 

[reve24]

Re : planning previsionnel planning ferme

super ça marche impecable tu t es juste trompé dans l intitulé des onglets
planning ferme

planning présionnel

merci