RESOLU point virgule

[Mitch]

Bonsoir j'aimerais si c'est possible qu'un point virgule s'ajoute a la fin de mon mot uniquement quand j' écrit dans la cellule suivante
EX : cellule B2 = Lundi
si j' écrit MARDI EN C2 ,B2 devient Lundi;
Merci

 

[tototiti2008]

Re : point virgule

Bonjour Mitch,

à tester dans le code de la feuille concernée

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column > 1 Then
        If Target.Offset(0, -1).Value <> "" Then
            If Right(Target.Offset(0, -1).Value, 1) <> ";" Then Target.Offset(0, -1).Value = Target.Offset(0, -1).Value & ";"
        End If
    End If
End Sub

Comme tu n'as pas précisé, ça s'appliquera partout dans la feuille

 

[R@chid]

Re : point virgule

Bonjour,
Pas sur que c'est ce que tu cherches, en B2 :

="Lundi"&SI(C2="";"";";")

Amicalement

 

[Mitch]

Re : point virgule

Merci tototiti2008 c'est ça mais juste les cellules B2 à H100

 

[tototiti2008]

Re : point virgule

Bonjour Mitch, Bonjour Rachid, 🙂

ajoute la ligne là en début de procédure

If application.intersect(Target, range("B2:H100") is nothing then exit sub

 

[Mitch]

Re : point virgule

Je vous remercie a tous les deux pour votre aide
En vous souhaitant une bonne journée
j'ai etait trop vite j'ai une erreur : Erreur de compilation: Attendu : separateur de liste ou)

 

[Mitch]

Re : point virgule

Bonjour je revient vers vous car j'ai ajouter la ligne au debut mais ça ne change rien , la macro s'applique a toute la feuille
quelqu'un peut m'aider
Merci

 

[Pierrot93]

Re : point virgule

Bonjour,

donne peut être le code utilisé qui pose problème....

bonne journée
@+

 

[Mitch]

Re : point virgule

Bonjour Pierrot93 le code est celui de tototiti2008 que je remercie au passage

Private Sub Worksheet_Change(ByVal Target As Range)
If application.intersect(Target, range("B2:H100")) is nothing then exit sub
If Target.Column > 1 Then
If Target.Offset(0, -1).Value <> "" Then
If Right(Target.Offset(0, -1).Value, 1) <> ";" Then Target.Offset(0, -1).Value = Target.Offset(0, -1).Value & ";"
End If
End If
End Sub

 

[Pierrot93]

Re : point virgule

Re,

avec le code que tu viens de donner, si modification hors de la plage "range("B2:H100")" sort de la procédure et donc sans effet....

 

[tototiti2008]

Re : point virgule

Bonjour Mitch, bonjour Pierrot 😉

Mais comme le code modifie la cellule de gauche de celle où on saisit, il est possible que ça modifie des cellules en colonne A
C'est ça qui te pose soucis ?

 

[Pierrot93]

Re : point virgule

Re, bonjour toto🙂

peut être interrompre les procédures événementielles pour éviter que cela boucle :

Application.EnableEvents = False
'ton code
Application.EnableEvents = True

 

[tototiti2008]

Re : point virgule

Re,

Tu as raison, au début je trouvais ça rigolo qu'il ajoute des ";" sur toute la ligne mais ce n'est pas propre
Ceci dit, si la colonne A est remplie, même en évitant les boucles avec EnableEvents il ajoutera un ";" en colonne A

Peut-être comme ça, en intégrant ta proposition

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column > 1 Then
If application.intersect(Target.offset(0,-1), range("B2:H100")) is nothing then exit sub
        If Target.Offset(0, -1).Value <> "" Then
application.enableevents = false
            If Right(Target.Offset(0, -1).Value, 1) <> ";" Then  Target.Offset(0, -1).Value = Target.Offset(0, -1).Value & ";"
application.enableevents = true
        End If
    End If
End Sub

 

[Mitch]

Re : point virgule

Bonjour tototiti oui c'est ça , les cellules en colonne A ce retrouvent avec le point virgule
Ouf : vous trouvez la solution avant que je puisse repondre , ça marche je vous remercie et vous souhaite une bonne journée