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"
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 Ok jacky
je le testerai mais regarde le post precedent j'ai trouve l'erreur une variable mal utilisée ceci dit je garde ton dernier code en reserve je le teste des que possible a+
-- andre
andre à dit
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
Ok jacky
je le testerai
mais regarde le post precedent
j'ai trouve l'erreur une variable mal utilisée
ceci dit je garde ton dernier code en reserve
je le teste des que possible
a+
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 Ok jacky
je le testerai mais regarde le post precedent j'ai trouve l'erreur une variable mal utilisée ceci dit je garde ton dernier code en reserve je le teste des que possible a+
-- andre
Jacky
Re...
j'ai trouve l'erreur une variable mal utilisée Ben oui, "datesortie"
CQJDLD Le dernier code est justement pour éviter l'utilisation d'une variable, dans la condition citée
-- Salutations JJ
"andre" a écrit dans le message de news:
andre à dit
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 Ok jacky
je le testerai mais regarde le post precedent j'ai trouve l'erreur une variable mal utilisée ceci dit je garde ton dernier code en reserve je le teste des que possible a+
-- andre
Re...
j'ai trouve l'erreur une variable mal utilisée
Ben oui, "datesortie"
CQJDLD
Le dernier code est justement pour éviter l'utilisation d'une variable, dans
la condition citée
--
Salutations
JJ
"andre" <andre260@cegetel.net> a écrit dans le message de news:
mn.941e7d812219aba8.51150@cegetel.net...
andre à dit
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
Ok jacky
je le testerai
mais regarde le post precedent
j'ai trouve l'erreur une variable mal utilisée
ceci dit je garde ton dernier code en reserve
je le teste des que possible
a+
j'ai trouve l'erreur une variable mal utilisée Ben oui, "datesortie"
CQJDLD Le dernier code est justement pour éviter l'utilisation d'une variable, dans la condition citée
-- Salutations JJ
"andre" a écrit dans le message de news:
andre à dit
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 Ok jacky
je le testerai mais regarde le post precedent j'ai trouve l'erreur une variable mal utilisée ceci dit je garde ton dernier code en reserve je le teste des que possible a+
-- andre
andre
andre à dit je suis desolé de ne pas avoir avoir trouvé plus tot j'ai mouillé 4 tee shirts bon je vais faire tourner une machine salutations bon week end andre
-- andre
andre à dit
je suis desolé de ne pas avoir avoir trouvé plus tot
j'ai mouillé 4 tee shirts
bon je vais faire tourner une machine
salutations
bon week end
andre
andre à dit je suis desolé de ne pas avoir avoir trouvé plus tot j'ai mouillé 4 tee shirts bon je vais faire tourner une machine salutations bon week end andre