Macro qui copie des cellules avec des sauts

[Sophie11]

Bonjour à tous 🙂

Je souhaiterais copier des cellules avec des sauts (A1=X, A31=Y, A61=Z etc...) et je en sais pas du tout comment developper une telle macro.

Je vous expose ci-dessous mon exemple :

A1=X et B1=01/03/10
A2=vide et B2=02/03/10
...
A30=vide et B30=30/03/10

A31=Y et B31=01/03/10
A32=vide et B32=02/03/10
...
A60=vide et B60=30/03/10
et ainsi de suite jusque A5000

Mon problème c'est comment remplir A2:A30 (cad les cellules vide) par la valeur X (de A1), mais aussi remplir A31:A60 par la valeur Y (A31) et ainsi de suite...
Mon grand souci c'est qu'il y a des sauts (A1=X, A31=Y, A61=Z etc...) et ca je sais pas faire 😕

merci d'avance pour vos lumieres 😛😛

 

[Paritec]

Re : Macro qui copie des cellules avec des sauts

Bonjour Sophie le forum
si tu nous faisais un petit exemple de ce que tu veux a la finale
je pense que c'est pas compliqué mais il faut bien comprendre ton truc
le pas c'est 30 si j'ai bien compris donc, et pour X Y Z et après c'est quoi ? AA AB etc ??
a+
un petit fichier exemple et on te fera cela sans soucis
a+
papou 🙂

 

[Staple1600]

Re : Macro qui copie des cellules avec des sauts

Bonsoir Sophie11

Voici une solution

Sub a()
Dim r As Range, vide As Range
Set r = Range("A2:A" & [B65536].End(xlUp).Row)
Set vide = r.SpecialCells(xlCellTypeBlanks)
vide.FormulaR1C1 = "=R[-1]C1"
With r
.Value = .Value
End With
End Sub

Paritec
maintenant tu sais de quoi ,il retourne 😉

 

[Sophie11]

Re : Macro qui copie des cellules avec des sauts

Merci!! ca fonctionne pour mon exemple...
Mais j'ai un souci en fait ma date est colone D
et en colonne B et C, j'ai des valeurs à copier comme pour la colonne A.

Je pense pouvoir adapter le code mais je suis trop nulle 🙁(

 

[Staple1600]

Re : Macro qui copie des cellules avec des sauts

Re


Ton fichier n'est pas passé.

edition
voir mon dernier message (celui de 20h44)

 

[Sophie11]

Re : Macro qui copie des cellules avec des sauts

ci-joint un exemple.. mais je pense que vous avez compris vu le code plus haut...

 

[Staple1600]

Re : Macro qui copie des cellules avec des sauts

Re


Voici le code modifié pour ta PJ
(modifications en rouge)

Sub a_modif()
Dim r As Range, vide As Range
Set r = Range("A2:[COLOR=Red]C[/COLOR]" & [D65536].End(xlUp).Row)
Set vide = r.SpecialCells(xlCellTypeBlanks)
vide.FormulaR1C1 = "[COLOR=Red]=R[-1]C[/COLOR]"
With r
.Value = .Value
End With
End Sub

Je te laisse tester (mais je sais que cela sera OK)

 

[Sophie11]

Re : Macro qui copie des cellules avec des sauts

GENIAL !!!!!!!!!!!!

merciiiiiiiiiiiiiiii 🙂