Bonjour,

J'ai un code qui marche bien mais j'aimerai lui apporter une petite modif.
Je découpe une chaine de caractères sur plusieurs colonne comme ceci
Quemper-Guézennec(22260) sa donne Quemper-Guézennec sur une colonne et 22260 sur une autre la colonne
Seul problème et que si une cellule est vide ou si une cellule contient une lettre comme "A, B, C ect.." sa beug?
Si quelqu'un a une idée.

je vous remercie d'avance.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Sub Découpe()
      Dim DLig As Long, Lig As Long
      ' Tableau des données séparées
     Dim sTab() As String
      With Sheets("Feuil1")
        ' Trouver la dernière ligne remplie de la colonne B
       DLig = .Range("B" & Rows.Count).End(xlUp).Row
 
        ' Pour chaque ligne en commençant par la 4ème
       For Lig = 4 To DLig
 
          ' Eclater la valeur en 2 à partir de la parenthèse
         sTab = Split(.Range("B" & Lig), "(")
          ' Inscrire les valeurs
         .Range("D" & Lig) = Trim(sTab(0))
          .Range("E" & Lig) = Left(sTab(1), Len(sTab(1)) - 1)
 
       ' Eclater la valeur en 2 à partir de la parenthèse
       sTab = Split(.Range("G" & Lig), "(")
      ' Inscrire les valeurs
       .Range("I" & Lig) = Trim(sTab(0))
         .Range("J" & Lig) = Left(sTab(1), Len(sTab(1)) - 1)
 
    Next Lig
      End With
 
 
    End Sub
Cordialement

Max