recopier miroir

[Rick@]

Bonjour,

J'ai à recopier des zones de cellules de façon à ce qu'elles soit inversée... Comme un miroir le ferait. Voir fichier joint.

Merci pour votre aide.

 

[Victor21]

Re : recopier miroir

Bonjour.

Essayez en A14, à recopier vers le bas :

=DECALER(A$13;13-LIGNE(); )

 

[Grand Chaman Excel]

Re : recopier miroir

Bonjour Rick, Victor,

Une proposition par macro qui inverse lignes et colonnes :

Sub CopieMiroir()
    Dim rg As Range, rgDest As Range
    Dim B() As Variant
    
    Set rg = Application.InputBox("Sélectionner les cellules à copier", , , , , , , 8)
    Set rgDest = Application.InputBox("Sélectionner la cellule de destination", , , , , , , 8)
    
    ReDim B(1 To rg.Rows.Count, 1 To rg.Columns.Count)
    For i = 1 To UBound(B, 1)
        For j = 1 To UBound(B, 2)
            B(i, j) = rg.Cells(rg.Rows.Count - i + 1, rg.Columns.Count - j + 1).Value
        Next j
    Next i
    rgDest.Resize(UBound(B, 1), UBound(B, 2)) = B

End Sub

A+

 

[Rick@]

Re : recopier miroir

Merci un mois plus tard à vous deux pour les solutions. Désolé pour le retard, veuillez m'en excuser.