Séparer sous VBA les mots d'une cellule conca Résolu/Fermé

Question

Bonjour,

Je désire savoir s'il y'a une formule VBA pour séparer  mes cellules qui se présentent toutes cette forme Ex «  E1 : oui#j'ai un chien »
Je voudrais garder le « oui » dans la case E1 et séparer le « j'ai un chien » dans la case F1. (Le dièse est le séparateur dans toutes les cellules- apres le dièse j'ai des phrases).
Afin de pouvoir insérer le tt dans une boucle en VBA. 

Merci beaucoup pour votre aide précieuse!! 

Cordialement

Mytå · Answer

Salut le forum

Données > Convertir > utliser le # comme délimlteur

Mytå

pijaku · Answer

Bonjour,
La solution de Myta est la bonne solution. Il n'est effectivement pas utile de passer par VBA pour si peu...
Mais si tu tiens à intégrer ceci dans une procédure plus importante, voici une petite méthode de manipulation de caractères directement en mémoire, sans passer par la feuille (sauf pour le remplissage de la variable tableau bien sur...) :
Exemple sur les cellules de E1 à E20 :
Sub test()
Dim Tabl(19) As String
Dim AvantDiese As String, ApresDiese As String
Dim Lig As Long

For Lig = 1 To 20
    Tabl(Lig - 1) = Range("E" & Lig)
Next
For Lig = 1 To 20
    AvantDiese = Split(Tabl(Lig - 1), "#")(0)
    ApresDiese = Split(Tabl(Lig - 1), "#")(1)
    Debug.Print AvantDiese & " / " & ApresDiese
Next
End Sub

michel_m · Answer

Bonjour

Code à adapter à ton classeur

Option Explicit
Const nb_col As Byte = 6  ' les 3 constantes à adapter
Const nb_lig As Integer = 25
Const dep As String * 4 = "$A$1"
Sub separer_diese()
Dim col_dep As Byte, lig_dep As Byte
Dim col As Integer, lig As Integer, cptr As Integer
Dim T_2col As String, separe


ReDim T_col(nb_lig, 2)
With Sheets("essai") 'a adapter
     col_dep = .Range(dep).Column
     lig_dep = .Range(dep).Row
     Application.ScreenUpdating = False
     
     'extraction par colonne
     For col = col_dep To col_dep + nb_col - 1 Step 2
          'extaction par ligne
          cptr = 0
          For lig = lig_dep To lig_dep + nb_lig - 1
               separe = Split(.Cells(lig, col), "#")
               T_col(cptr, 0) = separe(0)
               T_col(cptr, 1) = separe(1)
               cptr = cptr + 1
          Next
           'restitution
          .Cells(lig_dep, col).Resize(nb_lig, 2) = T_col    'restitution
     Next col
     .Activate
  End With

Maquette sur 3 colones et 25 lignes , départ tableau en A1 à a adapter
https://www.cjoint.com/?3KlrSzBs4TW

Séparer sous VBA les mots d'une cellule conca

3 réponses

Discussions similaires