J
JB
Guest
- Salut les ForuWomen et les ForuMen,
j'ai écrit une petite macro pour lier toutes les feuilles de mon classeur à une feuille récapitulative.
Elle semble fonctionner mais j'aimerais avoir l'avis des pros, svp...
pour me donner leur avis, la simplifier ou la complèter le cas échéant.
Sub TEST()
Dim nomsheet As String
Sheets("Récapituler").Range("A1", Range("A1").End(xlDown)).Select
For Each Cell In Selection
Cell.Select
nomsheet = ActiveCell.Value
If ActiveCell.Offset(0,5).Value <> Sheets(nomsheet).Range("F4").Value Then
ActiveCell.Offset(0,5).Value = Sheets(nomsheet).Range("F4").Value
End If
Next Cell
End Sub
Merci d'avance,
JB
j'ai écrit une petite macro pour lier toutes les feuilles de mon classeur à une feuille récapitulative.
Elle semble fonctionner mais j'aimerais avoir l'avis des pros, svp...
pour me donner leur avis, la simplifier ou la complèter le cas échéant.
Sub TEST()
Dim nomsheet As String
Sheets("Récapituler").Range("A1", Range("A1").End(xlDown)).Select
For Each Cell In Selection
Cell.Select
nomsheet = ActiveCell.Value
If ActiveCell.Offset(0,5).Value <> Sheets(nomsheet).Range("F4").Value Then
ActiveCell.Offset(0,5).Value = Sheets(nomsheet).Range("F4").Value
End If
Next Cell
End Sub
Merci d'avance,
JB