Bonjour tout le monde,
voila j'ai un classeur excel avec deux feuilles
feuil1=''Global count'' et feuil2=''availability''
Mon objectif c'est chercher les elements de la feuille2 dans la feuille1 grace a deux colonne de la feuille2 identique dans la feuil1.
donc je veux parcourir la feuille1 , ligne par ligne verifier si je retrouve ce que je cherche a partir de ces donnees la, puis inscrire dans la feuille2 le nombre d'elements trouves a la ligne considere.
NB; la feuille1 a deux colonnes de recherche pour chaque element i.
(si je retrouve le meme numero deux fois , je compte 1, si je trouve le numero au moins une fois je compte toujours 1.)
voici ma macro mai j'ai une erreur
Merci d'avance de votre aide
voila j'ai un classeur excel avec deux feuilles
feuil1=''Global count'' et feuil2=''availability''
Mon objectif c'est chercher les elements de la feuille2 dans la feuille1 grace a deux colonne de la feuille2 identique dans la feuil1.
donc je veux parcourir la feuille1 , ligne par ligne verifier si je retrouve ce que je cherche a partir de ces donnees la, puis inscrire dans la feuille2 le nombre d'elements trouves a la ligne considere.
NB; la feuille1 a deux colonnes de recherche pour chaque element i.
(si je retrouve le meme numero deux fois , je compte 1, si je trouve le numero au moins une fois je compte toujours 1.)
voici ma macro mai j'ai une erreur
Code:
Sub availability_datas()
Dim i, j As Integer ' declaration des variables entieres i,j
Dim DernLigne, Item_Number, GB_Dernline, RN_Item_Number, nd_Item_Number As Long ' derniere ligne de la feuille.
Dim availability As Worksheet
Dim Count As Integer
DernLigne = Worksheets("availability").Range("A1048576").End(xlUp).Row 'derniere ligne de la feuille availability
GB_Dernline = Worksheets("Global count").Range("A1048576").End(xlUp).Row 'derniere ligne de la feuille global count
Count = 0
For i = 3 To DernLigne
' on fixe le numero de l'item_Number, puis on fait la recharche dans la seconde feuille.
Item_Number = Worksheets("availability").Cells(i, "A").Value
For j = 2 To GB_Dernline 'la boucle est pour la feuille "Global count"
RN_Item_Number = Worksheets("Global count").Cells(j, "F").Value
nd_Item_Number = Worksheets("Global count").Cells(j, "G").Value
If Item_Number = RN_Item_Number Then
Count = Cout + 1
ElseIf Item_Number = Item_Number Then
Count = Count + 1
Else
Count = 0
End If
Count = Count 'quantite trouvee
Next
Worksheets("availability").Cells(i, "G").Value = Count 'Nombre d'items trouves pour l'Item_Number considere
Next
End Sub
Merci d'avance de votre aide