Discussion :

[mvgalli]

Bonjour,

Je vous écris pour essayer de comprendre la raisson du non fonctionnement de ma macro.

J'ai une macro avec 4 subs. Parmis eux, j'ai un qui doit couper l'information qui est sur la colonne("AC"), après le dixième charactère qui est un espace (" "), et mettre les characteres suivantes dans la colonne ("AD").

Voici mon code.
Nb; pardon pour mon français que ça fait peu que je le parle.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub splitcolonne()
 
'split colonne ship to et name produit
objWorkbook = ActiveWorkbook.Name
objWorksheet = objWorkbook.Worksheets("Zsales")
DLigneA = Range("AC100000").End(xlUp).Row
DLigneB = Range("AD100000").End(xlUp).Row
Dim currentcell As Variant
 
Set objRange = currentcell.DLigneA
Set objRange2 = currentcell.DLigneB
 
objRange.TextToColumns objRange2, , , , , , True
 
End Sub

L'erreur qui m'affiche est une manque d'objet.

Merci d'avance.

Cordialement

[Mr Poulpe]

Bonjour,

Essaie ça (le splitcolonne2, pas le splitcolonne):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 Sub splitcolonne()
 
'split colonne ship to et name produit
Set objWorkbook = ActiveWorkbook 'Pas besoin du .name - Si tu initialises un objet le set est de rigueur
Set objWorksheet = objWorkbook.Worksheets("Zsales") 'idem pour le set
DLigneA = Range("AC100000").End(xlUp).Row
DLigneB = Range("AD100000").End(xlUp).Row
Dim currentcell As Variant
 
Set objRange = currentcell.DLigneA 'Ici tu essaies de récupérer un attribut d'un objet qui n'a pas été initialisé
Set objRange2 = currentcell.DLigneB 'idem
 
objRange.TextToColumns objRange2, , , , , , True
 
End Sub
'Bon en fait on va faire comme ça
Sub splitcolonne2()
Dim objRange As Range
Set objRange = ActiveWorkbook.Worksheets("Zsales").Columns("AC:AC")
     objRange.TextToColumns Destination:=objRange.Offset(0, 1), DataType:=xlFixedWidth, _
        FieldInfo:=Array(Array(0, 1), Array(10, 1)), TrailingMinusNumbers:=True
 
End Sub

PS: J'ai refait ton code, mais j'ai aussi commenté les erreurs de ton code initial, je t'invite à y jeter un coup d'oeil. Bon mon code n'est pas très propre non plus cela dit.

[illight]

Sur quelle ligne ?

Par ailleurs, dans ton code, je ne vois aucun split

[mvgalli]

@Bonjour Illight,

Si j'ai bien compris ta question. Je veut que la macro fasse le split depuis la ligne 1 jusqu'a la dernier ligne non vide.
C'est vrai que dans le code j'utilise TextToColumns et pas de Split.

@Bonjour Mr. Poulpe, merci beaucoup, je vais essayer ton code!

Cordialement,

Oui, ce code marche bien!
Alors, je viens de me rendre compte que ce dont j'ai besoin c'est plutôt split. En effet, j'ai besoin d'diviser la colonne AC et mettre l'autre parti des characteres dans la AD.

Pourriez vous m'indiquer une solution differente, avec Split?

Merci d'avance.

[Mr Poulpe]

Bonsoir,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub splitcolonne2()
Dim objRange As Range
Set objRange = ActiveWorkbook.Worksheets("feuil1").Columns("AC:AC")
     objRange.TextToColumns Destination:=objRange, DataType:=xlFixedWidth, _
        FieldInfo:=Array(Array(0, 1), Array(10, 1)), TrailingMinusNumbers:=True
 
End Sub

Cordialement,

Poulpe

[mvgalli]

Merci beaucoup! Finalement j'ai applique cette longue mais efficace Sub.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sub splitcolonne2()
 
Dim dSpace As Integer
Dim VGauche As String
Dim VDroite As String
Dim cellValue As String
Dim cellResult As String
Dim iRow As Integer
 
Set objWS = ActiveWorkbook.Worksheets("Zsales")
 
iRow = 1
cellValue = objWS.Cells(iRow, 29)
Do While cellValue <> ""
        cellValue = objWS.Cells(iRow, 29)
        dSpace = InStr(1, cellValue, " ")
        VGauche = Left(cellValue, dSpace)
        VDroite = Mid(cellValue, dSpace + 1)
 
        objWS.Cells(iRow, 30).Value = VDroite
        objWS.Cells(iRow, 29).Value = VGauche
        iRow = iRow + 1
Loop
 
 
End Sub

Bon nuit.