WDAndCo
XLDnaute Impliqué
[Résolu] - Comment récupérer des données ?
Bonsoir le Forum
J'ai ce code :
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
????????????
Next i
End Sub
Et ou il à les ????????? je voudrais :
Récupérer sur chaque page de la boucle la valeur qui est en K18, et cette valeur la copier en B(I-5) de la page actuelle.
Comment faire ?
D'avance merci.
Dominique
Bonsoir le Forum
J'ai ce code :
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
????????????
Next i
End Sub
Et ou il à les ????????? je voudrais :
Récupérer sur chaque page de la boucle la valeur qui est en K18, et cette valeur la copier en B(I-5) de la page actuelle.
Comment faire ?
D'avance merci.
Dominique
Dernière édition: