Création d'une macro pour compléter un tableau

Version imprimable

12/08/2014, 01h10
bingo65

Création d'une macro pour compléter un tableau

Bonjour,

je sollicite votre aide pour réaliser la macro suivante :
Dans un tableau colonne A, j'ai 3 Noms : A, B et C
Colonne B, J'ai une ou plusieurs activités affectées à chacun : a,b;c;d...
A (en colonne A) >>> activité a (en colonne B)
cellule vide (en colonne A) >>> activité b (en colonne B)
cellule vide >>> activité c
Ligne vide
B >>> activité c
cellule vide >>> activité a
Ligne vide
C >>> activité b
Comment à partir d'une macro faire apparaitre le nom de chacun en face de l'activité (quand il n'apparait pas en colonne A) ?

Merci pour votre aide
(désolé pour cette formulation, je suis novice)

Bonsoir Bingo, bonsoir le forum,

Peut-être comme ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Macro1()
Dim O As Object 'déclare la variable O (Onglet)
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)
Dim PL As Range 'déclare la variable PL (PLage)
Dim CEL As Range 'déclare la variable CEL (CELlule)
 
Set O = Sheets("Feuil1") 'définit l'onglet O
DL = O.Cells(Application.Rows.Count, 2).End(xlUp).Row 'définit la dernière ligne éditée DL de la colonne 2 (=B) de l'onglet O
Set PL = Range("A1:A" & DL) 'définit la plage PL
For Each CEL In PL 'boucle sur toutes les cellules CEL de la plage PL
    If CEL.Value = "" Then CEL.Value = CEL.Offset(-1, 0).Value 'si la cellule est vide, prend la valeur de la cellule au-dessus
Next CEL 'prochaine cellule de la boucle
End Sub

Bonjour,

Thautheme, ton code s'avère pas mal du tout, j'ai cependant une petite réserve (je dis ça de tête, arrête moi si je me trompe)

Je n'ai pas pu tester, mais j'ai bien l'impression qu'il ne prend pas en compte les lignes vides, qu'il y a entre chacun des noms.

Peut être qu'en modifiant légèrement ta boucle :
Code:

1 2 3 For Each CEL In PL 'boucle sur toutes les cellules CEL de la plage PL If CEL.Value = "" And CEL.Offset(0, 1).value <> "" Then CEL.Value = CEL.Offset(-1, 0).Value 'si la cellule en colonne A est vide et que celle en colonne B ne l'est pas, prend la valeur de la cellule au-dessus Next CEL 'prochaine cellule de la boucle
Comme ceci ?

Cordialement,
Nico

12/08/2014, 09h31
bingo65

Merci Thautheme et Nico

1 Grand Merci à tous les 2 pour vos réponses, ça marche
Vous êtes très forts !
Bonne journée à vous

Bonjour,

Une autre façon parmi tant d'autres :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
Sub Test()
 
    Dim Plage As Range
    Dim I As Long
    Dim Cel As Range
 
    With Worksheets("Feuil1")
 
           Set Plage = .Range(.Cells(1, 1), _
                        .Cells(.Cells.Find("*", .[A1], -4123, , _
                        1, 2).Row, .Cells.Find("*", .[A1], -4123, , _
                        2, 2).Column))
 
    End With
 
    For I = Plage.Columns(1).Cells.Count To 1 Step -1
 
        With Plage.Columns(1)
 
            If .Cells(I, 1).Value <> "" Then
 
                .Cells(I, 1).AutoFill Range(.Cells(I, 1), .Cells(I, 1).Offset(2, 0))
 
            End If
 
        End With
 
    Next I
 
End Sub

Hervé.

12/08/2014, 14h22
bingo65

Merci Theze

C'est un métier !
Il va me falloir bosser pour arriver à tout ça...
Merci Theze