Macro pour copier certaines cellules

[m@tix]

Bonjour,

A partir de l’exemple sur le fichier joint, je cherche à dupliquer (via une macro) les données présentes sur les colonnes A et B dans les cellules vides présentes immédiatement en-dessous.
Concrètement, dans le fichier joint, il faudrait que A2 et A3 contiennent 4567, B2 et B3 aaaaa. De même, A5 doit contenir 456/64 et B5 bbbb, etc., quelque soit la taille des colonnes.
Pourriez-vous me proposer une solution svp ?

Merci d’avance.

 

[JNP]

Re : Macro pour copier certaines cellules

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

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

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

 

[m@tix]

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..

 

[JNP]

Re : Macro pour copier certaines cellules

Re 🙂,

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..

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 😎

 

[m@tix]

Re : Macro pour copier certaines cellules

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

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 ? 🙂

 

[JNP]

Re : Macro pour copier certaines cellules

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

 

[m@tix]

Re : Macro pour copier certaines cellules

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

Bonne soirée ! 🙂

 

[Cousinhub]

Re : Macro pour copier certaines cellules

Bonsoir,

Bonsoir, JN 😀

Ainsi? :

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

 

[m@tix]

Re : Macro pour copier certaines cellules

Merci ! 😉

 

[JNP]

Re : Macro pour copier certaines cellules

Re 🙂,

Bonsoir, JN 😀

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