XL 2010 Déplacer une valeur cellule dans une autre SI

[ExcelDow]

Bonjour à tous,
Alors, j'ai pas encore trouvé ce que je cherche, et m'adresse à vous pour un petit coup de main, s'il vous plaît.

En fait, j'aimerais déplacer une valeur dans une autre cellule SI j'ai le mot "Remboursé" en colonne B
Voir mon classeur

Merci

A+++

 

[vgendron]

Hello
avec ce programme à mettre dans le code de la feuille concernée

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Columns(2)) Is Nothing Then
    If (Target = "Remboursé") and (target.offset(0,1)<>""  Then
        Target.Offset(0, 2) = Target.Offset(0, 1)
        Target.Offset(0, 1).ClearContents
    End If
End If
End Sub

la macro se lancera à chaque fois que tu selectionnes une cellule de la colonne B
il faut donc cliquer sur toutes les cellules de ta colonne B
ensuite. à chaque nouvelle ligne, ca se fera tout seul

 

[ExcelDow]

Ho super, merci beaucoup, ca fonctionne
Juste une autre question s'il te plaît;
Si je change par un autre nom dans la colonne B, il serais bien je pense que le montant reste dans la colonne C
Qu'en pense tu ??
A+++ merci

 

[vgendron]

Re
Si j'ai bien compris

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns(2)) Is Nothing Then
    If Target = "Remboursé" And Target.Offset(0, 1) <> "" Then
        Target.Offset(0, 2) = Target.Offset(0, 1)
        Target.Offset(0, 1).ClearContents
    ElseIf (Target <> "Remboursé") And Target.Offset(0, 2) <> "" Then
        Target.Offset(0, 1) = Target.Offset(0, 2)
        Target.Offset(0, 2).ClearContents
    End If
End If
End Sub

Note: je n'utilise plus l'évènement selectionChange, mais l'évènement Change..
ce qui évite de reselectionner la cellule une fois qu'elle a été modifiée.

 

[ExcelDow]

Bonjour vgendron,
C'est super, oui, exactement ca.
Merci beaucoup vgendron
A+++++ et merci