XL 2010 resolu

[pilou21]

bonjour a tous et bravo pour le forum

voila mon soucis qui me parait insurmontable .je souhaite dans la colonne A remplir les lignes vides par la cellules du dessus qui commence par cv .le problème est que la cellule ou se trouve cv peu se trouver 1 . 2 ou 3 lignes au dessus .
je joint un fichier qui explira certainement mieux mon besoin

merci de l aide cordialement

 

[Chris401]

Re : remplir cell vide avec la ligne du dessus qui contitent le texte cv au debut

Bonjour et bienvenue

Peux-tu essayer :

Sub Rempli()
derlg = Range("A65536").End(xlUp).Row
    For i = 2 To derlg
        If Cells(i, 1) = "" Then
            For j = i - 1 To 1 Step -1
                If Left(Cells(j, 1), 2) = "cv" Then
                Cells(i, 1) = Cells(j, 1).Value: Exit For
                End If
            Next j
        End If
    Next i
End Sub

Cordialement
Chris

 

[CISCO]

Re : remplir cell vide avec la ligne du dessus qui contitent le texte cv au debut

Bonjour

Tu dois pouvoir faire avec quelque chose du genre

Sub essai()
Dim dernièrelig As Integer, i As Integer
Dim stock As String

dernièrelig = Range("A1048576").End(xlUp).Row
For i = 1 To dernièrelig
If Left(Cells(i, "A"), 2) = "cv" Then stock = Cells(i, "A")
If Cells(i, "A") = "" Then Cells(i, "A") = stock
Next i
End Sub

@ plus

P.S : Bonjour Chris401

 

[pilou21]

Re : remplir cell vide avec la ligne du dessus qui contitent le texte cv au debut

merci les deux sont ok j 'adapte tous sa a mon fichier encore un grand merci a vous deux