Discussion :

[Aladin_23]

Bonjour le forum
J' ai commencé une macro qui fonctionne pour la recopie de donnée jusqu' à la premiere ligne non vide, mais je n' arrive pas à la transformer afin qu' elle balaye la colonne et refasse cette copie en répétitif.
Ci joint la macro et une image qui permettra de mieux comprendre ce que j' aimerais réalisé.

Code :

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

1
2
3
4
5
6
7
8
9
Sub Recopie()
Dim cell As Variant
    Range([B3], [B65536].End(xlUp)).Select
    For Each cell In Selection
        If cell.Value = "" Then
            cell.Value = cell.Offset(-1, 0).Value
        End If
    Next cell
 End Sub

Merci d' avance pour toute aide
Aladin

[Daniel.C]

Bonjour,

Essaie :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Recopie()
    Dim Res As Variant, C As Range
    For Each C In Range([D3], Cells(Rows.Count, 4).End(xlUp))
        If C.Offset(, -3) <> "" Then
            Res = C.Value
        Else
            C.Offset(, -3) = Res
        End If
    Next C
End Sub

[edit] je suis parti de l'idée que "RecordingId" était en A1. Si ce n'est pas le cas, adapte la macro.

[EngueEngue]

Mal expliqué...

[Aladin_23]

Bonjour le forum
Merci Daniel pour ta réponse, j' ai un blocage sur cette ligne

Code :

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

If C.Offset(, -3) <> "" Then

Pour EngueEngue, Comment mal expliqué as tu regardé l' image, il dit de recopie 328 jusqu' a la premiere ligne vide en considerant qu' il y a un seul 328 et ensuite de reprendre 329 et de faire pareil
Encore une autre explication
Dans la colonne B
En parcourant la colonne chaque chiffre trouvé est recopie jusqu' a la premiere ligne non vide

Aladin

[SfJ5Rpw8]

Bonjour, Aladin,

toujours pas clair le besoin même en regardant l'image ...

afin qu' elle balaye la colonne et refasse cette copie en répétitif.

cela veut dire quoi "en répétitif" ?

ton code ne doit-il pas être exécuté qu'une seule fois sur ta colonne B ?

comment t'arrête-tu pour le "chiffre" le plus bas ?

[Aladin_23]

Bonjour bbil et le forum
Possible que cela ne soit pas clair clair je vais essayer de répondre à tes questions ,

1) En mettant répétitif , c' est juste pour la copie
2) Le code est exécuté une seule fois
3) comment t'arrête-tu pour le "chiffre" le plus bas ? Je n' y avais pas pensé car je m' étais focalisé sur la colonne B

Voila une autre explication qui j' esperer sera plus clair


1) Colonne B - Cellule B5 Chiffre 328

Entre le cellule B5 et la cellule B10 les autres sont vides

la cellule B11 est occupé par le chiffre 329

on copie le chiffre 328 de B5 jusqu' a B10

2) On passe à B11 et on copie 329 juqu' a la dernierer ligne rempli de la colonne E

Aladin

[Daniel.C]

Si "Recording ID" est en colonne B :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Recopie()
    Dim Res As Variant, C As Range
    For Each C In Range([E3], Cells(Rows.Count, 5).End(xlUp))
        If C.Offset(, -3) <> "" Then
            Res = C.Value
        Else
            C.Offset(, -3) = Res
        End If
    Next C
End Sub