Pb code VBA

[choudoudou]

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

 

[noviceAG]

Re : Pb code VBA

Mes salutations,
Cela ne viendrait-il pas de cette ligne

For I = 0 To 22

Sans être un spécialite, il me semble que tu boucle sur 22 lignes non ?
Cordialement

 

[Efgé]

Re : Pb code VBA

Bonjour choudoudou, noviceAG,
En apportant deux changements je n'ai pas d'erreurs d'exécution:
Dim tabpriorite(22) As Long 'et non Integer
For I = 0 To UBound(tabCAA) 'et non 22
(noviceAG , quand on s'occupe de table le premier enregistrement est le 0.)
Il faut vérifier que j'ai pris la bonne table de référence, je ne sais pas quel résultat est attendu.
Cordialement

 

[choudoudou]

Re : Pb code VBA

Bonjour Efgé et novice AG,

J'ai fait les modifications dans le code comme Efgé me l'a indiqué ci dessous.

J'ai toujours le même résultat à savoir des lignes où le résultat est vide
dans la colonne H de la feuille RTC sur certaine lignes

Par exempe,dans la feuille RTC , la ligne 2 et 3 sont identiques pour les données des colonnes B, D et G et en ligne3 , le resultat est "2" alors que pour la ligne 2 , le résultat est "vide" et devrait être "2".

J'espère être clair dans mon explication

Si jamais vous arrivez à me résoudre mon erreur , je vous en remercie par avance

 

[pierrejean]

Re : Pb code VBA

bonjour a tous

Je n'ai pas réussi a suivre ta facon de faire
Aussi je te propose la mienne
NB: Il subsiste des absences mais je pense qu'elle sont justifiées

 

[choudoudou]

Re : Pb code VBA

Merci pour vos réponses,

Effectivement c'est exactement ce que je voulais et cela corrige mon erreur.

Merci pour votre aide