Re : Comment récupérer des données ?
Bonsoir WDandCo et le forum,
1- Pour un transfert simple de donnnée, la syntaxe peut-être de ce style :
Private Sub Worksheet_Activate()
[C1:C100].ClearContents
For i = 11 To Sheets.Count
nf = Sheets(i).Name
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i - 5, 3), Address:="", SubAddress:="'" & nf & "'" & "!A1", TextToDisplay:=nf
with Sheets(i)
ActiveSheet.Range("B" & i - 5).Value = .Range("K18").Value
End With
Next i
End Sub
2- En cas d'addition des valeurs elle peut être modifié comme suit :
Private Sub Worksheet_Activate()
[C1:C100].ClearContents
For i = 11 To Sheets.Count
nf = Sheets(i).Name
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i - 5, 3), Address:="", SubAddress:="'" & nf & "'" & "!A1", TextToDisplay:=nf
whith Sheet(i)
ActiveSheet.Range("B" & i - 5).Value = ActiveSheet.Range("B" & i - 5).Value + .Range("K18").Value
End With
Next i
End Sub