Bonjour à tous...

Voilà, j'ai un petit problème,
Je souhaite alimenter une matrice préremplie (la matrice est dans la feuil4) elle est initialisée comme ceci

A
nom1
0 nom2
0 0 nom3
0 0 0 nom4
0 0 0 0 nom5

Dans ma feuil6 j'ai ma plage suivante

A B
nom2 livre1
nom5 livre2
nom1 livre2
nom3 livre3
nom4 livre1

Comme nom1 et nom5 ont le même livre et nom2 et nom4 ont le même livre
on remplira la matrice comme ceci :

A
nom1
0 nom2
0 0 nom3
0 1 0 nom4
1 0 0 0 nom5

Ces valeurs devront s'incrémenter en fonction des livres en commun par nom

J'ai dons écrit le code suivant :

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
Dim o, k, l, m, nom2, nom3
For o = 2 To 5600 'il ya 5600 lignes
k = Sheets("Feuil6").Cells(o, 2).Value
nom2 = Sheets("Feuil6").Cells(o, 1).Value
nom3 = Sheets("Feuil6").Cells(o + 1, 1).Value
 
n = Left(nom2, 15)
n1 = Left(nom3, 15)
If k <> "" Then
Rechligne1 = Sheets("Feuil4").Cells(o, o).Find(nom2).Row
Rechligne = Sheets("Feuil4").Cells(o + 1, o + 1).Find(nom3).Row
Rechcol1 = Sheets("Feuil4").Range("A1:HFK5560").Find(nom2).Column
Rechcol2 = Sheets("Feuil4").Range("A1:HFK5560").Find(nom3).Column
 
x = Rechligne1
y = Rechligne
Z = Rechcol1
t = Rechcol2
If Sheets("Feuil6").Cells(o + 1, 2).Value = k Then
If Left(nom2, 1) <> Left(nom3, 15) Then
If Left(nom2, 1) < Left(nom3, 15) Then
Sheets("Feuil4").Cells(y, Z).Value = Sheets("Feuil4").Cells(y, Z).Value + 1
Else
Sheets("Feuil4").Cells(x, t).Value = Sheets("Feuil4").Cells(x, t).Value + 1
End If
End If
End If
End If
Next o
Mais il ne s'execute pas, j'ai toujours une erreur, et la matrice ne s'alimente jamais....
Quelqu'un pour m'aider?

Merci...