Bonjour,
J'ai une formule en A5. En VBA, je souhaiterai copier cette formule dans les
cellules en dessous (à partir de A6) tant que les cellules des lignes
correspondantes de la colonne D se sont pas vides.
Autrement dit :
D6 n'est pas vide alors copie en A6
D7 n'est pas vide alors copie en A7
D8 est vide : on s'arrête !
Le nombre de cellules remplies dans la colonne D est variable...
Merci d'avance.
Bonjour,
J'ai une formule en A5. En VBA, je souhaiterai copier cette formule dans les
cellules en dessous (à partir de A6) tant que les cellules des lignes
correspondantes de la colonne D se sont pas vides.
Autrement dit :
D6 n'est pas vide alors copie en A6
D7 n'est pas vide alors copie en A7
D8 est vide : on s'arrête !
Le nombre de cellules remplies dans la colonne D est variable...
Merci d'avance.
Bonjour,
J'ai une formule en A5. En VBA, je souhaiterai copier cette formule dans les
cellules en dessous (à partir de A6) tant que les cellules des lignes
correspondantes de la colonne D se sont pas vides.
Autrement dit :
D6 n'est pas vide alors copie en A6
D7 n'est pas vide alors copie en A7
D8 est vide : on s'arrête !
Le nombre de cellules remplies dans la colonne D est variable...
Merci d'avance.
Bonjour,
J'ai une formule en A5. En VBA, je souhaiterai copier cette formule dans
les
cellules en dessous (à partir de A6) tant que les cellules des lignes
correspondantes de la colonne D se sont pas vides.
Autrement dit :
D6 n'est pas vide alors copie en A6
D7 n'est pas vide alors copie en A7
D8 est vide : on s'arrête !
Le nombre de cellules remplies dans la colonne D est variable...
Merci d'avance.
--
PB
Bonjour,
J'ai une formule en A5. En VBA, je souhaiterai copier cette formule dans
les
cellules en dessous (à partir de A6) tant que les cellules des lignes
correspondantes de la colonne D se sont pas vides.
Autrement dit :
D6 n'est pas vide alors copie en A6
D7 n'est pas vide alors copie en A7
D8 est vide : on s'arrête !
Le nombre de cellules remplies dans la colonne D est variable...
Merci d'avance.
--
PB
Bonjour,
J'ai une formule en A5. En VBA, je souhaiterai copier cette formule dans
les
cellules en dessous (à partir de A6) tant que les cellules des lignes
correspondantes de la colonne D se sont pas vides.
Autrement dit :
D6 n'est pas vide alors copie en A6
D7 n'est pas vide alors copie en A7
D8 est vide : on s'arrête !
Le nombre de cellules remplies dans la colonne D est variable...
Merci d'avance.
--
PB
en ce *mercredi* *02/08/2006* , notre trés honoré(e) *Pascal* dans un éclair de génie et aprés mûre
reflexion a enfin exprimé sa pensée en ce qui suit :Bonjour,
J'ai une formule en A5. En VBA, je souhaiterai copier cette formule dans les
cellules en dessous (à partir de A6) tant que les cellules des lignes
correspondantes de la colonne D se sont pas vides.
Autrement dit :
D6 n'est pas vide alors copie en A6
D7 n'est pas vide alors copie en A7
D8 est vide : on s'arrête !
Le nombre de cellules remplies dans la colonne D est variable...
Merci d'avance.
et une simple formule a placer dans A6 et recopier vers le bas ne suffirait pas ?
=SI($D6<>"";$A$5;"")
--
MesNews : www.mesnews.net
Forum : news://news.zoo-logique.org/MesNews
Identifiant = zoo & MdP = entrer
On ne dit pas un ouvre-boîte, mais un portier de night-club.
en ce *mercredi* *02/08/2006* , notre trés honoré(e) *Pascal* dans un éclair de génie et aprés mûre
reflexion a enfin exprimé sa pensée en ce qui suit :
Bonjour,
J'ai une formule en A5. En VBA, je souhaiterai copier cette formule dans les
cellules en dessous (à partir de A6) tant que les cellules des lignes
correspondantes de la colonne D se sont pas vides.
Autrement dit :
D6 n'est pas vide alors copie en A6
D7 n'est pas vide alors copie en A7
D8 est vide : on s'arrête !
Le nombre de cellules remplies dans la colonne D est variable...
Merci d'avance.
et une simple formule a placer dans A6 et recopier vers le bas ne suffirait pas ?
=SI($D6<>"";$A$5;"")
--
MesNews : www.mesnews.net
Forum : news://news.zoo-logique.org/MesNews
Identifiant = zoo & MdP = entrer
On ne dit pas un ouvre-boîte, mais un portier de night-club.
en ce *mercredi* *02/08/2006* , notre trés honoré(e) *Pascal* dans un éclair de génie et aprés mûre
reflexion a enfin exprimé sa pensée en ce qui suit :Bonjour,
J'ai une formule en A5. En VBA, je souhaiterai copier cette formule dans les
cellules en dessous (à partir de A6) tant que les cellules des lignes
correspondantes de la colonne D se sont pas vides.
Autrement dit :
D6 n'est pas vide alors copie en A6
D7 n'est pas vide alors copie en A7
D8 est vide : on s'arrête !
Le nombre de cellules remplies dans la colonne D est variable...
Merci d'avance.
et une simple formule a placer dans A6 et recopier vers le bas ne suffirait pas ?
=SI($D6<>"";$A$5;"")
--
MesNews : www.mesnews.net
Forum : news://news.zoo-logique.org/MesNews
Identifiant = zoo & MdP = entrer
On ne dit pas un ouvre-boîte, mais un portier de night-club.
Bonjour Pascal,
Sub recopie_conditionnel()
For i = 6 To Range("D:D").SpecialCells(xlCellTypeLastCell).Row
If Not IsEmpty(Range("D" & i).Value) Then Range("A" & i).Formula > Range("A" & (i - 1)).Formula
Next i
End Sub
Est ce que ça convient ?
"Pascal" a écrit dans le message news:Bonjour,
J'ai une formule en A5. En VBA, je souhaiterai copier cette formule dans
lescellules en dessous (à partir de A6) tant que les cellules des lignes
correspondantes de la colonne D se sont pas vides.
Autrement dit :
D6 n'est pas vide alors copie en A6
D7 n'est pas vide alors copie en A7
D8 est vide : on s'arrête !
Le nombre de cellules remplies dans la colonne D est variable...
Merci d'avance.
--
PB
Bonjour Pascal,
Sub recopie_conditionnel()
For i = 6 To Range("D:D").SpecialCells(xlCellTypeLastCell).Row
If Not IsEmpty(Range("D" & i).Value) Then Range("A" & i).Formula > Range("A" & (i - 1)).Formula
Next i
End Sub
Est ce que ça convient ?
"Pascal" <Pascal@discussions.microsoft.com> a écrit dans le message news:
F438CCF9-324F-4D91-8542-B6ACBD076E61@microsoft.com...
Bonjour,
J'ai une formule en A5. En VBA, je souhaiterai copier cette formule dans
les
cellules en dessous (à partir de A6) tant que les cellules des lignes
correspondantes de la colonne D se sont pas vides.
Autrement dit :
D6 n'est pas vide alors copie en A6
D7 n'est pas vide alors copie en A7
D8 est vide : on s'arrête !
Le nombre de cellules remplies dans la colonne D est variable...
Merci d'avance.
--
PB
Bonjour Pascal,
Sub recopie_conditionnel()
For i = 6 To Range("D:D").SpecialCells(xlCellTypeLastCell).Row
If Not IsEmpty(Range("D" & i).Value) Then Range("A" & i).Formula > Range("A" & (i - 1)).Formula
Next i
End Sub
Est ce que ça convient ?
"Pascal" a écrit dans le message news:Bonjour,
J'ai une formule en A5. En VBA, je souhaiterai copier cette formule dans
lescellules en dessous (à partir de A6) tant que les cellules des lignes
correspondantes de la colonne D se sont pas vides.
Autrement dit :
D6 n'est pas vide alors copie en A6
D7 n'est pas vide alors copie en A7
D8 est vide : on s'arrête !
Le nombre de cellules remplies dans la colonne D est variable...
Merci d'avance.
--
PB
Merci beaucoup. Cela fonctionne très bien. Un petit bémol tout de même :
la
macro part à chaque fois de la ligne 6 (normal c'est ce que j'ai demandé!)
;
comment la faire partir de la cellule active placée dans la colonne A bien
sur ?
Encore merci pour cette macro impossible à trouver pour un débutant !
--
PBBonjour Pascal,
Sub recopie_conditionnel()
For i = 6 To Range("D:D").SpecialCells(xlCellTypeLastCell).Row
If Not IsEmpty(Range("D" & i).Value) Then Range("A" & i).Formula > > Range("A" & (i - 1)).Formula
Next i
End Sub
Est ce que ça convient ?
"Pascal" a écrit dans le message
news:
Bonjour,
J'ai une formule en A5. En VBA, je souhaiterai copier cette formule
dans
lescellules en dessous (à partir de A6) tant que les cellules des lignes
correspondantes de la colonne D se sont pas vides.
Autrement dit :
D6 n'est pas vide alors copie en A6
D7 n'est pas vide alors copie en A7
D8 est vide : on s'arrête !
Le nombre de cellules remplies dans la colonne D est variable...
Merci d'avance.
--
PB
Merci beaucoup. Cela fonctionne très bien. Un petit bémol tout de même :
la
macro part à chaque fois de la ligne 6 (normal c'est ce que j'ai demandé!)
;
comment la faire partir de la cellule active placée dans la colonne A bien
sur ?
Encore merci pour cette macro impossible à trouver pour un débutant !
--
PB
Bonjour Pascal,
Sub recopie_conditionnel()
For i = 6 To Range("D:D").SpecialCells(xlCellTypeLastCell).Row
If Not IsEmpty(Range("D" & i).Value) Then Range("A" & i).Formula > > Range("A" & (i - 1)).Formula
Next i
End Sub
Est ce que ça convient ?
"Pascal" <Pascal@discussions.microsoft.com> a écrit dans le message
news:
F438CCF9-324F-4D91-8542-B6ACBD076E61@microsoft.com...
Bonjour,
J'ai une formule en A5. En VBA, je souhaiterai copier cette formule
dans
les
cellules en dessous (à partir de A6) tant que les cellules des lignes
correspondantes de la colonne D se sont pas vides.
Autrement dit :
D6 n'est pas vide alors copie en A6
D7 n'est pas vide alors copie en A7
D8 est vide : on s'arrête !
Le nombre de cellules remplies dans la colonne D est variable...
Merci d'avance.
--
PB
Merci beaucoup. Cela fonctionne très bien. Un petit bémol tout de même :
la
macro part à chaque fois de la ligne 6 (normal c'est ce que j'ai demandé!)
;
comment la faire partir de la cellule active placée dans la colonne A bien
sur ?
Encore merci pour cette macro impossible à trouver pour un débutant !
--
PBBonjour Pascal,
Sub recopie_conditionnel()
For i = 6 To Range("D:D").SpecialCells(xlCellTypeLastCell).Row
If Not IsEmpty(Range("D" & i).Value) Then Range("A" & i).Formula > > Range("A" & (i - 1)).Formula
Next i
End Sub
Est ce que ça convient ?
"Pascal" a écrit dans le message
news:
Bonjour,
J'ai une formule en A5. En VBA, je souhaiterai copier cette formule
dans
lescellules en dessous (à partir de A6) tant que les cellules des lignes
correspondantes de la colonne D se sont pas vides.
Autrement dit :
D6 n'est pas vide alors copie en A6
D7 n'est pas vide alors copie en A7
D8 est vide : on s'arrête !
Le nombre de cellules remplies dans la colonne D est variable...
Merci d'avance.
--
PB
Si tu veux recopier la formule inscrite dans la ligne juste audessus de la
cellule active (en colonne A) :
Sub recopie_conditionnel1()
if activecell.column = 1
For i = activecell.row To
Range("D:D").SpecialCells(xlCellTypeLastCell).Row
If Not IsEmpty(Range("D" & i).Value) Then Range("A" & i).Formula > Range("A" & (i - 1)).Formula
Next i
End Sub
Si tu veux recopier la formule inscrite en A5 :
Sub recopie_conditionnel2()
if activecell.column = 1
For i = activecell.row To
Range("D:D").SpecialCells(xlCellTypeLastCell).Row
If Not IsEmpty(Range("D" & i).Value) Then Range("A" & i).Formula > Range("A5").Formula
Next i
End Sub
"Pascal" a écrit dans le message news:Merci beaucoup. Cela fonctionne très bien. Un petit bémol tout de même :
lamacro part à chaque fois de la ligne 6 (normal c'est ce que j'ai demandé!)
;comment la faire partir de la cellule active placée dans la colonne A bien
sur ?
Encore merci pour cette macro impossible à trouver pour un débutant !
--
PBBonjour Pascal,
Sub recopie_conditionnel()
For i = 6 To Range("D:D").SpecialCells(xlCellTypeLastCell).Row
If Not IsEmpty(Range("D" & i).Value) Then Range("A" & i).Formula > > > Range("A" & (i - 1)).Formula
Next i
End Sub
Est ce que ça convient ?
"Pascal" a écrit dans le message
news:Bonjour,
J'ai une formule en A5. En VBA, je souhaiterai copier cette formule
danslescellules en dessous (à partir de A6) tant que les cellules des lignes
correspondantes de la colonne D se sont pas vides.
Autrement dit :
D6 n'est pas vide alors copie en A6
D7 n'est pas vide alors copie en A7
D8 est vide : on s'arrête !
Le nombre de cellules remplies dans la colonne D est variable...
Merci d'avance.
--
PB
Si tu veux recopier la formule inscrite dans la ligne juste audessus de la
cellule active (en colonne A) :
Sub recopie_conditionnel1()
if activecell.column = 1
For i = activecell.row To
Range("D:D").SpecialCells(xlCellTypeLastCell).Row
If Not IsEmpty(Range("D" & i).Value) Then Range("A" & i).Formula > Range("A" & (i - 1)).Formula
Next i
End Sub
Si tu veux recopier la formule inscrite en A5 :
Sub recopie_conditionnel2()
if activecell.column = 1
For i = activecell.row To
Range("D:D").SpecialCells(xlCellTypeLastCell).Row
If Not IsEmpty(Range("D" & i).Value) Then Range("A" & i).Formula > Range("A5").Formula
Next i
End Sub
"Pascal" <Pascal@discussions.microsoft.com> a écrit dans le message news:
EBACACC9-93A0-451F-B513-E8E899A4A12F@microsoft.com...
Merci beaucoup. Cela fonctionne très bien. Un petit bémol tout de même :
la
macro part à chaque fois de la ligne 6 (normal c'est ce que j'ai demandé!)
;
comment la faire partir de la cellule active placée dans la colonne A bien
sur ?
Encore merci pour cette macro impossible à trouver pour un débutant !
--
PB
Bonjour Pascal,
Sub recopie_conditionnel()
For i = 6 To Range("D:D").SpecialCells(xlCellTypeLastCell).Row
If Not IsEmpty(Range("D" & i).Value) Then Range("A" & i).Formula > > > Range("A" & (i - 1)).Formula
Next i
End Sub
Est ce que ça convient ?
"Pascal" <Pascal@discussions.microsoft.com> a écrit dans le message
news:
F438CCF9-324F-4D91-8542-B6ACBD076E61@microsoft.com...
Bonjour,
J'ai une formule en A5. En VBA, je souhaiterai copier cette formule
dans
les
cellules en dessous (à partir de A6) tant que les cellules des lignes
correspondantes de la colonne D se sont pas vides.
Autrement dit :
D6 n'est pas vide alors copie en A6
D7 n'est pas vide alors copie en A7
D8 est vide : on s'arrête !
Le nombre de cellules remplies dans la colonne D est variable...
Merci d'avance.
--
PB
Si tu veux recopier la formule inscrite dans la ligne juste audessus de la
cellule active (en colonne A) :
Sub recopie_conditionnel1()
if activecell.column = 1
For i = activecell.row To
Range("D:D").SpecialCells(xlCellTypeLastCell).Row
If Not IsEmpty(Range("D" & i).Value) Then Range("A" & i).Formula > Range("A" & (i - 1)).Formula
Next i
End Sub
Si tu veux recopier la formule inscrite en A5 :
Sub recopie_conditionnel2()
if activecell.column = 1
For i = activecell.row To
Range("D:D").SpecialCells(xlCellTypeLastCell).Row
If Not IsEmpty(Range("D" & i).Value) Then Range("A" & i).Formula > Range("A5").Formula
Next i
End Sub
"Pascal" a écrit dans le message news:Merci beaucoup. Cela fonctionne très bien. Un petit bémol tout de même :
lamacro part à chaque fois de la ligne 6 (normal c'est ce que j'ai demandé!)
;comment la faire partir de la cellule active placée dans la colonne A bien
sur ?
Encore merci pour cette macro impossible à trouver pour un débutant !
--
PBBonjour Pascal,
Sub recopie_conditionnel()
For i = 6 To Range("D:D").SpecialCells(xlCellTypeLastCell).Row
If Not IsEmpty(Range("D" & i).Value) Then Range("A" & i).Formula > > > Range("A" & (i - 1)).Formula
Next i
End Sub
Est ce que ça convient ?
"Pascal" a écrit dans le message
news:Bonjour,
J'ai une formule en A5. En VBA, je souhaiterai copier cette formule
danslescellules en dessous (à partir de A6) tant que les cellules des lignes
correspondantes de la colonne D se sont pas vides.
Autrement dit :
D6 n'est pas vide alors copie en A6
D7 n'est pas vide alors copie en A7
D8 est vide : on s'arrête !
Le nombre de cellules remplies dans la colonne D est variable...
Merci d'avance.
--
PB
Ok pour la prise en compte de la cellule active mais je viens de
m'apercevoir
que la formule recopiée ne prend pas en compte le changement de ligne :
les
références des formules écrites en A6, A7... sont identiques à celles de
A5 !
J'ai donc une copie exacte de A5 et non un calcul basé sur les lignes 6,
7...
Je n'utilise pas de $ dans la formule en A5...
Quelle modification apporter ?
Ok pour la prise en compte de la cellule active mais je viens de
m'apercevoir
que la formule recopiée ne prend pas en compte le changement de ligne :
les
références des formules écrites en A6, A7... sont identiques à celles de
A5 !
J'ai donc une copie exacte de A5 et non un calcul basé sur les lignes 6,
7...
Je n'utilise pas de $ dans la formule en A5...
Quelle modification apporter ?
Ok pour la prise en compte de la cellule active mais je viens de
m'apercevoir
que la formule recopiée ne prend pas en compte le changement de ligne :
les
références des formules écrites en A6, A7... sont identiques à celles de
A5 !
J'ai donc une copie exacte de A5 et non un calcul basé sur les lignes 6,
7...
Je n'utilise pas de $ dans la formule en A5...
Quelle modification apporter ?
Petite erreur
Il faut remplacer les " Formula " par des " FormulaR1C1 "
"Pascal" a écrit dans le message news:Ok pour la prise en compte de la cellule active mais je viens de
m'apercevoirque la formule recopiée ne prend pas en compte le changement de ligne :
lesréférences des formules écrites en A6, A7... sont identiques à celles de
A5 !J'ai donc une copie exacte de A5 et non un calcul basé sur les lignes 6,
7...Je n'utilise pas de $ dans la formule en A5...
Quelle modification apporter ?
Petite erreur
Il faut remplacer les " Formula " par des " FormulaR1C1 "
"Pascal" <Pascal@discussions.microsoft.com> a écrit dans le message news:
69D5E36E-AE2E-4D00-A2F5-0A2C10567BED@microsoft.com...
Ok pour la prise en compte de la cellule active mais je viens de
m'apercevoir
que la formule recopiée ne prend pas en compte le changement de ligne :
les
références des formules écrites en A6, A7... sont identiques à celles de
A5 !
J'ai donc une copie exacte de A5 et non un calcul basé sur les lignes 6,
7...
Je n'utilise pas de $ dans la formule en A5...
Quelle modification apporter ?
Petite erreur
Il faut remplacer les " Formula " par des " FormulaR1C1 "
"Pascal" a écrit dans le message news:Ok pour la prise en compte de la cellule active mais je viens de
m'apercevoirque la formule recopiée ne prend pas en compte le changement de ligne :
lesréférences des formules écrites en A6, A7... sont identiques à celles de
A5 !J'ai donc une copie exacte de A5 et non un calcul basé sur les lignes 6,
7...Je n'utilise pas de $ dans la formule en A5...
Quelle modification apporter ?
Désolé mais c'est pire !
La formule est copiée une fois avec les références de cellules entourées
de
' et génère #NOM ? puis erreur 1004 !
Merci pour votre persévérance !
--
PBPetite erreur
Il faut remplacer les " Formula " par des " FormulaR1C1 "
"Pascal" a écrit dans le message
news:
Ok pour la prise en compte de la cellule active mais je viens de
m'apercevoirque la formule recopiée ne prend pas en compte le changement de ligne
:
lesréférences des formules écrites en A6, A7... sont identiques à celles
de
A5 !J'ai donc une copie exacte de A5 et non un calcul basé sur les lignes
6,
7...Je n'utilise pas de $ dans la formule en A5...
Quelle modification apporter ?
Désolé mais c'est pire !
La formule est copiée une fois avec les références de cellules entourées
de
' et génère #NOM ? puis erreur 1004 !
Merci pour votre persévérance !
--
PB
Petite erreur
Il faut remplacer les " Formula " par des " FormulaR1C1 "
"Pascal" <Pascal@discussions.microsoft.com> a écrit dans le message
news:
69D5E36E-AE2E-4D00-A2F5-0A2C10567BED@microsoft.com...
Ok pour la prise en compte de la cellule active mais je viens de
m'apercevoir
que la formule recopiée ne prend pas en compte le changement de ligne
:
les
références des formules écrites en A6, A7... sont identiques à celles
de
A5 !
J'ai donc une copie exacte de A5 et non un calcul basé sur les lignes
6,
7...
Je n'utilise pas de $ dans la formule en A5...
Quelle modification apporter ?
Désolé mais c'est pire !
La formule est copiée une fois avec les références de cellules entourées
de
' et génère #NOM ? puis erreur 1004 !
Merci pour votre persévérance !
--
PBPetite erreur
Il faut remplacer les " Formula " par des " FormulaR1C1 "
"Pascal" a écrit dans le message
news:
Ok pour la prise en compte de la cellule active mais je viens de
m'apercevoirque la formule recopiée ne prend pas en compte le changement de ligne
:
lesréférences des formules écrites en A6, A7... sont identiques à celles
de
A5 !J'ai donc une copie exacte de A5 et non un calcul basé sur les lignes
6,
7...Je n'utilise pas de $ dans la formule en A5...
Quelle modification apporter ?
Ceci fonctionne bien chez moi ( recopie de la cellule du dessus )
Sub essai()
If ActiveCell.Column = 1 Then
For i = ActiveCell.Row To
Range("D:D").SpecialCells(xlCellTypeLastCell).Row
If Not IsEmpty(Range("D" & i).Value) Then Range("A" & i).FormulaR1C1 > Range("A" & (i - 1)).FormulaR1C1
Next i
End If
End Sub
Si ça ne fonctionne pas il faudrait comparer la formule initiale à recopier
( exemple = somme(.....) ) dans la cellule au dessus de la cellule active
et quelle est la formule recopiée par la macro ( dans la cellule active lors
du lancement de la macro )
"Pascal" a écrit dans le message news:Désolé mais c'est pire !
La formule est copiée une fois avec les références de cellules entourées
de' et génère #NOM ? puis erreur 1004 !
Merci pour votre persévérance !
--
PBPetite erreur
Il faut remplacer les " Formula " par des " FormulaR1C1 "
"Pascal" a écrit dans le message
news:Ok pour la prise en compte de la cellule active mais je viens de
m'apercevoirque la formule recopiée ne prend pas en compte le changement de ligne
:lesréférences des formules écrites en A6, A7... sont identiques à celles
deA5 !J'ai donc une copie exacte de A5 et non un calcul basé sur les lignes
6,7...Je n'utilise pas de $ dans la formule en A5...
Quelle modification apporter ?
Ceci fonctionne bien chez moi ( recopie de la cellule du dessus )
Sub essai()
If ActiveCell.Column = 1 Then
For i = ActiveCell.Row To
Range("D:D").SpecialCells(xlCellTypeLastCell).Row
If Not IsEmpty(Range("D" & i).Value) Then Range("A" & i).FormulaR1C1 > Range("A" & (i - 1)).FormulaR1C1
Next i
End If
End Sub
Si ça ne fonctionne pas il faudrait comparer la formule initiale à recopier
( exemple = somme(.....) ) dans la cellule au dessus de la cellule active
et quelle est la formule recopiée par la macro ( dans la cellule active lors
du lancement de la macro )
"Pascal" <Pascal@discussions.microsoft.com> a écrit dans le message news:
DFB8E3F5-D1FE-410C-A1C6-458C4EC56799@microsoft.com...
Désolé mais c'est pire !
La formule est copiée une fois avec les références de cellules entourées
de
' et génère #NOM ? puis erreur 1004 !
Merci pour votre persévérance !
--
PB
Petite erreur
Il faut remplacer les " Formula " par des " FormulaR1C1 "
"Pascal" <Pascal@discussions.microsoft.com> a écrit dans le message
news:
69D5E36E-AE2E-4D00-A2F5-0A2C10567BED@microsoft.com...
Ok pour la prise en compte de la cellule active mais je viens de
m'apercevoir
que la formule recopiée ne prend pas en compte le changement de ligne
:
les
références des formules écrites en A6, A7... sont identiques à celles
de
A5 !
J'ai donc une copie exacte de A5 et non un calcul basé sur les lignes
6,
7...
Je n'utilise pas de $ dans la formule en A5...
Quelle modification apporter ?
Ceci fonctionne bien chez moi ( recopie de la cellule du dessus )
Sub essai()
If ActiveCell.Column = 1 Then
For i = ActiveCell.Row To
Range("D:D").SpecialCells(xlCellTypeLastCell).Row
If Not IsEmpty(Range("D" & i).Value) Then Range("A" & i).FormulaR1C1 > Range("A" & (i - 1)).FormulaR1C1
Next i
End If
End Sub
Si ça ne fonctionne pas il faudrait comparer la formule initiale à recopier
( exemple = somme(.....) ) dans la cellule au dessus de la cellule active
et quelle est la formule recopiée par la macro ( dans la cellule active lors
du lancement de la macro )
"Pascal" a écrit dans le message news:Désolé mais c'est pire !
La formule est copiée une fois avec les références de cellules entourées
de' et génère #NOM ? puis erreur 1004 !
Merci pour votre persévérance !
--
PBPetite erreur
Il faut remplacer les " Formula " par des " FormulaR1C1 "
"Pascal" a écrit dans le message
news:Ok pour la prise en compte de la cellule active mais je viens de
m'apercevoirque la formule recopiée ne prend pas en compte le changement de ligne
:lesréférences des formules écrites en A6, A7... sont identiques à celles
deA5 !J'ai donc une copie exacte de A5 et non un calcul basé sur les lignes
6,7...Je n'utilise pas de $ dans la formule en A5...
Quelle modification apporter ?