OVH Cloud OVH Cloud

créer nouvelle col avec formules

6 réponses
Avatar
lematou
Bonsoir,
j'utilise vba xls sous xp pro.
j'ai un fichier que je dois mettre en forme tous les matins
(extract de acces)
1er point, en ligne 11 je dois positionner des formules sur 10 colonnes en
laissant une blanche
ensuite je dois positionner les formules dans toutes les cellules et ce
jusqu'à la fin de mon fichier !
je dois également changer la couleur d'une colonne de u12 à la fin du fichier
j'ai l'impression que je vais devoir y passer la nuit sur ce problème qui
pour moi à mon niveau n'est pas simple mais peut être pour l'un d'entre vous
c'est d'une évidance.
merci
à bientot
jacks

6 réponses

Avatar
anonymousA
Bonjour,

ta demande n'est pas claire mais pour ce que j'en comprends parfaitement
réalisable (d'ailleurs, il y a très peu voire pas de choses
irréalisables en VBA , en tout cas tout ce que tu fais à la main avec
une logique descriptible par un logigramme est réalisable en VBA).
Quel type de formules ? qu'est ce que laisser une blanche ?
Comment doit-on déterminer la fin de fichier?

Des questions toutes bêtes mais sans précision , elles ne peuvent avoir
de solution.

Merci de préciser.

A+

Bonsoir,
j'utilise vba xls sous xp pro.
j'ai un fichier que je dois mettre en forme tous les matins
(extract de acces)
1er point, en ligne 11 je dois positionner des formules sur 10 colonnes en
laissant une blanche
ensuite je dois positionner les formules dans toutes les cellules et ce
jusqu'à la fin de mon fichier !
je dois également changer la couleur d'une colonne de u12 à la fin du fichier
j'ai l'impression que je vais devoir y passer la nuit sur ce problème qui
pour moi à mon niveau n'est pas simple mais peut être pour l'un d'entre vous
c'est d'une évidance.
merci
à bientot
jacks


Avatar
lematou

Bonsoir,
j'utilise vba xls sous xp pro.
j'ai un fichier que je dois mettre en forme tous les matins
(extract de acces)
1er point, en ligne 11 je dois positionner des formules sur 10 colonnes en
laissant une blanche
ensuite je dois positionner les formules dans toutes les cellules et ce
jusqu'à la fin de mon fichier !
je dois également changer la couleur d'une colonne de u12 à la fin du fichier
j'ai l'impression que je vais devoir y passer la nuit sur ce problème qui
pour moi à mon niveau n'est pas simple mais peut être pour l'un d'entre vous
c'est d'une évidance.
merci
à bientot
peut etre un suplément d'explication ?


en K10 j'ai : =SOUS.TOTAL(9;K12:K640)
en L10 j'ai: =SOUS.TOTAL(9;L12:L640)
et ainsi de suite jusquà S10 .
T est vide et je reprends pour U10 et V10

pour ce qui est des col U et V je voudrais étendre les formules
U12=N12-R12 alors que V12=Q12-S12
U13= N13-S13 V13= Q13-S13
Merci
jacks


Avatar
lematou
Bonsoir Anonymous,
voici pour les questions
Quel type de formules ?
en K10 j'ai : =SOUS.TOTAL(9;K12:K640)
en L10 j'ai: =SOUS.TOTAL(9;L12:L640)
et ainsi de suite jusquà S10 .
T est vide et je reprends pour U10 et V10

pour ce qui est des col U et V je voudrais étendre les formules
U12=N12-R12 alors que V12=Q12-S12
U13= N13-S13 V13= Q13-S13

qu'est ce que laisser une blanche ? => je laisse la col T vide
Comment doit-on déterminer la fin de fichier? avec la formule magique de JP
x = Cells.Find("*", , 1, , 1, 2).Column
y = Cells.Find("*", , 1, , 1, 2).Row
et Y donne le nombre de lignes que contient le fichier

merci pour ton aide
bonne soirée
jacks



Bonjour,

ta demande n'est pas claire mais pour ce que j'en comprends parfaitement
réalisable (d'ailleurs, il y a très peu voire pas de choses
irréalisables en VBA , en tout cas tout ce que tu fais à la main avec
une logique descriptible par un logigramme est réalisable en VBA).
Quel type de formules ? qu'est ce que laisser une blanche ?
Comment doit-on déterminer la fin de fichier?

Des questions toutes bêtes mais sans précision , elles ne peuvent avoir
de solution.

Merci de préciser.

A+

Bonsoir,
j'utilise vba xls sous xp pro.
j'ai un fichier que je dois mettre en forme tous les matins
(extract de acces)
1er point, en ligne 11 je dois positionner des formules sur 10 colonnes en
laissant une blanche
ensuite je dois positionner les formules dans toutes les cellules et ce
jusqu'à la fin de mon fichier !
je dois également changer la couleur d'une colonne de u12 à la fin du fichier
j'ai l'impression que je vais devoir y passer la nuit sur ce problème qui
pour moi à mon niveau n'est pas simple mais peut être pour l'un d'entre vous
c'est d'une évidance.
merci
à bientot
jacks





Avatar
anonymousA
pour créer une formule relative pa rappport à la cellule K10

