Inversion de cellules sous condition

[man95]

Bonjour à vous tous,

Je viens vers vous afin de savoir s'il est possible dans un tableau ( B3:G40) d'inverser les valeurs de deux cellules (B & G) sous une certaine condition. Afin d'être plus clair je vous joins un fichier exemple de ce que je souhaite effectuer.

Je vous remercie pour toutes les solutions que vous pourrez m'apporter.

Manu

 

[dra72]

Re : Inversion de cellules sous condition

Bonjour Man95 et à tous,

Je te propose cette solution en VBA:

Public Sub Inversion()

Dim R As Range
Dim Cell As Range
Dim X As String

Set R = Range("C4:C" & Range("C65536").End(xlUp).Row)

For Each Cell In R
  If Left(Cell, 9) = "CAC PA QC" And Left(Cell.Offset(0, 4), 7) = "CAC PA " Then
    X = Cell
    Cell = Cell.Offset(0, 4)
    Cell.Offset(0, 4) = X
  End If
Next

End Sub

Bonne journée.

 

[man95]

Re : Inversion de cellules sous condition

Bonjour dra72,

Merci pour ta réponse rapide et surtout pour ce petit bout de code qui me va parfaitement.

Manu