Discussion :

[stevenP]

Bonjour,

Je dois créer une macro excel (mais étant débutant dans le domaine) permettant de swaper 2 colonnes dans une liste de données.

En gros j'ai une liste (de longueur variable) contenant 11 Colonnes.

Je dois tester si
- La valeur (texte) de la colonne 4 est égal à "X" ou "Y"
- et si la colonne 11 n'est pas vide.

=> Dans ce cas, inverser la colonne 4 et 11 ; sinon rien faire.

Mais je suis bloqué..

Merci d'avance de votre aide !

[Philippe Tulliez]

Bonjour,
Je suppose que tu parles de tester des cellules se trouvant dans les colonnes 4 et 11.
Voici un exemple de code qui compare de la ligne 2 à la ligne 15 de la feuille Feuil1, si la cellule de la colonne 4 contient C ou M et si la cellule de la colonne 11 de la même ligne est remplie. Si la condition est remplie on fait un SWAP de ces cellules.

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
Option Explicit
Const Text1 As String = "C"
Const Text2 As String = "M"
Const shtName As String = "Feuil1"
Dim sht As Worksheet
Sub SwapValue()
 Dim r As Single, Tampon As String
 Set sht = ThisWorkbook.Worksheets(shtName)
 For r = 2 To 15
  With sht
   If (.Cells(r, 4) = Text1 Or .Cells(r, 4) = Text2) And Len(.Cells(r, 11)) Then
    Tampon = .Cells(r, 4): .Cells(r, 4) = .Cells(r, 11): .Cells(r, 11) = Tampon
   End If
  End With
 Next
End Sub