Macro qui "bug"

Bonjour à toutes et à tous,

J'ai un classeur excel avec une macro assez simple. Elle concerne la colonne F, toutes les cases vides seront automatiquement remplie par l'inscription "non-évaluée". Ainsi si on met un mot, la case ne sera pas affectée. Voici le code :

Private Sub Workbook_Open()

Dim Compteur As Long, i As Integer

Application.EnableEvents = False

For i = 2 To ThisWorkbook.Sheets.Count

With Sheets(i)

For Compteur = 1 To .Range("F" & Rows.Count).End(xlUp).Row

If .Cells(Compteur, 6).Value = "" Then

.Cells(Compteur, 6).Value = "Non-évalué"

End If

Next Compteur

End With

Next i

Application.EnableEv

Malheureusement j'ai dû enlever une colonne, ainsi la colonne "F" devenait "E". J'ai donc modifié le code en :

Private Sub Workbook_Open()

Dim Compteur As Long, i As Integer

Application.EnableEvents = False

For i = 2 To ThisWorkbook.Sheets.Count

With Sheets(i)

For Compteur = 1 To .Range("E" & Rows.Count).End(xlUp).Row

If .Cells(Compteur, 6).Value = "" Then

.Cells(Compteur, 6).Value = "Non-évalué"

End If

Next Compteur

End With

Next i

Application.EnableEvents = True

End Sub

Le problème c'est que le "non-évalué" apparaît toujours en colonne "F"

Aurais-je oublié quelque chose?

Merci d'avance pour vos réponses.

Bonjour le chercheur 76 le forum

bah oui mais il faut tout faire pas seulement la moitié

car .Cells(Compteur, 6).Value reste bien un test sur la colonne 6 donc "F"

donc voilà ce qu'il faut modifier

a+

papou

If .Cells(Compteur, 5).Value = "" Then
.Cells(Compteur, 5).Value = "Non-évalué"
End If

Merci

Maintenant tout fonctionne parfaitement

Re Lechercheur76 le forum

oui cela ne me surprend pas du tout!!!

a+

papou