Discussion :

[charlesbruno]

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 :

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

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 !!

[FCL31]

Salut

Ne te faut-il pas vérifier les format des cellules par hasard

C'est a dire : les données importées ne doivent-elles pas être dans un format spécial

Je sais pas mais peut être un truc a vérifier

[charlesbruno]

Il manquait simplement un espace après chaque nom, (dans la feuille et dans le code)

trop trop bête !!!!

Fallait y penser.

Merci de d'être pencher sur mon problème.