XL 2013 Macro Complexe pour mise en forme

klin89

XLDnaute Accro

• 21 Décembre 2016

• #2

Bonjour bibbip35, le forum

Vois ceci :

VB:

Option Explicit
Sub test()
Dim a, b(), i As Long, n As Long, e
    With Sheets("Avant").Range("a1").CurrentRegion
        a = .Value
        'attention à la 1ère dimension
        ReDim b(1 To 1000, 1 To UBound(a, 2))
        For i = 1 To UBound(a, 1)
            For Each e In Split(a(i, 2), ";")
                If Trim(e) <> "" Then
                    n = n + 1
                    b(n, 1) = a(i, 1)
                    b(n, 2) = Trim(e)
                End If
            Next
        Next
        With .Offset(, .Columns.Count + 1)
            .CurrentRegion.ClearContents
            .Resize(n, UBound(a, 2)).Value = b
        End With
    End With
End Sub

klin89

 

Vote positif 0 Vote négatif

B

bibbip35

XLDnaute Occasionnel

• 21 Décembre 2016

• #3

Bonjour Klin89

Merci pour votre réponse rapide Mais quand je lance la macro j'ai une erreur d'incompabilité type 13

Aurriez-vous une idée

Merci

Bibbip35

 

Pièces jointes

• Test.xlsm

  40.1 KB · Affichages: 42

Vote positif 0 Vote négatif

Chris24

XLDnaute Impliqué

• 21 Décembre 2016

• #4

Bonsoir

Tu as mal recopié le code

With Sheets("Avant").Range("a1").CurrentRegion

Cdt

 

Vote positif 0 Vote négatif

B

bibbip35

XLDnaute Occasionnel

• 21 Décembre 2016

• #5

Merci pour votre retour
En effet; j'avais bien fait une faute de frappe
Mais maintenant c'est sur ligne With .Offset(, .colums.Count + 1) qu'il y a une nouvelle erreur

Sub test()
Dim a, b(), i As Long, n As Long, e
With Sheets("Avant").Range("A1").CurrentRegion
a = .Value
'Attention à la 1er dimension

ReDim b(1 To 1000, 1 To UBound(a, 2))
For i = 1 To UBound(a, 1)
For Each e In Split(a(i, 2), ";")
If Trim(e) <> "" Then
n = n + 1
b(n, 1) = a(i, 1)
b(n, 2) = Trim(e)
End If
Next
Next
With .Offset(, .colums.Count + 1)
.CurrentRegion.ClearContents
.Resize(n, UBound(a, 2)).Value = b
End With
End With
End Sub

 

Vote positif 0 Vote négatif

Chris24

XLDnaute Impliqué

• 21 Décembre 2016

• #6

RE

Plutôt que de recopier le code un copier coller t'aurais évité les fautes de frappe et conservé l'indentation des lignes.

Columns et non colums

Cdt

 

Vote positif 0 Vote négatif

B

bibbip35

XLDnaute Occasionnel

• 22 Décembre 2016

• #7

Bonjour à tous
Et merci pour ces retours

Mais la macro fonctionne partiellement
Ok avec les séparateur ;
Mais avec l intervalle ... c est ko

Est-ce que quelqu'un aurait une proposition

Merci à tous

Bibbip

 

Vote positif 0 Vote négatif

B

bibbip35

XLDnaute Occasionnel

• 22 Décembre 2016

• #8

Bonjour à tous
Et merci pour ces retours

Mais la macro fonctionne partiellement
Ok avec les séparateur ;
Mais avec l intervalle ... c est ko
L'objectif étant pour par exemple
R0805 0 R1...R4

De générer
R0805 0 R1
R0805 0 R2
R0805 0 R3
R0805 0 R4

Est-ce que quelqu'un aurait une proposition

Merci à tous

Bibbip

 

Vote positif 0 Vote négatif

B

bibbip35

XLDnaute Occasionnel

• 24 Décembre 2016

• #9

Bonjour à tous

Je relance le sujet et mon problème...
Est-ce quelqu'un aurait une suggestion ; une idée ?

Merci a tous et je vous souhaite une joyeux noel

Bibbip35

 

Vote positif 0 Vote négatif