Aide sur les macros Excel pour recopie auto de données

Version imprimable

14/11/2005, 17h33
nicoduhavre

Aide sur les macros Excel pour recopie auto de données

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

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

Code:

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.

14/11/2005, 17h50
nicoduhavre

Merci beaucoup de ton aide, ça fonctionne parfaitement.
14/11/2005, 17h59
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" !
15/11/2005, 08h38
nicoduhavre

oui bien compris merci encore, je click