With Range("K10")
.FormulaR1C1 = "=SUBTOTAL(9,R[2]C:R[630]C)"
.Copy Range("L10:S10")
.Copy Range("U10:V10")
End With

Pour tes formules en U12 et etc... le principe est strictement le même.

Pour la couleur des cellules à partir de U12 jusqu' à la fin de fichier
à partie du moment où l'on Y,

range("U13:U"& Y).interior.colorindex=range("U12).interior.colorindex

A+


Bonsoir Anonymous,
voici pour les questions
Quel type de formules ?
en K10 j'ai : =SOUS.TOTAL(9;K12:K640)
en L10 j'ai: =SOUS.TOTAL(9;L12:L640)
et ainsi de suite jusquà S10 .
T est vide et je reprends pour U10 et V10

pour ce qui est des col U et V je voudrais étendre les formules
U12=N12-R12 alors que V12=Q12-S12
U13= N13-S13 V13= Q13-S13

qu'est ce que laisser une blanche ? => je laisse la col T vide
Comment doit-on déterminer la fin de fichier? avec la formule magique de JP
x = Cells.Find("*", , 1, , 1, 2).Column
y = Cells.Find("*", , 1, , 1, 2).Row
et Y donne le nombre de lignes que contient le fichier

merci pour ton aide
bonne soirée
jacks




Bonjour,

ta demande n'est pas claire mais pour ce que j'en comprends parfaitement
réalisable (d'ailleurs, il y a très peu voire pas de choses
irréalisables en VBA , en tout cas tout ce que tu fais à la main avec
une logique descriptible par un logigramme est réalisable en VBA).
Quel type de formules ? qu'est ce que laisser une blanche ?
Comment doit-on déterminer la fin de fichier?

Des questions toutes bêtes mais sans précision , elles ne peuvent avoir
de solution.

Merci de préciser.

A+


Bonsoir,
j'utilise vba xls sous xp pro.
j'ai un fichier que je dois mettre en forme tous les matins
(extract de acces)
1er point, en ligne 11 je dois positionner des formules sur 10 colonnes en
laissant une blanche
ensuite je dois positionner les formules dans toutes les cellules et ce
jusqu'à la fin de mon fichier !
je dois également changer la couleur d'une colonne de u12 à la fin du fichier
j'ai l'impression que je vais devoir y passer la nuit sur ce problème qui
pour moi à mon niveau n'est pas simple mais peut être pour l'un d'entre vous
c'est d'une évidance.
merci
à bientot
jacks







Avatar
lematou
Bonjour AnonymousA
juste une petite question, comme je ne suis pas un pro en la matiere je me
demande pourquoi il y a les ..

..FormulaR1C1

Merci à bientot
Jacks





Bonsoir,
j'utilise vba xls sous xp pro.
j'ai un fichier que je dois mettre en forme tous les matins
(extract de acces)
1er point, en ligne 11 je dois positionner des formules sur 10 colonnes en
laissant une blanche
ensuite je dois positionner les formules dans toutes les cellules et ce
jusqu'à la fin de mon fichier !
je dois également changer la couleur d'une colonne de u12 à la fin du fichier
j'ai l'impression que je vais devoir y passer la nuit sur ce problème qui
pour moi à mon niveau n'est pas simple mais peut être pour l'un d'entre vous
c'est d'une évidance.
merci
à bientot
peut etre un suplément d'explication ?


en K10 j'ai : =SOUS.TOTAL(9;K12:K640)
en L10 j'ai: =SOUS.TOTAL(9;L12:L640)
et ainsi de suite jusquà S10 .
T est vide et je reprends pour U10 et V10

pour ce qui est des col U et V je voudrais étendre les formules
U12=N12-R12 alors que V12=Q12-S12
U13= N13-S13 V13= Q13-S13
Merci
jacks




Avatar
anonymousA
Une manière comme une autre d'écrire les choses.

Tu peux utiliser ActiveCell.Formula = "=SUM(A1:A3)" si tu le sens mieux.

A+


Bonjour AnonymousA
juste une petite question, comme je ne suis pas un pro en la matiere je me
demande pourquoi il y a les ..

..FormulaR1C1

Merci à bientot
Jacks






Bonsoir,
j'utilise vba xls sous xp pro.
j'ai un fichier que je dois mettre en forme tous les matins
(extract de acces)
1er point, en ligne 11 je dois positionner des formules sur 10 colonnes en
laissant une blanche
ensuite je dois positionner les formules dans toutes les cellules et ce
jusqu'à la fin de mon fichier !
je dois également changer la couleur d'une colonne de u12 à la fin du fichier
j'ai l'impression que je vais devoir y passer la nuit sur ce problème qui
pour moi à mon niveau n'est pas simple mais peut être pour l'un d'entre vous
c'est d'une évidance.
merci
à bientot


peut etre un suplément d'explication ?

en K10 j'ai : =SOUS.TOTAL(9;K12:K640)
en L10 j'ai: =SOUS.TOTAL(9;L12:L640)
et ainsi de suite jusquà S10 .
T est vide et je reprends pour U10 et V10

pour ce qui est des col U et V je voudrais étendre les formules
U12=N12-R12 alors que V12=Q12-S12
U13= N13-S13 V13= Q13-S13
Merci

jacks