Copier des cellules vides d'un tableau

[benlou]

Bonjour,

j’aimerai savoir si quelqu’un a une formule ou si une macro est possible pour copier les lignes vides de mon tableau (je les ai mises en jaune) avec la valeur du dessus sachant que cela doit marcher quelque soit la ligne car lorsque je sors mon tableau sort les lignes vides ne sont pas toujours au même endroit.

Par avance merci pour votre aide.

ESSAI.xlsm (10,3 Ko)

[Jacquinot_WILL-FREAD]

Bonjour,
Avec la colonne G ou non ?
Will-Fread

[benlou]

Non pas besoin de la colonne G

[Jacquinot_WILL-FREAD]

Re,
J’ai encore une question :
1-Vous voulez copier comme ceci :

ou bien
2-une copie de la ligne vide dans une nouvelle feuille (cela ne vous affichera rien car les lignes sont vides)
Cordialement

[benlou]

comme le 1)
merci d’avance

[Jacquinot_WILL-FREAD]

Re,
Si la colonne cellule F35 est remplie:

1-Clique sur une cellule du tableau exemple A1
2-**CTRL + *** ou CTRL + A (Tous sélectionnés)
3-CTRL +T ou F5 (Atteindre)
4-Cliquer sur le bouton Cellules (bas gauche)
5- Cellules vides
6- CTRL + C
ESSAI (1).xlsm (14,4 Ko)

Bien cordialement

[Jacquinot_WILL-FREAD]

Avec une macro cela fait :

Sub copier()
Range("A1").CurrentRegion.Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.Copy
End Sub

[benlou]

Cela ne me fait que copier les cellules vides mais je n’ai rien qui se remplit ?

[Jacquinot_WILL-FREAD]

J’ai peut être mal compris,

@benlou

copier les lignes vides de mon tableau

c’est fait

@benlou

je n’ai rien qui se remplit ?

Qu’est ce qui doit être remplit ? Les cellules vides ?

@benlou

copier les lignes vides de mon tableau (je les ai mises en jaune) avec la valeur du dessus

Vous voulez écraser les lignes vides avec la ligne du dessus ou bien remplir les lignes vides avec les lignes du dessus ?

[benlou]

Je me suis peut être mal exprimé aussi.
Ce que je voudrai c est copier dans les cellules vides celles du dessus tout en prenant en compte que si on fait avec une formule les cellules vides changeront de lignes lorsque je sortirai mon prochain état et donc tableau

[Jacquinot_WILL-FREAD]

Ces codes remplissent vos cellules vides à partir des cellules qui sont en dessus d’eux :

Sub copier()
Dim a As Integer, b As Integer
'Range("A1").CurrentRegion.Select
a = Selection.SpecialCells(xlCellTypeLastCell).Row
Range("A1").Select
For a = 0 To a - 1
If ActiveCell.Offset(0, 0) = "" Then
For b = 0 To 5
ActiveCell.Offset(0, b) = ActiveCell.Offset(-1, b)
Next
End If
ActiveCell.Offset(1, 0).Select
Next
End Sub

ESSAI (1).xlsm (24,1 Ko)
Cordialement