WDAndCo
XLDnaute Impliqué
Bonjoure le Forum
Une feuille doit se remplir toute seule.
Elles doit, parcourir tous les onglets à partir du 5eme
Le nombre de ligne est variable dans chaque onglets le nombre est en L1
Crée une ligne si la colonne Delais<>"" et si la colonne Dates Exécution est vide, et y mettre quelques informations
J'ai déjà une partie de code, mais la je bloque. Il n'y a qu'une ligne qui se crée par onglet.
Merci de modifier ce code.
Merci D'avance.
Dominique
Une feuille doit se remplir toute seule.
Elles doit, parcourir tous les onglets à partir du 5eme
Le nombre de ligne est variable dans chaque onglets le nombre est en L1
Crée une ligne si la colonne Delais<>"" et si la colonne Dates Exécution est vide, et y mettre quelques informations
J'ai déjà une partie de code, mais la je bloque. Il n'y a qu'une ligne qui se crée par onglet.
Merci de modifier ce code.
Merci D'avance.
Code:
Private Sub Worksheet_Activate()
[A2:I1000].ClearContents
Range("A1").Value = "RECAPITULATIF des Visites EF 5A n°7"
Range("A2").Value = "N° du CR"
Range("B2").Value = "Dates"
Range("C2").Value = "Lieux"
Range("D2").Value = "Installations"
Range("E2").Value = "Points à Amortir"
Range("F2").Value = "Delais"
Range("G2").Value = "Moyen"
LP = 0 'LP = Une Ligne Plus
For i = 5 To Sheets.Count 'Tous les onglets a partir du 5eme
nf = Sheets(i).Name
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i - 2, 1), Address:="", SubAddress:="'" & _
nf & "'" & "!A1", TextToDisplay:=nf
With Sheets(i)
NL = ActiveSheet.Range("L1").Value 'Nb de ligne sur l'onglet
For L = 12 To NL + 12
If ActiveSheet.Range("G" & L).Value <> "" And ActiveSheet.Range("H" & L).Value = "" Then LP = LP + 1:
ActiveSheet.Range("A" & i - 2 + LP).Value = .Range("H6").Value:
ActiveSheet.Range("B" & i - 2 + LP).Value = .Range("C8").Value:
ActiveSheet.Range("C" & i - 2 + LP).Value = .Range("B12").Value:
ActiveSheet.Range("D" & i - 2 + LP).Value = .Range("C" & L).Value:
ActiveSheet.Range("E" & i - 2 + LP).Value = .Range("D" & L).Value:
ActiveSheet.Range("F" & i - 2 + LP).Value = .Range("G" & L).Value
Next L
End With
Next i
Range("A2:G2").Select
Selection.AutoFilter
Columns("A:G").Select
ActiveWindow.Zoom = True
Range("H1").Select
End Sub