Problème simple de Macro

Version imprimable

31/01/2013, 19h58
mzellebullee

1 pièce(s) jointe(s)

Problème simple de Macro
Bonjour,

Je cherche un peu d'aide concernant un fichier (en pièce-jointe).

Je souhaite en effet remplir des cellules (si vides) avec la valeur de la cellule du dessous, mais uniquement si deux autres cellules sont identiques.

J'aurais bien utilisé une macro de ce type :
Code:

1 2 3 4 5 6 Dim cellule As Range For Each cellule In Range("A4:D5220") If cellule.Value = "" Then cellule.Value = cellule.Offset(-1, 0).Value End If Next cellule
Mais je ne sais à quel moment il faut insérer la condition des cellules identiques.

Je ne suis pas sûre d'être claire, donc le plus simple est de donner un exemple de mon fichier...

Comme F7=F8 et F9=F10 :
Pour Mr Christian, je souhaite que les cellules L7:W7 se remplissent automatiquement avec les cellules L8:W8.
Pour Mr Paul, idem je souhaite que les cellules AB9:AU9 se remplissent automatiquement avec les cellules AB10:AU10.

Par contre, il ne doit rien se passer sur la ligne 6 puisque F6 est différent de F7...

Et si en plus (mais vraiment là c'est du bonus pour moi ;) ), les lignes 8 et 10 peuvent être supprimées, ca m'arrange...

Merci beaucoup à celui/celle/ceux qui pourront m'éclairer sur ce sujet, parce que si je dois tout faire à la main j'en ai pour un moment :-(

Bonne soirée à tous!

Maurine

Tente ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub update()
Dim cell_ori As Range
Dim i As Integer
Dim j As Integer
Dim test As Integer
 
With Worksheets("Feuil1")
    Set cell_ori = .Range("F1")
    For i = 0 To .Columns(6).Find("*", , , , xlByColumns, xlPrevious).Row - 1
        If cell_ori.Offset(i, 0) = cell_ori.Offset(i + 1, 0) Then
            test = cell_ori.Offset(i, 0).Row + 1
            For j = 0 To .Cells(test, .Cells.Columns.Count).End(xlToLeft).Column
                If cell_ori.Offset(i, j) = "" Then
                    cell_ori.Offset(i, j) = cell_ori.Offset(i + 1, j)
                End If
            Next j
        End If
    Next i
End With
 
End Sub

Dit moi si cela te convient ! :ccool:

07/02/2013, 16h03
mzellebullee

Génial, merci beaucoup !!! :ccool:

Et désolée d'avoir oublié les balises... Promis je ferai attention la prochaine fois!