Erreur definie par l'application ou l'objet [Résolu/Fermé]

Signaler
Messages postés
55
Date d'inscription
mardi 18 mars 2014
Statut
Membre
Dernière intervention
16 novembre 2018
-
Messages postés
15808
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
19 juin 2021
-
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

Messages postés
15808
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
19 juin 2021
1 502
Bonjour,

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

remplace x par 2 si tu veux :)
Messages postés
15808
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
19 juin 2021
1 502
Bonjour,

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

Bonjour,
Il y en avait...
Lors du comptage de ligne et du comptage d'item selectionnés dans la listbox.
Merci quand même :)
Messages postés
15808
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
19 juin 2021
1 502
re,

juste une chose

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