Macro inspecter une cellule Excel

Résolu/Fermé

Jerome59 - 11 mai 2011 à 17:44
Jerome59 - 12 mai 2011 à 17:21

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 !

A voir également:

Macro inspecter une cellule Excel
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Excel cellule couleur si condition texte - Guide
Aller à la ligne dans une cellule excel - Guide
Liste déroulante excel - Guide
Proteger cellule excel - Guide

4 réponses

Réponse 1 / 4

michel_m Messages postés 16602 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 313
11 mai 2011 à 18:27

Bonjour

voici l'instruction

entre5et6 = Split(Range("A1"), ",")(5)

Réponse 2 / 4

Jerome59
11 mai 2011 à 20:38

Merci pour la réponse.

Cependant, l'explication est un peu sommaire.

Comment agencer cette instruction avec les autres instruction ?

Réponse 3 / 4

michel_m Messages postés 16602 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 313
11 mai 2011 à 22:39

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

Réponse 4 / 4

Jerome59
12 mai 2011 à 17:21

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

Discussions similaires

Excel formule : savoir si une cellule contient partie texte

Remplir une cellule (texte) en fonction d'une autre (texte).