Comment récupérer des données ?

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
 
Dernière édition:

CBernardT

XLDnaute Barbatruc
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
 
Dernière édition:

Discussions similaires

Réponses
7
Affichages
381
Réponses
21
Affichages
2 K
Réponses
5
Affichages
526

Statistiques des forums

Discussions
312 812
Messages
2 092 309
Membres
105 352
dernier inscrit
Djianik