Discussion :

[sawsliders]

Bonjour,

Petite question,

Je cherche a crée un script en VBA qui vas me permettre de mettre en pages des donnée pour permettre l'importation sur un autre outils.

J'aimerais savoir s'il y a quelque parmi vous qui aurais une idée?

J'ai mis en pièces jointes un fichier excel avec un exem simple des donnée obtenu et surtout le résultat voulu.

Attention les liens sont au nombre aléatoire, mais toujours sépare d'une virgule.

Attention malgré tout une valeurs est malgré tout repaté sur les diferentes lignes pour indiqué une source commune.

Merci d'avance de votre aide.

Filipe Da Silva

[maxxikilla]

Bonjour à toi,

J'ai pensé à la solution suivante, je ne sais pas si elle est optimale, mais en tout cas, elle devratit sans doute fonctionner. Dans l'idée, il s'agirait d'appliquer un TextToColumn, avec séparateur ",". Le Range est à rendre dynamique, mais voici la trame du code à utiliser.

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
Sub AdapterLiens()
 
Application.DisplayAlerts = False
 
    Dim plage As Range
    Dim sheet As Worksheet
 
    Set sheet = Worksheets("Feuil1")
    With sheet
        Set plage = .[D5]
        Set plage = .Range(plage, .Cells(.Rows.Count, plage.Column).End(xlUp))
 
 
        plage.TextToColumns Destination:=plage, DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=True, Space:=False, Other:=False, _
        FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), TrailingMinusNumbers:=True
    End With
 
End Sub

Ensuite, je calculerai les variations entre le nombre de colonnes avant la macro et apres la macro, avec quelque chose du type:

Code :

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

 nombreColonne = range("D5").end(xlToRight).column

Tu stocke cette différence du nombre de colonnes dans une variable, disons x, et tu vas venir insérer x lignes après la ligne sur laquelle tu travailles.

Sur ces x lignes insérées, tu reporte ton numéro de registre et tu peux faire un copier/coller Transpose Ou avec une double boucle for tu pourras reporter tes sources.

[sawsliders]

Bonjour,

Merci pour votre aide.

Je suis débutant et la je vous avoue je suis complétement paumé .

Je vais etudié sa en profondeur pour essaye de le faire fonctionné.

si toute autre personne aurais une autre astuce ou un livre pour les nuls je suis preneur ^^.

Merci en tout cas d'avoir pris le temps de m'aider.

Cordialement
Filipe Da Silva