Séparer une chaine de caractère automatiquement

[maval]

Bonjour,

Je me permets de vous transmettre une problématique sur laquelle je bloque.
J'ai un code qui fonctionne très bien qui a était réaliser par ROGER2327 que je remercie au passage, mais je voudrai lui apporter une modif.
J'aimerais que lorsque je rentre une adresse é-mail dans une cellule de la colonne "M" que les colonnes "Q et R" sépare la chaine automatiquement sans passé par le bouton

Ci joint un exemple

Option Explicit

Sub Separateur_Caracteres()
Dim i&, Plg As Range, s(), Tmp
    Set Plg = Range(Cells(2, 13), Cells(Rows.Count, 13).End(xlUp)) '(Cells(2, 13)le 13 correspond a la 13éme colonne ou se trouve la colonne a séparer
    ReDim s(1 To Plg.Count, 1)
    For i = 2 To Plg.Count
        Tmp = Split(Plg(i), "@", 2) ' "@" séparateur
        s(i, 0) = Tmp(0)
        s(i, 1) = Tmp(1)
    Next
    Plg.Offset(0, 4).Resize(, 2).Value = s '(0, 4) le 4 représente 4éme colonne aprés la colonne a séparer
End Sub

Private Sub CommandButton1_Click()
    Separateur_Caracteres
End Sub

Je vous remercie d'avance

Cordialement

Maval

 

[JNP]

Re : Séparer une chaine de caractère automatiquement

Bonjour Maval 🙂,
Voit si ça te convient 😛
A noter qu'un copier/coller de plusieurs cellules ne sera pas pris en compte 🙄
Bonne suite 😎

 

[pedrag31]

Re : Séparer une chaine de caractère automatiquement

Bonjour Maval, Bonjour le forum,

Il faut que tu travailles avec l'évènement "worksheet_change" dans le code de ta feuille.
Non testé.

Private Sub Worksheet_Change(ByVal Target As Range)

'teste si le changement a eu lieu dans la colonne M
Set Test = Application.Intersect(Columns("M:M"), Target)

    If Not Test Is Nothing Then 'si le résultat n'est pas vide
        'ton code de séparation
    End If

End Sub

Bonne journée 🙂

Edit: Bonjour JNP!!

 

[maval]

Re : Séparer une chaine de caractère automatiquement

Bonjour JNP

Je te remercie pour le code Nickel

Je vais me joindre a ta page FaceBook car moi aussi je suis né un 12/12 mais il y a tellement longtemps qu'il faut que je regarde bien mon acte de naissance

Bonne journée

Maval