Comment récupérer des données ?

[WDAndCo]

[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

 

[CBernardT]

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

 

[WDAndCo]

Re : Comment récupérer des données ?

Merci le Forum et CBernardT

Sa marche mais j'ai modifié :
whith Sheet(i) en With Sheets(i)

Encore Merci
Dominique

 

[CBernardT]

Re : Comment récupérer des données ?

Ok,

Désolé pour les fautes de frappe.