Vba : problème de suppression de colonnes

Fermé
Erevan Messages postés 1 Date d'inscription vendredi 13 avril 2007 Statut Membre Dernière intervention 13 avril 2007 - 13 avril 2007 à 20:28
 masterseb - 19 avril 2007 à 23:31
Bonjour,

J'ai un petit problème avec la suppression de colonnes sous VBA...

Définition de la manip :
Je récupère un fichier issu d'une centrale d'acquisition au format .txt, que j'ouvre avec Excel 2003.

Les données sont du type suivant (ex issu du fichier txt):

SPEICHER: 
DATUM: 29.11.06
11:14:04 00: +0058.6 øC 01: +0080.1 øC 02: +0077.4 øC
11:14:23 00: +0058.6 øC 01: +0080.0 øC 02: +0077.3 øC
11:14:43 00: +0058.6 øC 01: +0080.1 øC 02: +0077.5 øC

Je veux récupérer uniquement les colonnes avec la température (valeurs avec signe +) et j'ai fait la macro suivante :

Sub macro_traitement()

' Elimination des colonnes °C
For Each colonne In ActiveSheet.UsedRange.Columns
r = colonne.Column
cherché = Application.Find("øC", Cells(3, r))
If Not (IsError(cherché)) Then _
Cells(3, r).EntireColumn.Delete
Next

' conversion de colonnes température avec signe +
For Each colonne In ActiveSheet.UsedRange.Columns
r = colonne.Column
cherchevoies = Left(Cells(3, r), 1)

If cherchevoies = "+" Then Cells(3, r).EntireColumn.Select

Selection.TextToColumns , DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), DecimalSeparator:=".", TrailingMinusNumbers:=True

With Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With

Next

End Sub

Mon problème est la supression des colonnes 00:, 01: ... etc qui sont les voies d'acquisitions de la centrale et qui sont traitées par exel comme des dates (format h:mm).

Après des centaines de manip différentes, rien à faire...mes colonnes voies sont toujours là..

Important : j'aimerais conserver la première colonne, celle avec les heures

Si quelqu'un avait la solution, je lui en serait éternellement reconnaissant

Merci d'avance

Erevan

1 réponse

Salut,
pourquoi n'ouvre tu pas ton fichier de la façon suivante afin d'éviter de faire une macro :

Fichier > Ouvrir
Boite de dialogue >>> dans type de données, choisir délimité
clic sur suivant
sur séparateur, coche Autre et insrit les 2 points (:) dans la case prévue puis clic sur suivant jusqu'à l'ouverture.

a+
seb
0