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??
Peux-tu mettre une copie du fichier receveur avec la structure de la feuille réceptrice sur http://www.cjoint.com/ pour te connecter avec un lecteur de news (Outlook express par exemple) clique sur ce lien news://news.microsoft.com/microsoft.public.fr.excel
-- Salutations JJ
"Sully" a écrit dans le message de news:
Bonjour Jacky, je m'excuse de procéder ainsi pour te poser directement une question.Pour le moment je n'arrivre pas par le forum à mettre ma question en ligne, pourquoi je ne sais pas !!! ---------- j'en J'aimerais savoir si vous pouvez m'aider pour une macro ;
J'ai un classeur avec des données de certaines cellules que je vais reporter dans un autre classeur.
Dans le classeur source, les données qui sont à copier sont toujours au même endroit ex, en h 8, M12,d 10.
Ex, je dois copier la cellule h8 - m12- d10 dans le classeur receveur à l'emplacement B5, b8, et b25 si elle est vide, si elle est pleine alors décaler à droite en c5 c8 c9 et la fois d'après en d5,d8 d9. C'est un classeur de résultat qui part de janvier à décembre, on va dire qu'il y a 12 colonnes réceptrices.
On va dire que les deux fichiers sont déjà ouverts.
Par contre le fichier donneur est un tableau dont les données changent chaque mois.
- -- J'aimerai aussi (pour plus tard) avoir la syntaxe pour décaler non plus à droite mais en dessous : B5 , puis b6 et b7 ect si la cellule est pleine.
J'étais un peu long, j'ai voulu être claire. merci par anticipation à toutes les personnes qui voudraient bien me répondre. Cordialement.
-- B123
"Jacky" a écrit :
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,
Peux-tu mettre une copie du fichier receveur avec la structure de la feuille
réceptrice sur
http://www.cjoint.com/
pour te connecter avec un lecteur de news (Outlook express par exemple)
clique sur ce lien
news://news.microsoft.com/microsoft.public.fr.excel
--
Salutations
JJ
"Sully" <anatole@discussions.microsoft.com> a écrit dans le message de news:
F814A92C-A80B-4B24-9CCE-6187E69F2911@microsoft.com...
Bonjour Jacky, je m'excuse de procéder ainsi pour te poser directement une
question.Pour le moment je n'arrivre pas par le forum à mettre ma question
en
ligne, pourquoi je ne sais pas !!!
----------
j'en J'aimerais savoir si vous pouvez m'aider pour une macro ;
J'ai un classeur avec des données de certaines cellules que je vais
reporter dans un autre classeur.
Dans le classeur source, les données qui sont à copier sont toujours au
même
endroit ex, en h 8, M12,d 10.
Ex, je dois copier la cellule h8 - m12- d10 dans le classeur receveur à
l'emplacement B5, b8, et b25 si elle est vide, si elle est pleine alors
décaler à droite en c5 c8 c9 et la fois d'après en d5,d8 d9.
C'est un classeur de résultat qui part de janvier à décembre, on va dire
qu'il y a 12 colonnes réceptrices.
On va dire que les deux fichiers sont déjà ouverts.
Par contre le fichier donneur est un tableau dont les données changent
chaque mois.
- --
J'aimerai aussi (pour plus tard) avoir la syntaxe pour décaler non plus à
droite mais en dessous : B5 , puis b6 et b7 ect si la cellule est pleine.
J'étais un peu long, j'ai voulu être claire.
merci par anticipation à toutes les personnes qui voudraient bien me
répondre.
Cordialement.
--
B123
"Jacky" a écrit :
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
>
Peux-tu mettre une copie du fichier receveur avec la structure de la feuille réceptrice sur http://www.cjoint.com/ pour te connecter avec un lecteur de news (Outlook express par exemple) clique sur ce lien news://news.microsoft.com/microsoft.public.fr.excel
-- Salutations JJ
"Sully" a écrit dans le message de news:
Bonjour Jacky, je m'excuse de procéder ainsi pour te poser directement une question.Pour le moment je n'arrivre pas par le forum à mettre ma question en ligne, pourquoi je ne sais pas !!! ---------- j'en J'aimerais savoir si vous pouvez m'aider pour une macro ;
J'ai un classeur avec des données de certaines cellules que je vais reporter dans un autre classeur.
Dans le classeur source, les données qui sont à copier sont toujours au même endroit ex, en h 8, M12,d 10.
Ex, je dois copier la cellule h8 - m12- d10 dans le classeur receveur à l'emplacement B5, b8, et b25 si elle est vide, si elle est pleine alors décaler à droite en c5 c8 c9 et la fois d'après en d5,d8 d9. C'est un classeur de résultat qui part de janvier à décembre, on va dire qu'il y a 12 colonnes réceptrices.
On va dire que les deux fichiers sont déjà ouverts.
Par contre le fichier donneur est un tableau dont les données changent chaque mois.
- -- J'aimerai aussi (pour plus tard) avoir la syntaxe pour décaler non plus à droite mais en dessous : B5 , puis b6 et b7 ect si la cellule est pleine.
J'étais un peu long, j'ai voulu être claire. merci par anticipation à toutes les personnes qui voudraient bien me répondre. Cordialement.
-- B123
"Jacky" a écrit :
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 >
MichDenis
J'ai omis le mot Columns dans la procédure :
Sub test() Dim Colonne As Range On Error Resume Next For Each Colonne In Range("A1:E10").Columns Colonne.SpecialCells(xlCellTypeBlanks).Delete (xlUp) Next End Sub
J'ai omis le mot Columns dans la procédure :
Sub test()
Dim Colonne As Range
On Error Resume Next
For Each Colonne In Range("A1:E10").Columns
Colonne.SpecialCells(xlCellTypeBlanks).Delete (xlUp)
Next
End Sub
Sub test() Dim Colonne As Range On Error Resume Next For Each Colonne In Range("A1:E10").Columns Colonne.SpecialCells(xlCellTypeBlanks).Delete (xlUp) Next End Sub
