Erreur definie par l'application ou l'objet

Résolu/Fermé
Tuline
Messages postés
55
Date d'inscription
mardi 18 mars 2014
Statut
Membre
Dernière intervention
16 novembre 2018
- 25 avril 2014 à 17:03
f894009
Messages postés
16626
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
4 août 2022
- 26 avril 2014 à 18:03
Bonjour,

J'écris une macro assez complexe avec plein de userform etc...

J'ai un userform3 avec une listbox codée comme-ci :


Private Sub UserForm_Initialize()

With ListBox1
For k = 2 To 60
.AddItem Worksheets("Ambiant Air Condition").Cells(1, k).Value
Next k
End With

ListBox1.ListIndex = 0
ListBox1.MultiSelect = 1

Puis j'ai le programme suivant qui se lance. Je ne vous mets qu'une partie, là où ca bloque.
J'ai deux sheets. Dans les deux sheets, la colonne A contient des dates sous le format m/d/yyyy h:mm"
La listBox allant chercher mes identifiants de colonnes de la sheet1, je voudrais que si l'utilisateur selectionne le premier item, la macro copie les données correspondants à la date de la sheet1 vers la sheet2. Vous comprendrez avec le code :)
Mais il y a une erreur sur la ligne soulignée, sans que je n'en comprenne la raison




Dim x As String

Dim nbl, nblx As Long
Dim a, b As Long

nbl = Worksheets("Ambiant Air Condition").UsedRange.Count
a = 3
b = 2
For i = 0 To UserForm3.ListBox1.ListCount
If UserForm3.ListBox1.Selected(i) = True Then
For j = 2 To nbl
If Worksheets("Ambiant Air Condition").Cells(j, "A").Value = Worksheets(x).Cells(a, "A").Value Then
Worksheets(x).Cells(a, b).Value = Worksheets("Ambiant Air Condition").Cells(j, (i + 2)).Value
a = a + 1
End If
b = b + 1
Next j
End If
Next i


Merci pour votre aide !


3 réponses

f894009
Messages postés
16626
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
4 août 2022
1 647
25 avril 2014 à 19:25
Bonjour,

Worksheets(x) x est ecrit ou ??????
0
Tuline
Messages postés
55
Date d'inscription
mardi 18 mars 2014
Statut
Membre
Dernière intervention
16 novembre 2018

25 avril 2014 à 20:10
remplace x par 2 si tu veux :)
0
f894009
Messages postés
16626
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
4 août 2022
1 647
26 avril 2014 à 07:52
Bonjour,

Aucune erreur !!!!!!!!!
0
Tuline
Messages postés
55
Date d'inscription
mardi 18 mars 2014
Statut
Membre
Dernière intervention
16 novembre 2018

26 avril 2014 à 16:34
Bonjour,
Il y en avait...
Lors du comptage de ligne et du comptage d'item selectionnés dans la listbox.
Merci quand même :)
0
f894009
Messages postés
16626
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
4 août 2022
1 647
26 avril 2014 à 18:03
re,

juste une chose

For i = 0 To UserForm3.ListBox1.ListCount-1
0