[VBA] Assemblage de deux codes

Bonjour à tous,

Voila j'ai un petit souci pour assembler deux codes

Mon premier code :

Code:

---

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:

---

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.

Bonjour,

Pour commencer, On Optimise un peu le code

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub Compute_period() ' Compute_period Macro   Sheets("basse de données").Range("D2" & Sheets("basse de données").Range("F6").Value).Copy   Sheets("Feuil3").Range("A1").Select Activesheet.Paste Link:=True   Range("B1").Select End Sub

---

Citation:

---

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

---

Peux tu développer ?

Bonsoir,

Ce n'est pas très clair (pour moi, en tout cas). Peux-tu expliquer comment on doit calculer le nombre de cellule (autrement que par rapport à la cellule active) ?

Tout d'abord merci pour les réponses.

Dans la cellule "F6" se trouve un chiffre (que j'ai mis au hasard pour vérifier si le code fonctionner), mais la cellule doit prendre le résultat de la formule [NBVAL(A:A)] (le résultat peut changer) donc j'aimerai bien intégrer le second code qui correspond à la formule [NBVAL] au premier afin qu'il soit automatique.

J'espère avoir été un peu plus clair dans l'explication, merci d'avance.

Cordialement.

PS: merci pour le code simplifié.

Salut

Tu peux utiliser Evaluate() pour connaitre ce qu'une formule retour comme résultat... mais je comprend pas trop ce que tu souhaites faire exactement, il serait peut-être utile de mettre plus de précision.

++
Qwaz

Code:

---

1 2 3 4 5 6 7 8 9

Sub Compute_period() Dim Lastlig As Long   Application.ScreenUpdating = False With Worksheets("basse de données") Lastlig = .Cells(.Rows.Count, "D").End(xlUp).Row 'Ligne de la dernière cellule remplie de la colonne D de Feuille Basse de données Worksheets("Feuil3").Range("A1:A" & Lastlig - 1).Formula = "='" & .Name & "'!D2" End With End Sub

---

merci mercatog,
mais lorsque je lance le code j'ai deux soucis
- il copie la totalité de mes cellule non vide
- dans la cellule est écrit : ='Basse de données'!D2

et comme je débute je ne vois pas comment faire.

cordialement .

Parce que j'avais compris que tu copies les cellules avec lien.

J'ai trouvé la réponse, merci pour vos réponses.

la réponse : j'ai copie juste la valeur de ma formule [NBVAL] dans une autre cellule, cela peut semblé un peu archaïque ma sa fonctionne.

Cordialement.