Discussion :

[muzele]

Encore une fois bonjour!
Je vais essayer d'expliquer mon souci le plus clairement possible.
J'ai une plage de cellules A10:Z110.
1. La ligne 10 contient différentes formules en différentes colonnes
2. Les données et formules de la ligne 10 ne seront jamais supprimés quelque soit les conditions, donc la ligne 10 a toujours les formules à copier.
3. Une ligne vide ne peut pas exister entre 2 lignes ayant des données. Par exemple la ligne 27 est vide (sans formule ni données), les lignes allant de 28 à 110 seront forcément vides.
4. La colonne A10:A110 ne sont jamais vide
Je voudrais lancer une action qui vérifie si les lignes sont vides (mais à partir de la colonne B, parce que la colonne A n'est jamais vide). Si NON rien ne se passe et on passe à la ligne suivante. Si OUI on copie les formules de la ligne précédente et on passe à la ligne suivante jusqu'à atteindre la ligne 110.
J'ai trouvé des codes ci et là, mais qui copie les formules vers un emplacement (ligne, colonne ou cellule) bien définit à l'avance. Je ne sais l'exploiter parce que je ne sais qu'elle ligne sera vide au préalable.
P.S. Je suis nul en VBA, j'ai l'idée mais j'ai pas pu sortir ne fut-ce qu'une ligne de code. Moi suis plutôt VB6
Merci d'avance!

[Daniel.C]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
Sub test()
    Dim i As Integer, Plage As Range
    For i = 1 To 25
        Set Plage = [A11:A110].Offset(, i)
        If Application.CountA([Plage]) = 0 Then
            Plage.FormulaR1C1 = [A10].Offset(, i).FormulaR1C1
        End If
    Next i
End Sub

[muzele]

Merci Daniel,
D'après ce que je comprend, ce code est censé copier les formules de la cellule A10 sur la plage A11:A110. J'ai voulu testé pour l'améliorer à mon besoin, mais ne fonctionne pas. Un processus se lance mais la formule n'est pas copiée.
Cela ne résout pas mon souci. En pièces jointes mon fichier pour mieux comprendre. Ce que je veux, en partant de mon exemple, c'est copier toutes les formules de la plage A10:Z10 sur la plage A11:Z110 à condition que la ligne soir vide à partir de la colonne B.
Nota: Dans mon classeur en pièces jointes, le code est dans le Module3 - La formule à copier : A16:O16 sur la plage A17:O115.

[Daniel.C]

Je ne sais pas si c'est ce que tu veux, mais la macro suivante recopie les valeurs également (colonne H par exemple) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub test()
    Dim i As Integer, Plage As Range, C As Range
    For i = 16 To 114
        Set Plage = [B1:O1].Offset(i)
        Plage.Select
        If Application.CountA([Plage]) = 0 Then
            For Each C In Plage
            C.FormulaR1C1 = [A16].Offset(, C.Column - 1).FormulaR1C1
            Next C
        End If
    Next i
End Sub

[muzele]

Merci pour ta disponibilité,
Au fait ce n'est pas exactement ce que je veux. Je veux copier juste les formules sans les valeurs. Est-ce possible? Concernant les colonnes H et I qui sont en fait des listes déroulantes, je me demande bien quelle astuces appliquer pour qu'elle soient copiées comme tel (liste).

[Daniel.C]

Il y a peut-être aussi des formats à revoir.

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
Sub test()
    Dim i As Integer, Plage As Range, C As Range
    For i = 16 To 114
        Set Plage = [B1:O1].Offset(i)
        Plage.Select
        If Application.CountA([Plage]) = 0 Then
            For Each C In Plage
                If C.Column = 8 Or C.Column = 9 Then
                    C.Offset(-1).Copy C
                Else
                    C.FormulaR1C1 = [A16].Offset(, C.Column - 1).FormulaR1C1
                End If
            Next C
        End If
    Next i
End Sub