Macro pour copier certaines cellules

JNP

XLDnaute Barbatruc

• 13 Février 2012

• #2

Re : Macro pour copier certaines cellules

Bonsoir Matix 🙂,
Pourquoi une macro 🙄 ?
A condition d'insérer une ligne vide en 1, en C2

Code:

=SI(A2="";C1;A2)

à glisser en D2, puis glisser C2 et D2 vers le bas 😛...
Bonne suite 😎

 

Vote positif 0 Vote négatif

M

m@tix

XLDnaute Occasionnel

• 13 Février 2012

• #3

Re : Macro pour copier certaines cellules

Bonjour JNP,

Merci pour ta réponse si rapide ! 😀 Je me doutais bien que l'on pouvait simplement passer par une "formule", mais vu que je vais être amené à travailler en VBA, j'aurais souhaité avoir une solution par macro, même si je suis entièrement d'accord que ce n'est pas nécessaire dans un cas comme celui que j'ai présenté.

As-tu tout de même une solution à me proposer ? 🙄

Edit: de plus, avec cette formule, j'ai bien ce que je souhaite, mais en colonnes C et D, et non A et B..

 

Dernière édition: 13 Février 2012

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 13 Février 2012

• #4

Re : Macro pour copier certaines cellules

Re 🙂,

m@tix à dit:

Je me doutais bien que l'on pouvait simplement passer par une "formule", mais vu que je vais être amené à travailler en VBA, j'aurais souhaité avoir une solution par macro, même si je suis entièrement d'accord que ce n'est pas nécessaire dans un cas comme celui que j'ai présenté.

As-tu tout de même une solution à me proposer ? 🙄

Edit: de plus, avec cette formule, j'ai bien ce que je souhaite, mais en colonnes C et D, et non A et B..

Cliquez pour agrandir...

Sachant qu'il suffit de copier/collage spécial valeur des colonnes CD sur AB, je te sugérrerais d'utiliser l'enregistreur de macro en utilisant les formules, et tu pourras ensuite améliorer la macro obtenue 🙄...
Si tu dois être amené à travailler en VBA, ce sera plus formateur si tu crées ta propre macro que si je te la donne clef en main, non 😛 ?
Essaie, et si tu n'y arrives pas, reviens vers nous 😉.
Bon courage 😎

 

Vote positif 0 Vote négatif

M

m@tix

XLDnaute Occasionnel

• 13 Février 2012

• #5

Re : Macro pour copier certaines cellules

Je viens de tester avec l'enregistreur de macro, cela me donne les lignes de code suivantes :

Code:

ActiveCell.FormulaR1C1 = "=IF(RC[-2]="""",R[-1]C,RC[-2])"
Selection.AutoFill Destination:=Range("C2:C15"), Type:=xlFillDefault
Range("C2:C15").Select

Ça ne me plaît pas beaucoup.. 🙁

Dans mon idée, je pensais à un algorithme de ce type :

Si une cellule n'est pas vide alors
On copie son contenu
Tant que la cellule suivante sur la même colonne est vide, on colle le contenu du presse-papier

Non ? 🙂

 

Dernière édition: 13 Février 2012

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 13 Février 2012

• #6

Re : Macro pour copier certaines cellules

Re 🙂,
Tester toutes les cellules sera beaucoup plus long 🙄...
A plus 😎

 

Vote positif 0 Vote négatif

M

m@tix

XLDnaute Occasionnel

• 13 Février 2012

• #7

Re : Macro pour copier certaines cellules

Ok, ok, je n'insiste pas ! 😉 Merci pour ton aide.

Bonne soirée ! 🙂

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 14 Février 2012

• #8

Re : Macro pour copier certaines cellules

Bonsoir,

Bonsoir, JN 😀

Ainsi? :

Code:

Sub Macro1()
With Range("A2:B" & Cells(Rows.Count, 1).End(xlUp).Row)
    .SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
    .Value = .Value
End With
End Sub

Peut-être....

Bonne nuit

 

Vote positif 0 Vote négatif

M

m@tix

XLDnaute Occasionnel

• 14 Février 2012

• #9

Re : Macro pour copier certaines cellules

Merci ! 😉

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 14 Février 2012

• #10

Re : Macro pour copier certaines cellules

Re 🙂,

bhbh à dit:

Bonsoir, JN 😀

Cliquez pour agrandir...

Juste pour le plaisir de saluer l'ami Hubert 😉.
Pas trop froid la métropole 😛 ?...
Bonne journée 😎

 

Vote positif 0 Vote négatif