Remplissage tableau automatique

Bonsoir

J'ai un tableau dans une feuille "planning chantier" sur le quel je renseigne les cellules des colonnes G a I avec des chiffres d'une valeur supérieurs a zéro ou vides.

Il s'agit d'un planning avec la semaine "en cours"(G), la semaine N+1 (H) et la semaine N+2 (I)

J'aimerai copier dans l'ordre et sans tri et sans vides, les valeurs se trouvant dans la colonne C (a partir de C6), et les coller a partir de B4:

• Dans un feuille nommé semaine n+1, les valeur de la colonne C, pour les quel les valeur de la colonne H sont supérieurs a zéro

• Dans un feuille nommé semaine n+2, les valeur de la colonne C, pour les quel les valeur de La colonne I sont supérieurs a zéro

Le but est de remplir le planning de le semaine N+1 et N+2 automatiquement au fur et à mesure de la mise a jour du planning chantier.

J'ai essaye de m’en-sortir tout seul mais je ne suis pas arrivé.

Merci d'avance

18planning.xlsm (46.52 Ko)

Bonjour GomesAzur,

bonjour le forum,

une solution VBA!

Seul bémol encore inexpliqué : un '8560' mystérieux vient se coller dans 'Semaine N+1 - 2' sans que je sache d'où il vienne...

Private Sub Worksheet_Change(ByVal Target As Range)
'
Dim wks As Worksheet
'
iRow = Range("C" & Rows.Count).End(xlUp).Row
'
If Not Intersect(Target, Range("H6:I" & iRow)) Is Nothing Then
    Set wks = IIf(Target.Column = 8, Worksheets("Semaine N+1"), Worksheets("Semaine N+2"))
    With wks
        iRow1 = .Range("B" & Rows.Count).End(xlUp).Row
        If iRow1 > 4 Then .Range("B4:B" & iRow1).ClearContents
        iLig = 3
        For x = 6 To iRow
            If Cells(x, Target.Column) > 0 Then
                iLig = iLig + 1
                .Cells(iLig, 2) = Cells(x, 3)
            End If
        Next
    End With
End If
'
End Sub

On cherche...

Bon travail!

A+

21planning.xlsm (53.16 Ko)

Bonsoir

Tout d'abord merci pour votre aide c'est super sympa.

Je viens de tester ta solution et elle marche bien.

Le "8560" est la valeur en bas de la colonne C cellule C65.

Serait il possible de Borner l'utilisation des cellules entre les ligne 4 et 64?

Est il possible de modifier la macro pour l'utiliser avec un bouton Mise a jour?

J'ai essayé de modifier ton code mais j'ai mis la pagaille.

Merci d'avance

Salut GomesAzur,

que veux-tu dire exactement avec ce bouton?

Décider toi-même du moment où le calcul se fait?

A+

Bonsoir Curulis57,

Oui, un bouton au quel je puisse affecter la macro

et l'appliquer à "Semaine n+1" et "semaine N+2" après la mise à jour de "planning chantier"

Merci

A+

Rechercher des sujets similaires à "remplissage tableau automatique"