Bonjour,
J'ai ce code qui me permet de recopier une formule en f6 de la coller sur
cellule d'en dessous tant que en A:A les cellules ne sont pas vides.
Le soucis lorsque je lance la macro la formule est recopiée même si en A:A
les cellules sont vides.
Range("F6").Select
Selection.Copy
For Each cell In [ref]
If cell <>"" and cell <>0 Then
ActiveCell.Offset(1, 0).PasteSpecial (xlPasteFormulas)
End If
Next
End Sub
Dans mon classeur les cellules à partir de A21 sont vides, ma formule est
recopiée jusqu'à f24??
Une solution
Merci
Pascal
Bonjour,
J'ai ce code qui me permet de recopier une formule en f6 de la coller sur
cellule d'en dessous tant que en A:A les cellules ne sont pas vides.
Le soucis lorsque je lance la macro la formule est recopiée même si en A:A
les cellules sont vides.
Range("F6").Select
Selection.Copy
For Each cell In [ref]
If cell <>"" and cell <>0 Then
ActiveCell.Offset(1, 0).PasteSpecial (xlPasteFormulas)
End If
Next
End Sub
Dans mon classeur les cellules à partir de A21 sont vides, ma formule est
recopiée jusqu'à f24??
Une solution
Merci
Pascal
Bonjour,
J'ai ce code qui me permet de recopier une formule en f6 de la coller sur
cellule d'en dessous tant que en A:A les cellules ne sont pas vides.
Le soucis lorsque je lance la macro la formule est recopiée même si en A:A
les cellules sont vides.
Range("F6").Select
Selection.Copy
For Each cell In [ref]
If cell <>"" and cell <>0 Then
ActiveCell.Offset(1, 0).PasteSpecial (xlPasteFormulas)
End If
Next
End Sub
Dans mon classeur les cellules à partir de A21 sont vides, ma formule est
recopiée jusqu'à f24??
Une solution
Merci
Pascal
Bonjour,
J'ai ce code qui me permet de recopier une formule en f6 de la coller sur la
cellule d'en dessous tant que en A:A les cellules ne sont pas vides.
Le soucis lorsque je lance la macro la formule est recopiée même si en A:A
les cellules sont vides.
Range("F6").Select
Selection.Copy
For Each cell In [ref]
If cell <> 0 Then
ActiveCell.Offset(1, 0).PasteSpecial (xlPasteFormulas)
End If
Next
End Sub
Dans mon classeur les cellules à partir de A21 sont vides, ma formule est
recopiée jusqu'à f24??
Une solution
Merci
Pascal
Bonjour,
J'ai ce code qui me permet de recopier une formule en f6 de la coller sur la
cellule d'en dessous tant que en A:A les cellules ne sont pas vides.
Le soucis lorsque je lance la macro la formule est recopiée même si en A:A
les cellules sont vides.
Range("F6").Select
Selection.Copy
For Each cell In [ref]
If cell <> 0 Then
ActiveCell.Offset(1, 0).PasteSpecial (xlPasteFormulas)
End If
Next
End Sub
Dans mon classeur les cellules à partir de A21 sont vides, ma formule est
recopiée jusqu'à f24??
Une solution
Merci
Pascal
Bonjour,
J'ai ce code qui me permet de recopier une formule en f6 de la coller sur la
cellule d'en dessous tant que en A:A les cellules ne sont pas vides.
Le soucis lorsque je lance la macro la formule est recopiée même si en A:A
les cellules sont vides.
Range("F6").Select
Selection.Copy
For Each cell In [ref]
If cell <> 0 Then
ActiveCell.Offset(1, 0).PasteSpecial (xlPasteFormulas)
End If
Next
End Sub
Dans mon classeur les cellules à partir de A21 sont vides, ma formule est
recopiée jusqu'à f24??
Une solution
Merci
Pascal
Bonjour,
pourrait se résumer à
[f6].Copy
[ref].Cells.SpecialCells(xlCellTypeBlanks).PasteSpecial _
Paste:=xlFormulas
'lSteph
Pascal Scal a écrit :Bonjour,
J'ai ce code qui me permet de recopier une formule en f6 de la coller
sur la cellule d'en dessous tant que en A:A les cellules ne sont pas
vides.
Le soucis lorsque je lance la macro la formule est recopiée même si en
A:A les cellules sont vides.
Range("F6").Select
Selection.Copy
For Each cell In [ref]
If cell <> 0 Then
ActiveCell.Offset(1, 0).PasteSpecial (xlPasteFormulas)
End If
Next
End Sub
Dans mon classeur les cellules à partir de A21 sont vides, ma formule
est recopiée jusqu'à f24??
Une solution
Merci
Pascal
Bonjour,
pourrait se résumer à
[f6].Copy
[ref].Cells.SpecialCells(xlCellTypeBlanks).PasteSpecial _
Paste:=xlFormulas
'lSteph
Pascal Scal a écrit :
Bonjour,
J'ai ce code qui me permet de recopier une formule en f6 de la coller
sur la cellule d'en dessous tant que en A:A les cellules ne sont pas
vides.
Le soucis lorsque je lance la macro la formule est recopiée même si en
A:A les cellules sont vides.
Range("F6").Select
Selection.Copy
For Each cell In [ref]
If cell <> 0 Then
ActiveCell.Offset(1, 0).PasteSpecial (xlPasteFormulas)
End If
Next
End Sub
Dans mon classeur les cellules à partir de A21 sont vides, ma formule
est recopiée jusqu'à f24??
Une solution
Merci
Pascal
Bonjour,
pourrait se résumer à
[f6].Copy
[ref].Cells.SpecialCells(xlCellTypeBlanks).PasteSpecial _
Paste:=xlFormulas
'lSteph
Pascal Scal a écrit :Bonjour,
J'ai ce code qui me permet de recopier une formule en f6 de la coller
sur la cellule d'en dessous tant que en A:A les cellules ne sont pas
vides.
Le soucis lorsque je lance la macro la formule est recopiée même si en
A:A les cellules sont vides.
Range("F6").Select
Selection.Copy
For Each cell In [ref]
If cell <> 0 Then
ActiveCell.Offset(1, 0).PasteSpecial (xlPasteFormulas)
End If
Next
End Sub
Dans mon classeur les cellules à partir de A21 sont vides, ma formule
est recopiée jusqu'à f24??
Une solution
Merci
Pascal
Bonjour,
pourrait se résumer à
[f6].Copy
[ref].Cells.SpecialCells(xlCellTypeBlanks).PasteSpecial _
Paste:=xlFormulas
'lSteph
Pascal Scal a écrit :Bonjour,
J'ai ce code qui me permet de recopier une formule en f6 de la coller sur
la cellule d'en dessous tant que en A:A les cellules ne sont pas vides.
Le soucis lorsque je lance la macro la formule est recopiée même si en
A:A les cellules sont vides.
Range("F6").Select
Selection.Copy
For Each cell In [ref]
If cell <> 0 Then
ActiveCell.Offset(1, 0).PasteSpecial (xlPasteFormulas)
End If
Next
End Sub
Dans mon classeur les cellules à partir de A21 sont vides, ma formule est
recopiée jusqu'à f24??
Une solution
Merci
Pascal
Bonjour,
pourrait se résumer à
[f6].Copy
[ref].Cells.SpecialCells(xlCellTypeBlanks).PasteSpecial _
Paste:=xlFormulas
'lSteph
Pascal Scal a écrit :
Bonjour,
J'ai ce code qui me permet de recopier une formule en f6 de la coller sur
la cellule d'en dessous tant que en A:A les cellules ne sont pas vides.
Le soucis lorsque je lance la macro la formule est recopiée même si en
A:A les cellules sont vides.
Range("F6").Select
Selection.Copy
For Each cell In [ref]
If cell <> 0 Then
ActiveCell.Offset(1, 0).PasteSpecial (xlPasteFormulas)
End If
Next
End Sub
Dans mon classeur les cellules à partir de A21 sont vides, ma formule est
recopiée jusqu'à f24??
Une solution
Merci
Pascal
Bonjour,
pourrait se résumer à
[f6].Copy
[ref].Cells.SpecialCells(xlCellTypeBlanks).PasteSpecial _
Paste:=xlFormulas
'lSteph
Pascal Scal a écrit :Bonjour,
J'ai ce code qui me permet de recopier une formule en f6 de la coller sur
la cellule d'en dessous tant que en A:A les cellules ne sont pas vides.
Le soucis lorsque je lance la macro la formule est recopiée même si en
A:A les cellules sont vides.
Range("F6").Select
Selection.Copy
For Each cell In [ref]
If cell <> 0 Then
ActiveCell.Offset(1, 0).PasteSpecial (xlPasteFormulas)
End If
Next
End Sub
Dans mon classeur les cellules à partir de A21 sont vides, ma formule est
recopiée jusqu'à f24??
Une solution
Merci
Pascal
Bonjour,
J'ai ce code qui me permet de recopier une formule en f6 de la coller sur
la cellule d'en dessous tant que en A:A les cellules ne sont pas vides.
Le soucis lorsque je lance la macro la formule est recopiée même si en A:A
les cellules sont vides.
Range("F6").Select
Selection.Copy
For Each cell In [ref]
If cell <> 0 Then
ActiveCell.Offset(1, 0).PasteSpecial (xlPasteFormulas)
End If
Next
End Sub
Dans mon classeur les cellules à partir de A21 sont vides, ma formule est
recopiée jusqu'à f24??
Une solution
Merci
Pascal
Bonjour,
J'ai ce code qui me permet de recopier une formule en f6 de la coller sur
la cellule d'en dessous tant que en A:A les cellules ne sont pas vides.
Le soucis lorsque je lance la macro la formule est recopiée même si en A:A
les cellules sont vides.
Range("F6").Select
Selection.Copy
For Each cell In [ref]
If cell <> 0 Then
ActiveCell.Offset(1, 0).PasteSpecial (xlPasteFormulas)
End If
Next
End Sub
Dans mon classeur les cellules à partir de A21 sont vides, ma formule est
recopiée jusqu'à f24??
Une solution
Merci
Pascal
Bonjour,
J'ai ce code qui me permet de recopier une formule en f6 de la coller sur
la cellule d'en dessous tant que en A:A les cellules ne sont pas vides.
Le soucis lorsque je lance la macro la formule est recopiée même si en A:A
les cellules sont vides.
Range("F6").Select
Selection.Copy
For Each cell In [ref]
If cell <> 0 Then
ActiveCell.Offset(1, 0).PasteSpecial (xlPasteFormulas)
End If
Next
End Sub
Dans mon classeur les cellules à partir de A21 sont vides, ma formule est
recopiée jusqu'à f24??
Une solution
Merci
Pascal
Merci mais là cela ne me copie plus rien
Ref est égal à ("A:A")
Merci
"LSteph" a écrit dans le message de news:
%
> Bonjour,
> pourrait se résumer à
> [f6].Copy
> [ref].Cells.SpecialCells(xlCellTypeBlanks).PasteSpecial _
> Paste:=xlFormulas
> 'lSteph
> Pascal Scal a écrit :
>> Bonjour,
>> J'ai ce code qui me permet de recopier une formule en f6 de la coller sur
>> la cellule d'en dessous tant que en A:A les cellules ne sont pas vides .
>> Le soucis lorsque je lance la macro la formule est recopiée même s i en
>> A:A les cellules sont vides.
>> Range("F6").Select
>> Selection.Copy
>> For Each cell In [ref]
>> If cell <> 0 Then
>> ActiveCell.Offset(1, 0).PasteSpecial (xlPasteFormulas)
>> End If
>> Next
>> End Sub
>> Dans mon classeur les cellules à partir de A21 sont vides, ma formul e est
>> recopiée jusqu'à f24??
>> Une solution
>> Merci
>> Pascal- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Merci mais là cela ne me copie plus rien
Ref est égal à ("A:A")
Merci
"LSteph" <lecocost...@frite.fr> a écrit dans le message de news:
%23ez4jqNkJHA.5...@TK2MSFTNGP02.phx.gbl...
> Bonjour,
> pourrait se résumer à
> [f6].Copy
> [ref].Cells.SpecialCells(xlCellTypeBlanks).PasteSpecial _
> Paste:=xlFormulas
> 'lSteph
> Pascal Scal a écrit :
>> Bonjour,
>> J'ai ce code qui me permet de recopier une formule en f6 de la coller sur
>> la cellule d'en dessous tant que en A:A les cellules ne sont pas vides .
>> Le soucis lorsque je lance la macro la formule est recopiée même s i en
>> A:A les cellules sont vides.
>> Range("F6").Select
>> Selection.Copy
>> For Each cell In [ref]
>> If cell <> 0 Then
>> ActiveCell.Offset(1, 0).PasteSpecial (xlPasteFormulas)
>> End If
>> Next
>> End Sub
>> Dans mon classeur les cellules à partir de A21 sont vides, ma formul e est
>> recopiée jusqu'à f24??
>> Une solution
>> Merci
>> Pascal- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Merci mais là cela ne me copie plus rien
Ref est égal à ("A:A")
Merci
"LSteph" a écrit dans le message de news:
%
> Bonjour,
> pourrait se résumer à
> [f6].Copy
> [ref].Cells.SpecialCells(xlCellTypeBlanks).PasteSpecial _
> Paste:=xlFormulas
> 'lSteph
> Pascal Scal a écrit :
>> Bonjour,
>> J'ai ce code qui me permet de recopier une formule en f6 de la coller sur
>> la cellule d'en dessous tant que en A:A les cellules ne sont pas vides .
>> Le soucis lorsque je lance la macro la formule est recopiée même s i en
>> A:A les cellules sont vides.
>> Range("F6").Select
>> Selection.Copy
>> For Each cell In [ref]
>> If cell <> 0 Then
>> ActiveCell.Offset(1, 0).PasteSpecial (xlPasteFormulas)
>> End If
>> Next
>> End Sub
>> Dans mon classeur les cellules à partir de A21 sont vides, ma formul e est
>> recopiée jusqu'à f24??
>> Une solution
>> Merci
>> Pascal- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour,
Sans Vba ??
En F6
=SI(A6="";"";La_Formule)
et recopier vers le bas aussi loin que besoin
--
Salutations
JJ
"Pascal Scal" a écrit dans le message de news:
et%
> Bonjour,
> J'ai ce code qui me permet de recopier une formule en f6 de la coller s ur
> la cellule d'en dessous tant que en A:A les cellules ne sont pas vides.
> Le soucis lorsque je lance la macro la formule est recopiée même si en A:A
> les cellules sont vides.
> Range("F6").Select
> Selection.Copy
> For Each cell In [ref]
> If cell <> 0 Then
> ActiveCell.Offset(1, 0).PasteSpecial (xlPasteFormulas)
> End If
> Next
> End Sub
> Dans mon classeur les cellules à partir de A21 sont vides, ma formule est
> recopiée jusqu'à f24??
> Une solution
> Merci
> Pascal- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour,
Sans Vba ??
En F6
=SI(A6="";"";La_Formule)
et recopier vers le bas aussi loin que besoin
--
Salutations
JJ
"Pascal Scal" <pas...@nospam.fr> a écrit dans le message de news:
et%23mDWNkJHA.1...@TK2MSFTNGP05.phx.gbl...
> Bonjour,
> J'ai ce code qui me permet de recopier une formule en f6 de la coller s ur
> la cellule d'en dessous tant que en A:A les cellules ne sont pas vides.
> Le soucis lorsque je lance la macro la formule est recopiée même si en A:A
> les cellules sont vides.
> Range("F6").Select
> Selection.Copy
> For Each cell In [ref]
> If cell <> 0 Then
> ActiveCell.Offset(1, 0).PasteSpecial (xlPasteFormulas)
> End If
> Next
> End Sub
> Dans mon classeur les cellules à partir de A21 sont vides, ma formule est
> recopiée jusqu'à f24??
> Une solution
> Merci
> Pascal- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour,
Sans Vba ??
En F6
=SI(A6="";"";La_Formule)
et recopier vers le bas aussi loin que besoin
--
Salutations
JJ
"Pascal Scal" a écrit dans le message de news:
et%
> Bonjour,
> J'ai ce code qui me permet de recopier une formule en f6 de la coller s ur
> la cellule d'en dessous tant que en A:A les cellules ne sont pas vides.
> Le soucis lorsque je lance la macro la formule est recopiée même si en A:A
> les cellules sont vides.
> Range("F6").Select
> Selection.Copy
> For Each cell In [ref]
> If cell <> 0 Then
> ActiveCell.Offset(1, 0).PasteSpecial (xlPasteFormulas)
> End If
> Next
> End Sub
> Dans mon classeur les cellules à partir de A21 sont vides, ma formule est
> recopiée jusqu'à f24??
> Une solution
> Merci
> Pascal- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
>Si c'est cela voilà qui n'a rien à voir avec ce que j'avais compris
Bonjour,
Sans Vba ??
En F6
=SI(A6="";"";La_Formule)
et recopier vers le bas aussi loin que besoin
--
Salutations
JJ
"Pascal Scal" a écrit dans le message de news:
et%
> Bonjour,
> J'ai ce code qui me permet de recopier une formule en f6 de la coller
> sur
> la cellule d'en dessous tant que en A:A les cellules ne sont pas vides.
> Le soucis lorsque je lance la macro la formule est recopiée même si en
> A:A
> les cellules sont vides.
> Range("F6").Select
> Selection.Copy
> For Each cell In [ref]
> If cell <> 0 Then
> ActiveCell.Offset(1, 0).PasteSpecial (xlPasteFormulas)
> End If
> Next
> End Sub
> Dans mon classeur les cellules à partir de A21 sont vides, ma formule
> est
> recopiée jusqu'à f24??
> Une solution
> Merci
> Pascal- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
>Si c'est cela voilà qui n'a rien à voir avec ce que j'avais compris
Bonjour,
Sans Vba ??
En F6
=SI(A6="";"";La_Formule)
et recopier vers le bas aussi loin que besoin
--
Salutations
JJ
"Pascal Scal" <pas...@nospam.fr> a écrit dans le message de news:
et%23mDWNkJHA.1...@TK2MSFTNGP05.phx.gbl...
> Bonjour,
> J'ai ce code qui me permet de recopier une formule en f6 de la coller
> sur
> la cellule d'en dessous tant que en A:A les cellules ne sont pas vides.
> Le soucis lorsque je lance la macro la formule est recopiée même si en
> A:A
> les cellules sont vides.
> Range("F6").Select
> Selection.Copy
> For Each cell In [ref]
> If cell <> 0 Then
> ActiveCell.Offset(1, 0).PasteSpecial (xlPasteFormulas)
> End If
> Next
> End Sub
> Dans mon classeur les cellules à partir de A21 sont vides, ma formule
> est
> recopiée jusqu'à f24??
> Une solution
> Merci
> Pascal- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
>Si c'est cela voilà qui n'a rien à voir avec ce que j'avais compris
Bonjour,
Sans Vba ??
En F6
=SI(A6="";"";La_Formule)
et recopier vers le bas aussi loin que besoin
--
Salutations
JJ
"Pascal Scal" a écrit dans le message de news:
et%
> Bonjour,
> J'ai ce code qui me permet de recopier une formule en f6 de la coller
> sur
> la cellule d'en dessous tant que en A:A les cellules ne sont pas vides.
> Le soucis lorsque je lance la macro la formule est recopiée même si en
> A:A
> les cellules sont vides.
> Range("F6").Select
> Selection.Copy
> For Each cell In [ref]
> If cell <> 0 Then
> ActiveCell.Offset(1, 0).PasteSpecial (xlPasteFormulas)
> End If
> Next
> End Sub
> Dans mon classeur les cellules à partir de A21 sont vides, ma formule
> est
> recopiée jusqu'à f24??
> Une solution
> Merci
> Pascal- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour,
Sans Vba ??
En F6
=SI(A6="";"";La_Formule)
et recopier vers le bas aussi loin que besoin
--
Salutations
JJ
"Pascal Scal" a écrit dans le message de news:
et%
> Bonjour,
> J'ai ce code qui me permet de recopier une formule en f6 de la coller s ur
> la cellule d'en dessous tant que en A:A les cellules ne sont pas vides.
> Le soucis lorsque je lance la macro la formule est recopiée même si en A:A
> les cellules sont vides.
> Range("F6").Select
> Selection.Copy
> For Each cell In [ref]
> If cell <> 0 Then
> ActiveCell.Offset(1, 0).PasteSpecial (xlPasteFormulas)
> End If
> Next
> End Sub
> Dans mon classeur les cellules à partir de A21 sont vides, ma formule est
> recopiée jusqu'à f24??
> Une solution
> Merci
> Pascal- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour,
Sans Vba ??
En F6
=SI(A6="";"";La_Formule)
et recopier vers le bas aussi loin que besoin
--
Salutations
JJ
"Pascal Scal" <pas...@nospam.fr> a écrit dans le message de news:
et%23mDWNkJHA.1...@TK2MSFTNGP05.phx.gbl...
> Bonjour,
> J'ai ce code qui me permet de recopier une formule en f6 de la coller s ur
> la cellule d'en dessous tant que en A:A les cellules ne sont pas vides.
> Le soucis lorsque je lance la macro la formule est recopiée même si en A:A
> les cellules sont vides.
> Range("F6").Select
> Selection.Copy
> For Each cell In [ref]
> If cell <> 0 Then
> ActiveCell.Offset(1, 0).PasteSpecial (xlPasteFormulas)
> End If
> Next
> End Sub
> Dans mon classeur les cellules à partir de A21 sont vides, ma formule est
> recopiée jusqu'à f24??
> Une solution
> Merci
> Pascal- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour,
Sans Vba ??
En F6
=SI(A6="";"";La_Formule)
et recopier vers le bas aussi loin que besoin
--
Salutations
JJ
"Pascal Scal" a écrit dans le message de news:
et%
> Bonjour,
> J'ai ce code qui me permet de recopier une formule en f6 de la coller s ur
> la cellule d'en dessous tant que en A:A les cellules ne sont pas vides.
> Le soucis lorsque je lance la macro la formule est recopiée même si en A:A
> les cellules sont vides.
> Range("F6").Select
> Selection.Copy
> For Each cell In [ref]
> If cell <> 0 Then
> ActiveCell.Offset(1, 0).PasteSpecial (xlPasteFormulas)
> End If
> Next
> End Sub
> Dans mon classeur les cellules à partir de A21 sont vides, ma formule est
> recopiée jusqu'à f24??
> Une solution
> Merci
> Pascal- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour,
Sans Vba ??
En F6
=SI(A6="";"";La_Formule)
et recopier vers le bas aussi loin que besoin
--
Salutations
JJ
"Pascal Scal" a écrit dans le message de news:
et%
> Bonjour,
> J'ai ce code qui me permet de recopier une formule en f6 de la coller sur
> la cellule d'en dessous tant que en A:A les cellules ne sont pas vides.
> Le soucis lorsque je lance la macro la formule est recopiée même si en A:A
> les cellules sont vides.
> Range("F6").Select
> Selection.Copy
> For Each cell In [ref]
> If cell <> 0 Then
> ActiveCell.Offset(1, 0).PasteSpecial (xlPasteFormulas)
> End If
> Next
> End Sub
>
> Dans mon classeur les cellules à partir de A21 sont vides, ma formule est
> recopiée jusqu'à f24??
>
> Une solution
> Merci
> Pascal
>
Bonjour,
Sans Vba ??
En F6
=SI(A6="";"";La_Formule)
et recopier vers le bas aussi loin que besoin
--
Salutations
JJ
"Pascal Scal" <pascal@nospam.fr> a écrit dans le message de news:
et%23mDWNkJHA.1168@TK2MSFTNGP05.phx.gbl...
> Bonjour,
> J'ai ce code qui me permet de recopier une formule en f6 de la coller sur
> la cellule d'en dessous tant que en A:A les cellules ne sont pas vides.
> Le soucis lorsque je lance la macro la formule est recopiée même si en A:A
> les cellules sont vides.
> Range("F6").Select
> Selection.Copy
> For Each cell In [ref]
> If cell <> 0 Then
> ActiveCell.Offset(1, 0).PasteSpecial (xlPasteFormulas)
> End If
> Next
> End Sub
>
> Dans mon classeur les cellules à partir de A21 sont vides, ma formule est
> recopiée jusqu'à f24??
>
> Une solution
> Merci
> Pascal
>
Bonjour,
Sans Vba ??
En F6
=SI(A6="";"";La_Formule)
et recopier vers le bas aussi loin que besoin
--
Salutations
JJ
"Pascal Scal" a écrit dans le message de news:
et%
> Bonjour,
> J'ai ce code qui me permet de recopier une formule en f6 de la coller sur
> la cellule d'en dessous tant que en A:A les cellules ne sont pas vides.
> Le soucis lorsque je lance la macro la formule est recopiée même si en A:A
> les cellules sont vides.
> Range("F6").Select
> Selection.Copy
> For Each cell In [ref]
> If cell <> 0 Then
> ActiveCell.Offset(1, 0).PasteSpecial (xlPasteFormulas)
> End If
> Next
> End Sub
>
> Dans mon classeur les cellules à partir de A21 sont vides, ma formule est
> recopiée jusqu'à f24??
>
> Une solution
> Merci
> Pascal
>