recopier lignes

[Roll]

Bonjour tout le monde,

j'ai un fichier qui se trouve dans l'onglet "base" du fichier ci-joint.
Je voudrais que chaque case, si elle est vide, contienne la valeur de la case supérieure.
Comment faire?
Est-ce possible sans macro car je n'y connais pas grand chose.
Pour info, le fichier de base contient environ 26000 lignes.

Merci pur votre aide.

 

[did85]

Re : recopier lignes

Bonjour,

je ne comprends pas la finalité de l'exercice.

tu souhaites recopier sur la feuille "finale", les valeurs contenues dans la feuille "base" mais sans les espaces ?

Il faut combler les espaces par la ligne du dessus, dans le cas où l'on a une ligne vide de rencontrée ?

 

[abcd]

Re : recopier lignes

Bonjour,

A3 : =SI(base!A3="";A2;base!A3)
formule à copier vers la droite et la ligne vers le bas.

abcd

 

[Roll]

Re : recopier lignes

Bonjour abc,

j'avais pas pensé à quelque chose de plus compliqué.(arrffff)
did85: Le but final est de pouvoir importer cette base de donnée dans access.

Merci à vous deux: si j'ai des soucis, je reviendrai vers vous.

 

[excalibur]

Re : recopier lignes

bonjour tous une version par macro

Sub Recopie()
Dim x As Long, y As Long
Application.ScreenUpdating = False
For x = 1 To Cells.Find("*", , , , , xlPrevious).Row'ou nb.. ligne ex 1 to 100
For y = 1 To Cells.Find("*", , , , , xlPrevious).Column'idem pour col..
If Cells(x, y) = "" Then Cells(x, y) = Cells(x - 1, y)
Next y: Next x
End Sub