Discussion :

[bingo65]

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)

[Thautheme]

Bonsoir Bingo, bonsoir le forum,

Peut-être comme ça :

Code :

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

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

[Nico Chg]

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 :

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

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

[bingo65]

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

[Theze]

Bonjour,

Une autre façon parmi tant d'autres :

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
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é.

[bingo65]

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