Macro a modifier

Bonjour le forum

Voici cette macro à modifier

car a chaque inversion de colonnes, les colonnes de droite se décalent.

https://www.excel-pratique.com/~files/doc/mKoePClasseur4.xls

Merci d'avance

Cordialement

Gabinos

Bonjour

gabinos a écrit :

car a chaque inversion de colonnes, les colonnes de droite se décalent.

Pas très clair !

D'après ce que je comprends, essaye :

Sub inverse()
For i = 1 To 9
Range("B" & i) = Range("A" & 9 - (i - 1))
Next
Range("B1:B9").Copy Destination:=Range("A1")
Range("B1:B9").ClearContents
End Sub

Amicalement

Nad

Merci Nad

C'est parfait;

Une autre question

Avec plusieurs colonnes "ex 20" quel serait la modif à faire

Merci Nad

Re

Encore une fois, pas très clair.

Peux-tu envoyer un fichier représentatif en expliquant ce que tu veux y faire.

Nad

suite

Voici un exemple demander

l'exemple a 4 colonnes mais je changerais après

la macro actuel n'inverse que la colonne E

il me faudrait inverser l'ensemble des colonnes

Re

Sub inverse()
Dim NbLig As Integer, i As Integer, j As Integer

NbLig = Range("B3:B15").Rows.Count

For i = 1 To NbLig
For j = 1 To 4 '4 = le nombre de colonnes

'copie des inverses à partir de Z3
Range("Z3").Offset(NbLig - i, j) = Range("B3:B15").Cells(i, j)
Next j
Next i

'On fait un couper-coller du tableau AA3:xx sur B3
Range("AA3").CurrentRegion.Cut Destination:=Range("B3")

End Sub

Amicalement

Nad

Merci Nad

Parfait ça fonctionne nickel

il me reste à mette cela en application avec quelques modifications de ta Macro

Cordialement

Gabinos :bon Week-end à tous