VBA pour combler des cellules vide (j'arrive pas à être clair)

[BAT]

Bonjour à tous le forum,

Je souhaite faire une macro qui vas combler les trous d'une collone d'un tableau par les valeures contenues au dessous des cellules vides.

😕 Heu je crois pas être compréhensible ! L'exemple illistré le sera plus que moi.

Mon tableau à toujours 7 collones mais le nombre de lignes varient (c'est un TCD à la base). Dans la collone A se trouve des données et des cellules vides. La dernière cellule en A du tableau a toujours la valeure "Total".

En gros je souhaite attribuer aux cellules de la colonne A (comprise entre A1 et la cellule en A qui porte la valeure "Totale") qui sont vides, la valeur de la cellule non vide qui se trouve au dessus d'elle !!! 😱 ahhhhhh c'est pire comme explication ça !!! Bon regardez le fichier ça sera mieux je pense !

Merci d'avance pour vos réponses

 

[skoobi]

Re : VBA pour combler des cellules vide (j'arrive pas à être clair)

Bonjour BAT,

test ce fichier.

A+

 

[BAT]

Re : VBA pour combler des cellules vide (j'arrive pas à être clair)

HOU PUNAISE !!

C'exatement ça !! mais comment ta fait ça avec jeste ce petit bout de code de rien du tout

Sub test()
For Each cellule In Range(Range("a2"), Range("a65536").End(xlUp))
    If cellule <> "" Then
        nouv = cellule.Value
    Else
        cellule.Value = nouv
    End If
Next
End Sub

Un grand merci skoobi !

 

[MJ13]

Re : VBA pour combler des cellules vide (j'arrive pas à être clair)

Bonjour à tous

Et merci à BAT.
C'est un code très intéressant pour les TCDs qu'on recopie et dont on veux refaire un TCD.