Discussion :

[dedam]

Bonjour,

J'ai un double clic souris qui entraine le lancement d'une macro et le copier coller de la valeur de la cellule (données retranscries dans SAP).

Les données se trouve dans un champs dynamique (BDD access que je ne contrôle pas).
Le but de la manoeuvre est de spliter les numéros (encoder dans access dans un seul champ) qui sont séparés pas des ";", des espaces " ", "/", .. pour qu'après le copy, la paset s'effectue avec un saut de ligne.

Je me suis intéressé à ce code (trouvé sur ce forum) mais jke ne parviens pas à l'adpater au double clic souris.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Option Explicit
Sub test3()
Dim Tablo() As String
Dim i As Integer
Dim j As Long, Der As Long
    With Worksheets("Table de Travail")
        Der = .Cells(Rows.Count, "L").End(xlUp).Row
        For j = 3 To Der
            Tablo = Split(.Cells(j, "L").Value, " ")
            For i = 0 To UBound(Tablo)
                Worksheets("Feuil1").Cells(j - 2, i + 1) = Trim(Tablo(i))
            Next i
        Next j
    End With
End Sub

En résumé,

Je veux qu'au double clic, celà copie ma série de numéros et colle avec un saut de ligne. Ceci dans n'importe quelle colonne

Merci pour votre aide,

Damien

[unparia]

Bonjour

mais jke ne parviens pas à l'adpater au double clic souris.

1) Au clic souris sur quoi ? Un clic souris est un évènement et n'intervient que lorsque l'on clique sur un objet (un contrôle) comprenant cet évènement.
2) le code que tu montres (ton éclatement par split) n'éclate que par rapport au caractère espace. Il te faudrait le faire sur chacun des caractères dont tu parles
3) lorsque l'on rajoute ou supprime des lignes, il est impératif de le faire de bas en haut (sinon : croche-pattes garantis dans leur numérotation). Le code que tu montres, d'ailleurs, n'ajoute pas de lignes, mais écrase des lignes existantes.

[dedam]

Hello

- il s'agit d'un double-clic qui fait appel à :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("L:L")) Is Nothing Then
 
   Call macro1
End if
 
End sub

Macro1 fait un selction.copy et lance une procédure (SAP)
Mon but est d'intégrer un split à cette commande.

Un début de solution ?

merci pour ton aide,
Damien

[dedam]

Alors,

J'arrive +/- à avoir ce que je veux en récupérant ce bout de code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub splitNUM()
    Dim Table() As String
    Dim i As Integer

Table = Split(Selection.Value, " ") 'sélection en cours + espace (comment ajouter d'autres séprateurs comme "/" et "-" ?)

    For i = 0 To UBound(Table)
        'Le résultat s'affiche dans la fenêtre d'execution de l'éditeur de macros mais j'aimerai que le résultat soit copier dans le clipboard
        Debug.Print Table(i)
    Next i
End Sub

Merci,
Damien

[unparia]

'sélection en cours + espace (comment ajouter d'autres séprateurs comme "/" et "-" ?)

en remplaçant par exemple par un espace, à tour de rôle, chacun des caractères "/" et "-", avant de faire ton "split" sur les espaces ne te parait pas une bonne idée ?
Pour remplacer : fonction Replace à lire dans l'aide VBA

[Philippe Tulliez]

Bonjour Damien,
Juste pour info. le deuxième argument de la fonction Split est facultatif et prend comme valeur par défaut le caractère espacé
Donc

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Table = Split(Selection.Value, " ")

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Table = Split(Selection.Value)

c'est pareil.

[Marc-L]

Bonjour !

Le but de la manoeuvre est de spliter les numéros (encoder dans access dans un seul champ) qui sont séparés pas des ";", des espaces " ", "/", .. pour qu'après le copy, la paset s'effectue avec un saut de ligne.

Avec un exemple avant / après ce serait définitivement clair …

Sinon en dehors de Split il y a aussi ceci :   Les Expressions Rationnelles appliquées en VBA   …

_________________________________________________________________________________________________________
Je suis Paris, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[dedam]

J'ai dans une cellule (table de donnée d'où mon évèvement sur double clic) dans laquelle peuvent ou non se trouver plusieurs numéro :

Exemple : [41590580 41590581 41590583]

ceci après le double clic :

41590580
41590581
41590583

Et que celà soit copié dans le clipboard.


Avec les conseils de Philippe, que je salue au passage, j'ai donc modifé mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Sub splitNUM()
    Dim Table() As String
 
Table = Split(Selection.Value)
Table.copy
end sub

Je ne suis pasassez avancé pour appliquer les expression rationnelles appliquées ..

Je joint un fichier d'exemple pour illustrer ma demande.
demo.xlsm

merci,
Damien

[Marc-L]

Quelle est donc la séquence de fin de ligne attendue par le logiciel ?

Sinon copier le résultat du Split dans des cellules puis les copier;
au moins déjà essayer la copie manuellement pour vérifier si le logiciel l'interprète bien …

[dedam]

Bonjour Marc-L,

Mon code n'est pas fonctionnel car je ne sait pas comment récupérer le split en fait (je ne mange pas du code comme vous tous :-) )

Le logiciel qui récpetionne les données collées est SAP et les données se colle l'une en dessous de l'autre dans des cellules.

Damien

[unparia]

je ne sait pas comment récupérer le split en fait (je ne mange pas du code comme vous tous :-)

Il va alors falloir que tu apprennes un peu à te nourrir et à ne pas te contenter d'ouvrir la bouche (tu es ici sur un forum de développement - une "cuisine, donc - et non dan,s un restaurant).
La fonction split te retourne un array :
- dont le 1er index est 0
- le dernier index est Ubound(nom_de_l'array)
- chaque élément est l'une des chaines de caractères séparées par ton espace dans la chaine éclatée par la fonction split.
A toi de t'intéresser maintenant vite à tout cela, à préparer ta casserole et faire (au moins tenter) ta pitance sur ces bases, qui sont parmi les rudiments de VBA.

[Marc-L]

Restant donc sans réponse, aucune aide possible de ma part …

Sinon encore une fois :

au moins déjà essayer la copie manuellement pour vérifier si le logiciel l'interprète bien …

S'agissant juste de saisir des valeurs dans 3 / 4 cellules puis de les copier, faut pas pousser Mémé dans les orties ‼