Bonjour à tous,

Voila j'ai un petit souci pour assembler deux codes

Mon premier code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Sub Compute_period()
' Compute_period Macro
 
Sheets("basse de données").Select
Range("D2:D" & Sheets("basse de données").Range("F6").Value).Select
Selection.copy
Sheets("Feuil3").Select
Range("A1").Select
ActiveSheet.Paste Link:=True
Range("B1").Select
End Sub
Qui me permet de sélectionner un nombre défini de cellules

et mon second code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
 
Sub Macro2()
' Macro2 Macro
    ActiveCell.FormulaR1C1 = "=COUNTA(C[-6])/50"
End Sub
qui me permet de calculer le nombre de cellules que je dois sélectionner.

Donc voilà mon souci, j'aimerai que le résultat de mon second code soit la valeur prise de "F6" de mon premier code.

Merci d'avance pour vos réponses.

Cordialement.