Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel masquer la formule

masquer la formule

13 réponses
Avatar
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
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Jacky
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" a écrit dans le message de news:

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




Avatar
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


Avatar
Jacky
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" a écrit dans le message de news:

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






Avatar
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

Avatar
Jacky
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" a écrit dans le message de news:

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





Avatar
andre
andre à dit

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

--
andre
Avatar
Jacky
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" a écrit dans le message de news:

andre à dit

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

--
andre




Avatar
andre
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
Avatar
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
Avatar
Jacky
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" a écrit dans le message de news:

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




1 2