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 :

Copier un string avec des Chr(10) sur plusieurs lignes plutôt qu'en saut de ligne d'une cellule [XL-2010]


Sujet :

Macros et VBA Excel

  1. #1
    Membre du Club
    Homme Profil pro
    Inscrit en
    Janvier 2012
    Messages
    94
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Janvier 2012
    Messages : 94
    Points : 55
    Points
    55
    Par défaut Copier un string avec des Chr(10) sur plusieurs lignes plutôt qu'en saut de ligne d'une cellule
    Bonjour à tous,
    Pardon pour le titre pas très clair.
    Dans une macro un peu complexe, j'ai un tableau à 2 dimensions défini en string, dans lequel j'ai parfois des chaines du type "texte" & chr(10) & "texte2".
    J'ai besoin de copier ces chaines dans des cellules, mais évidemment, les Chr(10) font que toute la chaine se retrouve dans une même cellule avec des retours chariots dans la cellule. Or je voudrais qu'à chaque Chr(10), on passe à la cellule du dessous.

    Est-ce possible et si oui comment ?

    Merci par avance.

  2. #2
    Membre émérite
    Inscrit en
    Octobre 2010
    Messages
    1 401
    Détails du profil
    Informations forums :
    Inscription : Octobre 2010
    Messages : 1 401
    Points : 2 684
    Points
    2 684
    Par défaut
    Bonjour

    Tu peux utiliser Split
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    t = Split( VariableString, Chr(10))
    pour mettre VariableString dans un tableau. Puis tu fais ce que tu veux avec ce tableau

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    Sub Exemple()
     
     VariableString = "un" & Chr(10) & "deux" & Chr(10) & "trois"
     
      t = Split(VariableString, Chr(10))
      For i = 0 To UBound(t)
       Debug.Print i, t(i)
      Next
    End Sub
    Cordialement

    Docmarti.

  3. #3
    Membre du Club
    Homme Profil pro
    Inscrit en
    Janvier 2012
    Messages
    94
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Janvier 2012
    Messages : 94
    Points : 55
    Points
    55
    Par défaut
    Génial, merci ! Je ne connaissais pas split, mais cette fonction va bien m'aider !

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

Discussions similaires

  1. CompareTo sur String avec des caractères numériques
    Par seb0634 dans le forum Langage
    Réponses: 2
    Dernier message: 06/02/2008, 10h35
  2. comment concatiner des strings avec des nombre
    Par Sara83 dans le forum MATLAB
    Réponses: 3
    Dernier message: 18/10/2006, 13h06
  3. Réponses: 2
    Dernier message: 09/03/2006, 14h15
  4. Mauvais tri des String avec des accents
    Par lbreuillard dans le forum Collection et Stream
    Réponses: 2
    Dernier message: 23/09/2005, 12h21
  5. Utiliser MySqlAdmin avec des droits utilisateurs sur XP
    Par thorgal85 dans le forum Outils
    Réponses: 2
    Dernier message: 18/03/2005, 12h19

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