Discussion :

[phil164]

voici à nouveau mon fichier sous .txt (le site ne semble pas accepter les .xls)

MERCI POUR TON AIDE

[ouskel'n'or]

Tu n'as pas Winzip ? Il faut zipper les xls sinon DVP ne les accepte pas. Les txt ne servent à rien pour comprendre ton pb. Si je n'avais pas testé mon code, je ne serais pas aussi affirmatif
A+

[Mytå_Qc]

Salut Oouskel'n'or, Phil et le forum

Juste à titre d'information et pour faire avancer le schmilblick !

Ta cellule A1 contient bien une valeur, elle ne doit pas être vide.

Car comment faire pour remonter d'une ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
...
        If Cell = "" Then
            Valeur = Cell.Offset(-1, 0).Value
            Cell.Value = Valeur
        End If
...

Mytå_Qc

[phil164]

bonjour

non en effet ma cellule A1 est vide le but étant donc de trouver la suivante en colonne A avec une valeur, recopier cette valeur vers le bas jusqu'à rencontert la prochaine et valeur et ainsi de suite ..

voici donc un extrait de mon fichier zippé (je n'avais que du rar d'ou le retard pour ma réponse

je vais essyar de mettre une valeur en A1 (merci pour ton aide)

et je vous dis

A+

[phil164]

j'ai ajouté une valeur en A& et au miracle ça marche


dernier petit détail pour être pénible , comment faire pour qu'une fois arrivé à la dernière valeur elle ne se recopie pas indéfniment vers le bas (inutile) l'idéal étant que ça s'arrette à hauteur de la dernière cellule de la colonne B

merci à tous ceux qui m'ont aidé

[ouskel'n'or]

Mon code fait ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub RecopierDerniereValeurTrouvee()
Dim maVal As Variant, c As Variant, DerLig As Long
Dim FL1 As Worksheet, Plage As Range, Valeur
    Set FL1 = Worksheets("Feuil1")
    DerLig = FL1.Range("B1").SpecialCells(xlCellTypeLastCell).Row
    Set Plage = FL1.Range("B2:B" & DerLig)

Pour corriger le pb rencontré, tu n'avais qu'à corriger la dernière de ces lignes comme l'a si justement signalé Mytå_Qc