Erreur VBA

Bonjour,

J'essaie avec VBA excel 2007 de créer une macro qui permet de vérifier les cellules vides en parcourant les colonnes et les lignes de le feuille 1 et puis afficher le résultat (c ad Si cellule vide elle indique le nom de responsable correspondant qui devrait remplir de cette cellule ) mais dans une autre feuille(feuille2)

mais je ne sais pas c'est quoi l'erreur ici

Sub check_PA()

Dim i, j, k As Integer

Dim plage As Range

k = 3

'plage où on doit afficher les messages s'il ya manque de renseignement

Set plage = Sheets("Revue des risques sécurités").Range("O3:AU125")

'boucle i pour parcourir les lignes,(j colonnes) de la feuille 1 principale s'il y a cellule vide

For i = 5 To 176

For j = 16 To 56

'si vrai(cellule concernée de la feuille 1 est vide alors on recopie le nom du responsable(col D) et responsable (ColE) avec message "à Renseigner"

If Sheets("Feuil1").Cells(i, j) = "" Then

'For Each Cell In plage

Sheets("Feuil2r").Cells(k, l).Value = Sheets("Feuil1").Cells(k, 4).Value & Sheets("Feuil1").Cells(k, 4).Value & "à Renseigner"

Sheets("Feuil2").Cells(k, l).Interior.ColorIndex = 4

Else

Sheets("Feuil2").Cells(k, l).Interior.ColorIndex = 2

k = k + 1

End If

Next j

Next i

Bonjour,

Plus facile à voir avec un fichier en PJ

Bonjour,

En attendant le fichier : la variable "l" n'est pas déclarée, et à 0.

Et le nom de feuille à vérifier (une fois "Feuil2", une fois "Feuil2R")

Sheets("Feuil2r").Cells(k, l).Value

Bouben

Bonjour M12, Bouben, Wim

De même qu'ici :

= Sheets("Feuil1").Cells(k, 4).Value & Sheets("Feuil1").Cells(k, 4).Value & "à Renseigner"

on devrait selon indications trouver i au lieu de k, et 4 puis 5.

Cordialement.

c a d je devrai initialisé i ? j'ai mis dans la boucle for i=5 to 176

et concernant feuil 1 j'ai toujours écrit feuil1 c'est le code feuille n'est pas le nom de la feuille, juste faute de frappe ici