Discussion :

[Fransoun]

Bonjour à vous tous,

Je me suis inscrit aujourd'hui sur ce forum dans le but d'obtenir des conseils avisés de personnes sachantes et bien aimables pour aider un débutant dans visual Basic.

J'espère ne pas avoir "passé" les règles de base de ce forum en postant ce message, sinon veuillez m'excuser et pourquoi pas, me préciser la bonne démarche.

Je travaille sur un "lourd" document excel (2007) et j'utilise beaucoup de macros, donc VBA. Cela fait peu de temps, d'où mes problèmes.

Plus précisemment, je possède une grande colonne avec des cellules remplies et d'autres vides.

Ce que je souhaiterais réaliser :
On démarre de la première ligne et on descend. Si la cellule est pleine, on passe à la suivante. Si la cellule est vide, on copie le contenu de la cellule supérieure et on le colle dans la cellule vide. Pour le moment j'ai ce code qui ne fonctionne pas ...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim L as integer
Const LigneDebut = 2
Const LigneFin = 1000
     For L = LigneDebut To LigneFin Step 1
             If IsEmpty(Cells(L, 2)) Then 
                     Cells(L - 1, 2).select
                     Selection.copy
                     Cells(L, 2).Select
                     Selection.Paste
             End if
     Next

Quelqu'un pourrait-il me donner un petit coup de main qui me serait grandement utile. Peu importe le code, l'objectif est le résulat

Merci d'avance à vous

[Daniel.C]

Bonjour,

Essaie (pour la colonne A) :

Code :

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

1
2
3
4
5
Sub test()
    For Each c In Range([A2], Cells(Rows.Count, 1).End(xlUp))
        If c.Value = "" Then c.Value = c.Offset(-1).Value
    Next c
End Sub

[papouclo]

Bonjour,
Je pense qu'il y a en en-tête une déclaration de procédure du style
SUB nomprocédure ()
et à la suite du code la ligne
END SUB
Pour modifier le moins possible le code proposé, on peut remplacer
Selection.Paste par ActiveSheet.Paste ce qui donnerait :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Completer()
Dim L As Integer
Const LigneDebut = 2
Const LigneFin = 1000
    For L = LigneDebut To LigneFin Step 1
        If IsEmpty(Cells(L, 2)) Then
            Cells(L - 1, 2).Select
            Selection.Copy
            Cells(L, 2).Select
            ActiveSheet.Paste
        End If
    Next
End Sub

Ca fonctionne mais les spécialistes du VBA (c'est à dire d'autres que moi) conseillent d'éviter les sélections répétées dans une procédure.
On peut donc préférer en modifiant à peine un peu plus.

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Completer()
Dim L As Integer
Const LigneDebut = 2
Const LigneFin = 100
    For L = LigneDebut To LigneFin Step 1
        If IsEmpty(Cells(L, 2)) Then
            Cells(L, 2).Value = Cells(L - 1, 2).Value
        End If
    Next
End Sub

Ah!Pas assez rapide.
Cordialement