Discussion :

[nicoduhavre]

Bonjour,
je suis novice avec les macros excel et j'aimerai automatiser un traitement : je récupère une liste de données sous excel, j'aimerai pouvoir recopier les donneés de la cellule au dessus tant que ma cellule est vide et que l'on ne change pas de numéro et cela ainsi de suite jusque la fin du fichier. Je donne un exemple: en colonne A première ligne j'ai un A, et toujours colonne A mais ligne 5 j'ai un B, je voudrais que le A soit recopié dans la colonne A sur les lignes 2, 3 et 4 et ainsi de suite pour les cellules vide de ma colonne. Y aurait il un moyen d'écrire cette macro qui me ferait gagner un temps dingue au lieu de faire des copier coller. Merci d'avance pour votre aide. Nicolas

[Megaxel]

Bon, j'ai écrit ça en vitesse:

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
19
 
Sub CopieLigne()
    Dim DerniereLigne As Integer
    DerniereLigne = Range("D30000").End(xlUp).Row
    Dim Moncontenu As String
    Dim MoncontenuDuDessus As String
 
    MoncontenuDuDessus = ""
 
    For i = 1 To DerniereLigne
        Moncontenu = Cells(i, 4).Value
        If Trim(Moncontenu) = "" Then
            Cells(i, 4).Value = MoncontenuDuDessus
        Else
            MoncontenuDuDessus = Cells(i, 4).Value
        End If
    Next i
 
End Sub

Tu remarques que je m'arrête à la dernière cellule qui contient quelque chose, parce que sinon, je ne sais pas où m'arrêter...
Et dans cet exemple, je m'occupe de la colonne D.

[nicoduhavre]

Merci beaucoup de ton aide, ça fonctionne parfaitement.

[Megaxel]

Si en plus, tu as compris le code que je t'ai envoyé, alors je suis bien content.
Allez, un petit click sur le bouton "Résolu" !

[nicoduhavre]

oui bien compris merci encore, je click