Discussion :

[Look]

Bonsoir toute la communauté !

Voilà je cherche à faire une petite macro qui peut paraître un peu tordue mais toujours est-il que je ne sais pas comment m'y prendre.

Je souhaiterais en fait parcourir toutes les lignes de ma feuille excel et à chaque fin de famille prendre la date ( colonne D ) et la recopier sur la première ligne de la famille correspondante (colonne E ).

Pour être plus clair, je joins une capture écran :



Chaque début de famille possède le flag 0 ( colonne B ). Je pense que cela peut être utile lors de la création de la macro...

Quelqu'un pourrait-il m'aider ou me guider dans la démarche car j'ai quelques difficultés ?

Merci d'avance

[SfJ5Rpw8]

tiens j'avais envie de jouer... (encore..)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Sub Macro_Look()
Dim r As Range
Dim i As Integer 'ligne en cours
Dim iPrec As Integer 'Memo numero 1° ligne famille précédente
'Defini la Zone à traiter ...
Set r = ThisWorkbook.Sheets("Feuil1").Range("A1").CurrentRegion
iPrec = 1
For i = 1 To r.Rows.Count
  If r.Cells(i, 1) <> r.Cells(i + 1, 1) Then 'Detection chgt de famille
     r.Cells(iPrec, 5) = r.Cells(i, 4) 'Met à jour valeur précédente colonne E (5) avec valeur en cours colonne 4
     iPrec = i + 1 'Memorise ligne pour suivant
  End If
Next
End Sub

[bidou]

ou plus compact

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub RecupDate()
 
Dim tmpPlage As Range, PlageCible As Range
 
    Set PlageCible = Range("B1", Range("B1").End(xlDown)).ColumnDifferences(Range("B1"))
    For Each tmpPlage In PlageCible.Areas
        tmpPlage.Cells(1).Offset(-1, 3).Value = tmpPlage.Cells(tmpPlage.Cells.Count).Offset(, 2).Value
    Next
 
End Sub

[Look]

Merci à vous deux !

Je n'en demandais pas tant, vous êtes vraiment des stars