Coipe d'une case à une autre automatisé

[hestiahv]

Bonjour à tous,

J'aimerais savoir si quelqu'un pourrais m'aider.

Bien identifié dans mon fichier, j'ai des données pré-établie que j'aimerais automatisé.

La case B1 détient une donnée exemple 3334455, j'aimerais transcrire cette dernière en i SI une donnée est entré dans la case A d'une ligne4 en y ajoutant BLK1A en avant exemple BLK1A3334455

La case B2 détient une donnée exemple richard, j'aimerais transcrire cette dernière en F SI une donnée est entré dans la case A d'une ligne4 en y ajoutant 6618 après exemple richard6618

SI donnée est détecté en A ecrire WORK en H

Ceci à l'air compliqué mais bien identifié dans mon fichier

 

[hestiahv]

Re : Coipe d'une case à une autre automatisé

Bonsoir,

Ça va être beaucoup plus claire comme ça:

plage: (F4:F193)
SI :2H ou 3T etc........

Terme à ajouter: 6618

Désolé

 

[hestiahv]

Re : Coipe d'une case à une autre automatisé

Désolé FredOo,

Je ne savais pas que je devais enregistré les changement du code pour l'appliquer....

Merci de votre support.........

Parfait ça fonctionne

Merci

 

[Fred0o]

Re : Coipe d'une case à une autre automatisé

Re-bonsoir,

Le code modifié comme ceci devrait fonctionner :

Public First
Private Sub Worksheet_Change(ByVal Target As Range)
    If IsEmpty(First) Then First = True
    If Not Intersect(Target,[COLOR=black] [A1:Z500][/COLOR]) Is Nothing And First And Target.Cells.Count = 1 Then
        If Target.Value = "2h" Or Target.Value = "3t" Or Target.Value = "7b" Then
            First = False
            Target.Value = Target.Value & "[COLOR=green]6618[/COLOR]"
        End If
    End If
    First = Empty
End Sub

A+