Macro inspecter une cellule Excel Résolu

Question

Bonjour, 

j'ai dans une cellule Excel plusieurs chiffres, séparés par des virgules.

Je souhaiterai une macro en vb afin de copier dans le presse papier les chiffres situés entre la 5ème et la 6ème virgule.


Merci !




Configuration: Windows XP / Safari 534.24

michel_m · Answer

Bonjour

voici l'instruction

entre5et6 = Split(Range("A1"), ",")(5)

Jerome59 · Answer

Merci pour la réponse.

Cependant, l'explication est un peu sommaire.

Comment agencer cette instruction avec les autres instruction ?

michel_m · Answer

je veux bien mais qu'entend tu par "avec les autres instruction ?"

pourquoi mettre dans le presse papier ? a priori, les instructions copy-paste sont à éviter en VBA...

Dis ce que tu veux précisement.
d'avance merci

Jerome59 · Answer

Salut,

merci pour tout, j'ai trouvé ce que je voulais.


Voici mon code et ça marche:





Private Sub CommandButton1_Click()

    Dim resultat As String
    With New DataObject
       .GetFromClipboard
    '   resultat = .GetText
       resultat = Split(Range("A1"), ",")(5)
    End With
    
    Range("J6").Value = resultat

End Sub

Macro inspecter une cellule Excel

4 réponses

Discussions similaires

Newsletters