Discussion :

[nassiri]

Bonjour
j'ai récupéré des valeurs d'un appareil de test et je l'ai coller sur un fichier excel; j'ai besoin de séparer ces valeur en deux (voir fichier joint)
y a t ilun moyen de le faire
Merci pour votre support

[bboy-eazy]

bonjour,

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
Private Sub Worksheet_Activate()   
    Dim LigFin As Long
    Dim LigDeb As Long
    Dim lig As Long       
    LigFin = Sheets("test de BER").Cells(Rows.Count, 1).End(xlUp).Row
    LigDeb = 2
 
   For lig = LigDeb To LigFin
 
    Sheets("Test de BER").Cells(lig, 7).Value = Left(Sheets("Test de BER").Cells(lig, 1).Value, 16)
    Sheets("Test de BER").Cells(lig, 8).Value = Right(Sheets("Test de BER").Cells(lig, 1).Value, 16)
 
    Next lig
 
End Sub

[GerardCalc]

Bonjour,

Sélectionner la colonne de données,
Menu ou Onglet Données > Convertir
Délimité par , (virgule)

A+

[nassiri]

Bonjour
Merci pour le support
CDT