Formule cellule
aksaid2000
-
ThauTheme Messages postés 1564 Statut Membre -
ThauTheme Messages postés 1564 Statut Membre -
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.
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.
9 réponses
-
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 ?!...
-
-
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" -
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 (?)
-
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
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 -
je ne sais pas,mais peut être tu veux parler de ça:
derniereLigneFeuil2 = Sheets("Feuil2").Cells(Rows.Count, 1).End(xlUp).Row + 1 -
Désolé mais on n e se comprend pas . Je passe la main...
-
-
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
