[déplacé VB6 - VBA] Problème avec CommandButton !!

Question

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

charlesbruno · Answer

Re bonjour,

J'ai résolu ce problème ( il manquait un espace après le nom dans le code et dans le nom de la feuille)

C'était vraiment trop bête!!

Merci à tous ceux qui aurait tenter de m'aider.

[déplacé VB6 -> VBA] Problème avec CommandButton !!

1 réponse

Votre réponse

Discussions similaires