Macro

Le
Tibert
Bonjour à tous

Je souhaiterais une aide pour une macro, pour modifier un coller d'une page=
web

Merci à vous et bonne journée

voir exemple fichier joint


http://cjoint.com/?3AxlQw9wsdx
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
MichD
Le #26335344
Bonjour,

Essaie ceci :

'-----------------------------------------------------------------------
Sub test()
Dim Rg As Range, C As Range, T()
Dim A As Long, B As Long, D As Long

With Worksheets("CollerWeb")
Set Rg = .Range("A2:D" & .Range("A" & .Rows.Count).End(xlUp).Row)
End With

ReDim T(1 To Rg.Rows.Count, 1 To 4)

For A = 1 To Rg.Rows.Count
D = D + 1
For B = 1 To Rg.Columns.Count
Select Case B
Case 1, 2
T(D, B) = Rg(A, B)
Case 3
T(D, 3) = CDbl(Replace(Rg(A + 1, 2), " EUR", ""))
Case 4
T(D, 4) = Rg(A + 1, 4)
End Select
Next
A = A + 1
Next

'Où tu veux avoir tes données, Adapte le nom de la feuille
'et l'adresse de la cellule de départ
With Worksheets("Extrations")
With .Range("G1").Resize(UBound(T, 1), UBound(T, 2))
.Value = T
.Offset(, 2).Resize(.Rows.Count, 1).NumberFormat = "# ##0.00"
End With
End With
End Sub
'-----------------------------------------------------------------------
MichD
Le #26335343
Pour tenir compte des en-têtes de colonnes :


Sub test()
Dim Rg As Range, C As Range, T()
Dim A As Long, B As Long, D As Long
Dim Arr()
Arr = Array("Date", "Libellé", "Montant", "Mois")

With Worksheets("CollerWeb")
Set Rg = .Range("A2:D" & .Range("A" & .Rows.Count).End(xlUp).Row)
End With

ReDim T(1 To Rg.Rows.Count, 1 To 4)

For A = 1 To Rg.Rows.Count
D = D + 1
For B = 1 To Rg.Columns.Count
Select Case B
Case 1, 2
T(D, B) = Rg(A, B)
Case 3
T(D, 3) = CDbl(Replace(Rg(A + 1, 2), " EUR", ""))
Case 4
T(D, 4) = Rg(A + 1, 4)
End Select
Next
A = A + 1
Next

'Où tu veux avoir tes données, Adapte le nom de la feuille
'et l'adresse de la cellule de départ
With Worksheets("Extrations")
With .Range("G1").Resize(UBound(T, 1), UBound(T, 2))
.Value = Application.Transpose(Arr)
.Offset(1).Value = T
.Offset(, 2).Resize(.Rows.Count, 1).NumberFormat = "# ##0.00"
.EntireColumn.AutoFit
End With
End With
End Sub
Jacky
Le #26335349
Bonjour,

Regarde ici
http://cjoint.com/?EAxntPOFy3s
--
Salutations
JJ


"Tibert"
Bonjour à tous

Je souhaiterais une aide pour une macro, pour modifier un coller d'une page web

Merci à vous et bonne journée

voir exemple fichier joint


http://cjoint.com/?3AxlQw9wsdx
MichD
Le #26335348
Une coquille dans la procédure,

Remplace cette ligne de code :
.Value = Application.Transpose(Arr)

Par
.Value = Arr

Désolé.
Jacky
Le #26335351
Re..
La plage de format date modifiée ;0)
Celui-ci
http://cjoint.com/?EAxnHI3IhyO
--
Salutations
JJ
syleg35
Le #26335357
Bonjour MichD

Merci pour votre aide c'est nickel j'ai adapté a mon fichier

Bonne journée à vous

Le vendredi 23 janvier 2015 11:33:59 UTC+1, Tibert a écrit :
Bonjour à tous

Je souhaiterais une aide pour une macro, pour modifier un coller d'une pa ge web

Merci à vous et bonne journée

voir exemple fichier joint


http://cjoint.com/?3AxlQw9wsdx
Publicité
Poster une réponse
Anonyme