masquer la formule

Le
andre
Bonjour,
Comment faire pour ne pas voir la formule dans la cellule
j'ai ceci
Sheets("Bilan General").Select
Range("C12:D12").Select
ActiveCell.FormulaR1C1 = "=SUM(Depenses!R[-2]C[6]:R[100]C[7])"
j'essaye avec ceci:
Worksheets("Depenses").UsedRange.Columns("ma_plage").Calculate
ma_plage = "I10:J100"

--
andre
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses Page 1 / 2
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jacky
Le #5293031
Bonjour,

Ceci met le résultat dans la cellule C12 de la feuille "Bilan General"
'-----------
Sheets("Bilan General").[c12] = [SUM(Depenses!I10:J112)]
'-------------

--
Salutations
JJ


"andre"
Bonjour,
Comment faire pour ne pas voir la formule dans la cellule
j'ai ceci
Sheets("Bilan General").Select
Range("C12:D12").Select
ActiveCell.FormulaR1C1 = "=SUM(Depenses!R[-2]C[6]:R[100]C[7])"
j'essaye avec ceci:
Worksheets("Depenses").UsedRange.Columns("ma_plage").Calculate
ma_plage = "I10:J100"

--
andre




andre
Le #5293021
andre à dit
Bonjour,

Ceci met le résultat dans la cellule C12 de la feuille "Bilan General"
'-----------
Sheets("Bilan General").[c12] = [SUM(Depenses!I10:J112)]

merci jacky
juste un petit truc j'ai cette ligne de code

qui ne veut pas afficher le resultat dans la cellule
Sheets("Base Données").Select
Range("AH1").Copy
Sheets("Depenses").Select
Range("C10").Offset((Datesortie - 1), 0).PasteSpecial
Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:úlse, Transpose:úlse
Application.CutCopyMode = False
Selection.NumberFormat = "m/d/yyyy"
en "AH1" j'ai ceci : =INDEX(datesortie;F1) qui me donne 13/01/2008

alors que j'ai d'autrres codes identiques qui marche


je seche un peu
merci

--
andre


Jacky
Le #5293011
Re...
Le code pourrait être:
'---------
Sheets("Depenses").Range("c10").Offset((datesortie - 1), 0).Value =
Sheets("Base Données").[ah1].Value
'----------
Il faudra connaitre la valeur de "Datesortie" en début de macro
Msgbox Datesortie
Pour savoir si la valeur "Offset((datesortie - 1), 0)" est applicable.
--
Salutations
JJ


"andre"
andre à dit
Bonjour,

Ceci met le résultat dans la cellule C12 de la feuille "Bilan General"
'-----------
Sheets("Bilan General").[c12] = [SUM(Depenses!I10:J112)]

merci jacky
juste un petit truc j'ai cette ligne de code

qui ne veut pas afficher le resultat dans la cellule
Sheets("Base Données").Select
Range("AH1").Copy
Sheets("Depenses").Select
Range("C10").Offset((Datesortie - 1), 0).PasteSpecial
Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:úlse, Transpose:úlse
Application.CutCopyMode = False
Selection.NumberFormat = "m/d/yyyy"
en "AH1" j'ai ceci : =INDEX(datesortie;F1) qui me donne 13/01/2008

alors que j'ai d'autrres codes identiques qui marche


je seche un peu
merci

--
andre






andre
Le #5292941
andre à dit
non pas plus de chance rien dans la cellule
quand je passe le debogueur
il me donne la bonne date
Re...
Le code pourrait être:
'---------
Sheets("Depenses").Range("c10").Offset((datesortie - 1), 0).Value =
Sheets("Base Données").[ah1].Value
'----------
Il faudra connaitre la valeur de "Datesortie" en début de macro
Msgbox Datesortie
Pour savoir si la valeur "Offset((datesortie - 1), 0)" est applicable.
en debut de macro 13/01/2008

et j'ai bien 13/01/2008 pour la valeur "Offset((datesortie - 1), 0)
Salutations
JJ


--
andre

Jacky
Le #5292911
Re...
non pas plus de chance rien dans la cellule
Je ne crois pas que ce soit une question de chance.....


Quelle est la valeur de "datesortie" dans cette macro ??

--
Salutations
JJ


"andre"
andre à dit
non pas plus de chance rien dans la cellule
quand je passe le debogueur
il me donne la bonne date
Re...
Le code pourrait être:
'---------
Sheets("Depenses").Range("c10").Offset((datesortie - 1), 0).Value =
Sheets("Base Données").[ah1].Value
'----------
Il faudra connaitre la valeur de "Datesortie" en début de macro
Msgbox Datesortie
Pour savoir si la valeur "Offset((datesortie - 1), 0)" est applicable.
en debut de macro 13/01/2008

et j'ai bien 13/01/2008 pour la valeur "Offset((datesortie - 1), 0)
Salutations
JJ


--
andre





andre
Le #5292791
andre à dit

en sortie
j'ai bien 13/01/2008 pour :"Offset((datesortie - 1), 0)

--
andre
Jacky
Le #5292691
Re...
Tu dis:
en "AH1" j'ai ceci : =INDEX(datesortie;F1) qui me donne 13/01/2008
Ok
Donc
Sheets("Base Données").[ah1].Value /01/2008

Que tu veux coller dans
Sheets("Depenses").Range("c10").Offset((datesortie - 1), 0)

Si c'est bien cela et que la copie ne se fait pas, la cause en est la valeur
de "datesortie"

teste comme cela, et regarde si la copie se fait en cellule C10
'-------
Sheets("Depenses").Range("c10").Value = Sheets("Base Données").[ah1].Value
'----------

--
Salutations
JJ


"andre"
andre à dit

en sortie
j'ai bien 13/01/2008 pour :"Offset((datesortie - 1), 0)

--
andre




andre
Le #5292641
andre à dit
la jacky ca marche
mais il y a un probleme
datesortie a 17 valeurs
a la prochaine sortie il doit copier aller a la ligne suivante
et la il me colle la date dans la meme cellule

--
andre
andre
Le #5292621
andre à dit
j'ai trouve l'erreur jacky
en fair sur la ligne de code
Sheets("Depenses").Range("c10").Offset((Datesortie - 1), 0).Value = _
Sheets("Base Données").[ah1].Value
je devais mettre une autre variable Nm_Sortie
qui est ma reference de valeur
je suis desoléde de se contre temps
merci du coup de main
bon week end

--
andre
Jacky
Le #5292571
Re...
Si la copie doit se faire sur la première ligne vide de la colonne "C"
feuille "dépense" le code est:
'--------
Sheets("Depenses").Range("c" & Sheets("Depenses").[c65536].End(3).Row +
1).Value = Sheets("Base Données").[ah1].Value
ou
'With Sheets("Depenses")
.Range("c" & .[c65536].End(3).Row + 1).Value = Sheets("Base
Données").[ah1].Value
End With
'----------

--
Salutations
JJ


"andre"
andre à dit
j'ai trouve l'erreur jacky
en fair sur la ligne de code
Sheets("Depenses").Range("c10").Offset((Datesortie - 1), 0).Value = _
Sheets("Base Données").[ah1].Value
je devais mettre une autre variable Nm_Sortie
qui est ma reference de valeur
je suis desoléde de se contre temps
merci du coup de main
bon week end

--
andre




Publicité
Poster une réponse
Anonyme