Macro pour inverser les valeurs des lignes et des colonnes

Bonjour à tous, je cherche une macro capable d'inverser les valeurs de ce qui se trouve dans les lignes et les colonnes. J'arrive à le faire seulement pour une ligne et une colonne. Merci d'avance.

Salut,

Inverser les valeurs ? C'est à dire ?
La valeurs de droites passe à gauche et celle de gauche à droite ? Pareil pou haut et bas ?

Kenji

Eh bien en fait pour prendre un exemple, ce qui se trouve dans la case "1B" doit se retrouver dans la case "2A" et vice versa. Voila le code qui fonctionne mais seulement pour la première ligne et que je souhaiterais étendre à tout le tableau. "Private Sub CommandButton1_Click() Dim temp As String Dim i As Integer For i = 1 To 230 temp = Cells(1, i) Cells(1, i) = Cells(i, 1) Cells(i, 1) = temp Next End Sub"

Eh bien en fait pour prendre un exemple, ce qui se trouve dans la case "1B" doit se retrouver dans la case "2A" et vice versa.
Voila le code qui fonctionne mais seulement pour la première ligne et que je souhaiterais étendre à tout le tableau.

"Private Sub CommandButton1_Click()

Dim temp As String
Dim i As Integer

For i = 1 To 230
temp = Cells(1, i)
Cells(1, i) = Cells(i, 1)
Cells(i, 1) = temp

Next

End Sub"

Salut

1B? Késako? B1?

Tu veux transposer ou je n'ai pas compris
Range("A1").Select
 Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
       Selection.Copy
       Range("A1").End(xlDown).Offset(1, 0).Select
      Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, Transpose:=True
Rows("1:1").Select
       Selection.Delete Shift:=xlUp

Par example.
Ca inverse le tableau B2:K11
B2 va en K11
B3 va en K10
C4 va en J10
...

Public Sub InverserValuers()    Const ColStart As Integer = 2    Const ColEnd As Integer = 11    Const RowStart As Integer = 2    Const RowEnd As Integer = 11    Dim iCol As Integer , iRow As Integer    For iCol = ColStart To ColEnd - CInt ((ColEnd - ColStart) / 2)      For iRow = RowStart To RowEnd - CInt ((RowEnd - RowStart) / 2)        Dim TargetCol As Integer : TargetCol = (ColEnd + ColStart) - iCol        Dim TargetRow As Integer : TargetRow = (RowEnd + RowStart) - iRow        Dim TempValue As String : TempValue = Cells(iRow, iCol).Value       Cells(iRow, iCol).Value = Cells(TargetRow, TargetCol).Value       Cells(TargetRow, TargetCol).Value = TempValue    Next iRow, iCol End Sub

Kenji

Je ne sais pas mais voici deux captures d'écran qui illustreront ce que je veux faire.

Le première quand j'ouvre mon fichier excel et la deuxième après que j'ai appuyé sur le bouton. Mais cela ne fonctionne que pour la première ligne.

http://www.image-dream.com/image.php?image=28fce0ec51efaea49fb8c9d48274e232.jpg&pseudo=anonym

http://www.image-dream.com/image.php?image=bda9192ac08835adaccd07bb0c133b03.jpg&pseudo=anonym

Petite erreur dans mon code :
Il fallait bien boucler sur toutes les lignes

Public Sub InverserValuers()    Const ColStart As Integer = 2    Const ColEnd As Integer = 11    Const RowStart As Integer = 2    Const RowEnd As Integer = 11    Dim iCol As Integer , iRow As Integer    For iCol = ColStart To ColEnd - CInt ((ColEnd - ColStart) / 2)      For iRow = RowStart To RowEnd        Dim TargetCol As Integer : TargetCol = (ColEnd + ColStart) - iCol        Dim TargetRow As Integer : TargetRow = (RowEnd + RowStart) - iRow        Dim TempValue As String : TempValue = Cells(iRow, iCol).Value       Cells(iRow, iCol).Value = Cells(TargetRow, TargetCol).Value       Cells(TargetRow, TargetCol).Value = TempValue    Next iRow, iCol End Sub

Kenji

Ha ok,
Et faut t-il changer les valeurs du contenu ?

Kenji

Non les valeurs doivent juste changer de place. En fait j'ai un fichier excel qu'il m'est beaucoup plus pratique de construire en lignes mais que je veux exporter ensuite vers un autre logiciel qui n'accepte que les colonnes.