Vba : problème de suppression de colonnes
Erevan
Messages postés
1
Statut
Membre
-
masterseb -
masterseb -
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
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
A voir également:
- Vba : problème de suppression de colonnes
- Excel compter cellule couleur sans vba - Guide
- Find vba - Astuces et Solutions
- Incompatibilité de type vba ✓ - Forum VB / VBA
- Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
- Vba range avec variable ✓ - Forum VB / VBA
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
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