copier conditionnel colonne A vers B...

[Fanny]

Bonsoir tout le forum

Débutante, je souhaiterais avoir une aide ponctuelle en macro code vba.

Dans un tableau excel, j'ai 5 colonnes, A, B C D E.
Les colonnes A, D ,E ont des données, les B et C sont vides
En fait je voudrais écrire en VBA:
Dans la colonne "A" : tant que "A" contient "SORTIE"
alors "D" est recopié vers "B"
et "E" recopié vers "C"

et si "A" est différent de "SORTIE"
alors "D" est recopié vers "C"
et "E" recopié vers "B".

ensuite je supprime les colonnes D et E, mais lça je sais faire.. sourire.

Si vous pouviez m'aider, cela me rendrait un grand service.
Merci beaucoup et bonne soirée à tous
Fanny

 

[Robert]

Bonsoir Fanny, bonsoir le forum,

Cette macro devrait te convenir :

Sub Macro1()
Dim cel As Range
For Each cel In Range("A1:A" & Range("A65536").End(xlUp).Row)
If cel.Text = "SORTIE" Then
cel.Offset(0, 3).Copy Destination:=cel.Offset(0, 1)
cel.Offset(0, 4).Copy Destination:=cel.Offset(0, 2)
Else
cel.Offset(0, 3).Copy Destination:=cel.Offset(0, 2)
cel.Offset(0, 4).Copy Destination:=cel.Offset(0, 1)
End If
Next cel
Columns("D:E").ClearContents
End Sub

À plus,

Robert

 

[Fanny]

Re le Forum
Re RObert

Un grand merci à toi, c'est tout à fait ce que je voulais.
Je raisonnais bien, mais n'arivais pas à l'écrire.... VA falloir que j'apprenne mes bases en VBA.

Encore merci à toi et à tout le Forum.
Bonne nuit à tous
Fanny