KTM
XLDnaute Impliqué
Bonjour chers amis du forum,
Dans mon fichier joint je voudrais par macro exécuter les taches suivantes:
1- Remplacer les vides par 0 dans la plage jusqu'à la dernière colonne utilisée.
2-Convertir les données de la colonne B en colonnes.
J'ai élaboré ce qui suit mais quelque chose ne va pas. Prière me corriger.
Merci
Dans mon fichier joint je voudrais par macro exécuter les taches suivantes:
1- Remplacer les vides par 0 dans la plage jusqu'à la dernière colonne utilisée.
2-Convertir les données de la colonne B en colonnes.
J'ai élaboré ce qui suit mais quelque chose ne va pas. Prière me corriger.
Merci
VB:
Sub convert()
Application.ScreenUpdating = False
Dim dl, dercol As Long
Dim Rg As Range, Qui As String, Plage As String, pg As Range
With Sheets("Convert")
dl = .Range("B" & Rows.Count).End(xlUp).Row
Qui = "/"
Plage = "B5:B" & dl
Set Rg = Range(Plage).Find(Qui)
If Not Rg Is Nothing Then
On Error Resume Next
dercol = .Cells(1, .Cells.Columns.Count).End(xlToLeft).Column
Set pg = .Range("C5").Offset(dl, dercol)
pg.SpecialCells(xlCellTypeBlanks).Value = 0
.Columns("C:D").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
.Range("B5:B" & dl).TextToColumns Destination:=.Range("B5"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), _
TrailingMinusNumbers:=True
End If
End With
Application.ScreenUpdating = True
End Sub