Fonction VBA separation de données Fermé

Question

Bonjour,

J'essaye éperdument de trouver une manière d'extraire des données d'une cellule pour les importer dans des cellules séparer mais sans succès.

Voila mon problème : J'ai une cellule qui est rempli d'un chiffre puis d'un mot et encore d'un chiffre puis un mot etc.

Et je veux exporter les chiffres dans une colonne (avec chaque chiffre sur une ligne) et les mots dans la colonne d'a coté (avec chaque mot sur une ligne). 

J'ai trouver des fonctions Excel mais que pour deux mots .

Y-a-t 'il la possibilité de réaliser un code vba qui donne une fonction qui me permettrai de faire cela car j'ai beaucoup de cellule a extraire.

Je vous joins un fichier excel de façon que ce soit plus compréhensibles.

https://www.cjoint.com/c/EHfmsS4i8LU 

Merci d'avance.

michel_m · Answer

Bonjour,

essaies cette macro paramétrée
Option Explicit'-----------Sub xxxx() Application.ScreenUpdating = Falseseparer_mot_nombre "B3", 3, 3, 4End Sub'-------------Sub separer_mot_nombre(adresse, Lig, Col_nbre, Col_mot)Dim Separe, Cptr As IntegerWith ActiveSheet    Separe = Split(Range(adresse))    For Cptr = 0 To UBound(Separe)        If IsNumeric(Separe(Cptr)) Then            .Cells(Lig, Col_nbre) = Separe(Cptr)        Else            .Cells(Lig, Col_mot) = Separe(Cptr)             Lig = Lig + 1        End If           NextEnd WithEnd Sub 
 
 Michel

ccm81 · Answer

Bonjour

Un début de réponse, du moins avec ce que j'ai compris
http://www.cjoint.com/c/EHfnhjTMOII

Cdlmnt

wuhrlinanthony · Answer

Merci ccm81 , c'est exactement ce que je voulais. 

Est-ce qu'il y a une possibilité de passer la macro en fonction ? Car j'ai beaucoup de cellule où je dois réaliser la même manip. 

Merci

ccm81 · Answer

1. Est-ce qu'il y a une possibilité de passer la macro en fonction ? Car j'ai beaucoup de cellule où je dois réaliser la même manip. 
Je ne pense pas que ce soit possible, une fonction renvoie UN résultat
Par contre, pour appliquer à plusieurs cellules, il faut plus de précision sur 
- la plage à traiter (est elle constituée de cellules consécutives, en ligne, en colonne, les deux
- la plage résultat : une plage par cellule, tous les résultats en une seule plage, 
- etc ...
Le mieux serait d'avoir un bout de fichier montrant la configuration des données à traiter et des résultats attendus
2. As tu essayé la macro de Michel (salut à toi au passage) qui traite déjà plusieurs cellules
Cdlmn

wuhrlinanthony · Answer

Si on ne peut pas passer la macro en fonction , est ce que c'est possible d'ajouter une ligne de code pour sélectionner la cellule directement (quelque chose comme "Range ")au lieu de sélectionner la cellule manuellement ?

ccm81 · Answer

Il est possible de faire pas mal de choses, encore faut il savoir quoi, comment, etc  ...
Sans un bout de fichier significatif, je ne pense pas pourvoir t'aider

Cdlmnt

Fonction VBA separation de données

6 réponses

Discussions similaires