Discussion :

[bchar]

Bonjour,

Je reçois un fichier source ayant en première colonne le sport pratiqué et, en seconde, le nom des adhérents.

Je souhaite récopier le sport pratiqué sur chaque ligne adhérent de manière automatique.

L'inconvénient est que le nombre d'adhérent n'est pas indentique à chaque extraction de ma base de donnée.

Dans le fichier ci joint, le nombre d'adhérent pratiquant le tennis est de 4, mais sur le prochain fichier que je recevrai, celui ci pourra être de 10.

Comment faire pour que le calcul des cellules vide se fasse correctement à chaque fois pour que la recopie du mot tennis se fasse sur chaque cellule vide sans écraser le mot badminton.

[mercatog]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Remplissage()
Dim LastLig As Long, i As Long, j As Long
 
Application.ScreenUpdating = False
With Worksheets("Feuil1")
    LastLig = .Cells(.Rows.Count, "B").End(xlUp).Row
    i = LastLig
    Do While i > 2
        If .Cells(i, 1) = "" Then
            j = .Cells(i, 1).End(xlUp).Row
            .Cells(j, 1).Copy .Cells(j + 1, 1).Resize(i - j)
            i = j
        Else
            i = i - 1
        End If
    Loop
End With
End Sub

[bchar]

Merci pour votre réponse, cela fonctionne.