formule cellule

Question

Bonjour, 

je cherche à réaliser une formule avec une référence variable du genre

 valeur = derniereLigneFeuil2 - derniereLigneFeuil1
    If Sheets("Feuil1").Range("I3").Value = 1 Then
    Sheets("Feuil2").Range("C" & derniereLigneFeuil2).FormulaR1C1 = "=Feuil1!R[valeur]C"
quelqu'un a une idée comment réaliser ça ?
merci de vouloir m'aider.

ThauTheme · Answer

Bonjour Aksaid, bonjour le forum,

Pour connaître la variable valeur, dernière ligne éditée des onglets Feuil1 et Feuil2 d'accord... Mais dans quelle colonne ?!...

aksaid2000 · Answer

Bonjour,
j'ai fait en sorte que les colonnes soient les mêmes, seul les lignes changent

aksaid2000 · Answer

pour plus de précisions,j'ai répété plusieurs fois les lignes:
Sheets("Feuil2").Range("C" & derniereLigneFeuil2).FormulaR1C1 = "=Feuil1!R[valeur]C" 
Sheets("Feuil2").Range("D" & derniereLigneFeuil2).FormulaR1C1 = "=Feuil1!R[valeur]C" 
Sheets("Feuil2").Range("E" & derniereLigneFeuil2).FormulaR1C1 = "=Feuil1!R[valeur]C"

ThauTheme · Answer

Relis ma question car tu n'y réponds toujours pas... 

Valeur = dernière cellule éditée de l'onglet Feuil2 dans quelle colonne (?) - dernière cellule éditée de l'onglet Feuil1 dans quelle colonne (?)

aksaid2000 · Answer

d'près les lignes:
Range("C" & derniereLigneFeuil2) donc colonne C et c'est la même pour feuille1
Range("C" & derniereLigneFeuil2) donc colonne C et c'est la même pour feuille1
.......etc

aksaid2000 · Answer

je ne sais pas,mais peut être tu veux parler de ça:
derniereLigneFeuil2 = Sheets("Feuil2").Cells(Rows.Count, 1).End(xlUp).Row + 1

ThauTheme · Answer

Désolé mais on n e se comprend pas . Je passe la main...

aksaid2000 · Answer

ok merci quand même

ThauTheme · Answer

Peut-être comme ça :
Sub Macro1()
Dim DL1 As Integer
Dim DL2 As Integer
Dim VALeur As Integer

DL1 = Sheets("Feuil1").Range("A" & Application.Rows.Count).End(xlUp).Value 'dernière ligne éditée de la colonne A de l'onglet Feuil1
DL2 = Sheets("Feuil2").Range("A" & Application.Rows.Count).End(xlUp).Value 'dernière ligne éditée de la colonne A de l'onglet Feuil2
VALeur = DL2 - DL1
Sheets("Feuil2").Range("C" & Application.Rows.Count).End(xlUp).FormulaR1C1 = "=Feuil1!R[" & VALeur & "]C"
End Sub

Formule cellule

9 réponses

Discussions similaires

Newsletters