H
H@nnoun
Guest
Bonjour à tous
j'utilise ce code pour convertir des colonnes dans un tableau ce code fonctionne
Mon probleme c'est lorsque la derniere colonne est vide le message "pas de donnees a convertir " apparrait. Comment faire pour eviter ce message ?
Merci d'avance pour votre AIDE
H@nnoun
-------------------------------------------------------------------------------------------
Dim Co As Integer
Dim Li As Integer
Li = 1
For Co = 1 To Columns.Count
If TextToColumns = Null Then Exit For
Columns(Co).Select
Selection.TextToColumns Destination:=Selection.Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1)
Selection.Columns.AutoFit
Next Co
End Sub
j'utilise ce code pour convertir des colonnes dans un tableau ce code fonctionne
Mon probleme c'est lorsque la derniere colonne est vide le message "pas de donnees a convertir " apparrait. Comment faire pour eviter ce message ?
Merci d'avance pour votre AIDE
H@nnoun
-------------------------------------------------------------------------------------------
Dim Co As Integer
Dim Li As Integer
Li = 1
For Co = 1 To Columns.Count
If TextToColumns = Null Then Exit For
Columns(Co).Select
Selection.TextToColumns Destination:=Selection.Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1)
Selection.Columns.AutoFit
Next Co
End Sub