Pb macro VBA

Bonjour,

Dans le classeur ci joint , j'ai deux feuilles:

• 1 feuille "priorité"
• 1 feuille "RTC"

Dans la feuille "priorité" , j'ai un tableau qui donne une priorité (colonne D) en fonction de critères (colonne A, B, et C)

Dans la feuille RTC, dans les colonnes ( B, D et G ) , j'ai mes données et je voudrais par une macro que dans la colonne G, on retrouve la "priorité" en fonction des données

J'ai commencé à creer la macro, qui fonctionne pour certaines lignes mais pas sur toutes les lignes et je n'arrive pas à comprendre d'où peut venir l'erreur.

Sub essai_priorite()

Dim tabpriorite(22) As Integer

Dim tabCL5(22) As String

Dim tabCL4(22) As String

Dim tabCAA(22) As String

Dim macellule As Range

' ActiveWorkbook.Worksheets("RTC").Activate

' ActiveSheet.Range("B2").Activate

'construction tableau de référence

For Each macellule In ActiveWorkbook.Worksheets("Priorite").Range("A2:A23")

tabCAA(I) = macellule.Value

tabCL4(I) = macellule.Offset(0, 1).Value

tabCL5(I) = macellule.Offset(0, 2).Value

tabpriorite(I) = macellule.Offset(0, 3).Value

I = I + 1

Next macellule

'Examen de mon tableau

Sheets("RTC").Select

ActiveSheet.Range("B2").Activate

While ActiveCell.Value <> ""

For I = 0 To 22

If ActiveCell.Value = tabCAA(I) And ActiveCell.Offset(I, 2).Value = tabCL4(I) And ActiveCell.Offset(I, 5).Value = tabCL5(I) Then

ActiveCell.Offset(I, 6).Value = tabpriorite(I)

End If

Next I

ActiveCell.Offset(1, 0).Activate

Wend

End Sub

Merci d'avance pour votre

Bonjour,

Sans ouvrir le fichier,

Remplace

For I = 0 To 22

le 0 par le N° de ligne où tu veux que çà commence (la ligne 0 n'existe pas)

Bonne journée

Claude