Problème avec un CommandButton
Bonjour,
Je récupère depuis internet des données ( nom et chiffres) qui arrive dans une meme cellule, puis avec la fonction "convertir" d'excel 2007 je dissocie tout ca ( donc une cellule pour chaque element), puis à l'aide d'un commandbutton je fais un copier/coller de chaque ligne de chiffres dans differentes feuilles selon le nom
la macro du commandbutton fonctionne si je saisi moi meme les donnees mais ne fonctionne plus des que j'importe depuis internet !!!
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
| Private Sub CommandButton1_Click()
Dim B(2) As Variant
B(1) = "Agence TIP"
B(2) = "Matin Courses"
Dim A As Variant
Dim i As Integer
For i = 1 To 2
For Each A In [Test!B6:B110]
If A.Value = B(i) Then
Range(A.Cells(1, 2), A.Cells(1, 9)).Copy
Sheets(B(i)).Range("B5").PasteSpecial Paste:=xlPasteValues
End If
Next
Next
End Sub |
pourquoi ?????
Merci de votre aide !!
