IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Répartir les caractères d'une cellule dans deux cellules [XL-365]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Femme Profil pro
    Géomaticienne
    Inscrit en
    Novembre 2018
    Messages
    18
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 60
    Localisation : France, Haute Loire (Auvergne)

    Informations professionnelles :
    Activité : Géomaticienne
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : Novembre 2018
    Messages : 18
    Par défaut Répartir les caractères d'une cellule dans deux cellules
    Bonjour,

    Dans une plage de données variable, certaines cellules contiennent des caractères séparés par une virgule, par exemple :

    "r,3" ou "1,2" ou "2,2" etc.


    Je désire, à chaque fois que ce cas apparaît dans une cellule mettre les caractères avant et après la virgule dans deux cellules, par exemple :

    pour "r,3" situé dans la cellule "A2", mettre "r" dans "A2", ajouter une colonne et mettre "3" dans la nouvelle cellule "B2"
    pour "1,2" situé dans la cellule "N9", mettre "1" dans "N9", ajouter une colonne et mettre "2" dans la nouvelle cellule "O9"
    pour "2,2" situé dans la cellule "E27", mettre "2" dans "E27", ajouter une colonne et mettre "2" dans la nouvelle cellule "F27"

    Comment faire ?

    Merci par avance pour votre aide

  2. #2
    Expert confirmé
    Homme Profil pro
    Electrotechnicien
    Inscrit en
    Juillet 2016
    Messages
    3 241
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 71
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Electrotechnicien

    Informations forums :
    Inscription : Juillet 2016
    Messages : 3 241
    Par défaut
    Bonjour,

    Du fait que la cellule contenant la valeur doit être remplacé par les caractères se trouvant avant la virgule, on est obligé de passer par un bout de code en VBA.
    Avec le fichier joint, faire un double clic sur la cellule pour obtenir le résultat souhaité:
    Pièce jointe 593296

    Recopiez le code dans le module de la feuille sur laquelle il doit s'appliquer.
    Cdlt

  3. #3
    Membre averti
    Femme Profil pro
    Géomaticienne
    Inscrit en
    Novembre 2018
    Messages
    18
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 60
    Localisation : France, Haute Loire (Auvergne)

    Informations professionnelles :
    Activité : Géomaticienne
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : Novembre 2018
    Messages : 18
    Par défaut
    Merci beaucoup ARTURO83

    Ca fonctionne parfaitement
    Bonne journée

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 6
    Dernier message: 10/06/2020, 16h12
  2. Réponses: 1
    Dernier message: 11/10/2017, 16h12
  3. Supprimer les 5 premiers caractères d'une cellulle dans un TCD
    Par had4789 dans le forum Macros et VBA Excel
    Réponses: 11
    Dernier message: 04/08/2014, 15h50
  4. [XL-2007] comment modifier les caractères d'une cellule
    Par VBBougrine dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 27/01/2011, 10h05
  5. [MIPS R3000] Dupliquer les caractères d'une chaîne dans une autre
    Par hajerboug dans le forum Autres architectures
    Réponses: 1
    Dernier message: 16/02/2009, 19h57

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo