Modifier des en tête de colonnes et supprimer des colonnes

Y compris Power BI, Power Query et toute autre question en lien avec Excel
v
vs86963
Jeune membre
Jeune membre
Messages : 38
Inscrit le : 31 janvier 2018
Version d'Excel : 2013 FR

Message par vs86963 » 24 avril 2019, 14:52

Bonjour,
J'ai un fichier "SuiviCommandes " venant d'un export.
J'aimerais supprimer automatiquement les "0" et dans la colonne "Date d'installation" supprimer les texte, de façon à ne plus avoir que les dates
Merci de votre aide.


J'en suis là
'Mise en forme xls
Range("A1:A50").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1 _
)), TrailingMinusNumbers:=True
'Mise en forme tableau
ActiveCell.FormulaR1C1 = "Nom du poste"
Columns("C:C").Select
Columns("A:A").EntireColumn.AutoFit
Columns("B:B").EntireColumn.AutoFit
Columns("C:C").Select
Selection.Delete Shift:=xlToLeft
Columns("D:D").Select
Selection.Delete Shift:=xlToLeft
ActiveCell.FormulaR1C1 = "Serveur" & Chr(10) & " P à  P"
Range("E1").Select
ActiveCell.FormulaR1C1 = "Postes" & Chr(10) & "Clients"
Range("F1").Select
ActiveCell.FormulaR1C1 = "Postes" & Chr(10) & "reconditionnées"
Range("F2").Select
Columns("F:F").EntireColumn.AutoFit
Columns("F:F").ColumnWidth = 11
Columns("F:F").ColumnWidth = 16.29
Range("G1").Select
ActiveCell.FormulaR1C1 = "Date réception devis"
Range("J1").Select
ActiveCell.FormulaR1C1 = "Date prévisionnelle " & Chr(10) & "réception du matériel"
Range("J2").Select
Columns("J:J").ColumnWidth = 18.43
Range("K1").Select
ActiveCell.FormulaR1C1 = "Réception complète"
Range("K1").Select
ActiveCell.FormulaR1C1 = "Réception " & Chr(10) & "complète"
Range("K10").Select
Selection.Copy
Cells.Replace What:="recep_yes", Replacement:="Oui", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
'Alignement des cellules
Range("A1:Q1").Select
Application.CutCopyMode = False
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
End Sub
SuiviCommandes.csv
(3.33 Kio) Pas encore téléchargé
SuiviCommandes.xlsx
(12.01 Kio) Téléchargé 2 fois
Modifié en dernier par vs86963 le 24 avril 2019, 16:08, modifié 1 fois.
Avatar du membre
fronck
Membre fidèle
Membre fidèle
Messages : 477
Appréciations reçues : 10
Inscrit le : 26 septembre 2015
Version d'Excel : 2016
Contact :
Téléchargements : Mes applications

Message par fronck » 24 avril 2019, 15:27

Salut,

Voilà en une seule macro, intitulé macro1, en PJ.
SuiviCommandes.xlsm
(17.56 Kio) Téléchargé 6 fois
Franck
Pour coder les opérations simples, enregistrer une macro avec la manipulation que vous voulez faire. ;;)
Avatar du membre
fronck
Membre fidèle
Membre fidèle
Messages : 477
Appréciations reçues : 10
Inscrit le : 26 septembre 2015
Version d'Excel : 2016
Contact :
Téléchargements : Mes applications

Message par fronck » 24 avril 2019, 17:03

Voilà la macro en direct :
' Supression cols C E J devenues C, D & H

    Columns("C:C").Select
    Selection.Delete Shift:=xlToLeft
    
    Columns("D:D").Select
    Selection.Delete Shift:=xlToLeft
    
    Columns("H:H").Select
    Selection.Delete Shift:=xlToLeft
    
' nom du poste en A1

    Range("A1").Select
    ActiveCell.FormulaR1C1 = "Nom du poste"
    Range("A2").Select
    
' remplacer 'receipt_yes dans derniere colonne

Dim recep As Variant
'Dim derlig_cascade As Integer

    For i = 2 To 50                                                 '50 = fin de tableau bas
    If Sheets("SuiviCommandes").Cells(i, 10) = "recep_yes" Then       ' 10 = col M devenue J
        Sheets("SuiviCommandes").Cells(i, 10) = "Oui"
        End If
        Next i

End Sub
Pour coder les opérations simples, enregistrer une macro avec la manipulation que vous voulez faire. ;;)
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message