[Toutes versions] [VBA] Assemblage de deux codes [Résolu]

[hunter76]

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.

[jfontaine]

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

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 ?

[Daniel.C]

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) ?

[hunter76]

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é.

[Qwazerty]

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

[mercatog]

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

[hunter76]

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 .

[mercatog]

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

[hunter76]

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.