Macro inspecter une cellule Excel

Résolu
Jerome59 -  
 Jerome59 -
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 !




4 réponses

michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
Bonjour

voici l'instruction

entre5et6 = Split(Range("A1"), ",")(5)
0
Jerome59
 
Merci pour la réponse.

Cependant, l'explication est un peu sommaire.

Comment agencer cette instruction avec les autres instruction ?
0
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
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
0
Jerome59
 
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
0