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