Problème de xlCellTypeLastCell dans Excel
Bonsoir à tous et surtout très bonne année !
J'ai besoin pour un logiciel tournant sous Excel d'ouvrir une inputbox si la cellule est différente de la cellule juste au dessus...
J'ai donc pondu le code suivant :
Code:
1
2
3
4
5
6
7
8
9
10
| For Each varCodeCourse In Range("Q2:" & [Q2].SpecialCells(xlCellTypeLastCell).Address)
If varCodeCourse.Value <> varCodeCourse.Offset(-1, 0).Value Then
varNCourse = InputBox("Numéro d'épreuve pour le " & varCodeCourse, "Gestion des courses")
varCodeCourse.Offset(0, -1).Value = varNCourse
varCodeCourse.Select
ElseIf varCodeCourse.Value = varCodeCourse.Offset(-1, 0).Value Then
varCodeCourse.Offset(0, -1).Value = varCodeCourse.Offset(-1, -1).Value
varCodeCourse.Select
End If
Next varCodeCourse |
mais j'ai un problème avec Range("Q2:" & [Q2].SpecialCells(xlCellTypeLastCell).Address) car au lieu de me sélectionner toute les cellules pleine de la colonne Q (à partir de Q2) il me sélectionne toutes les cellules de Q2 à DN389
Où est mon erreur ?? Est-ce un bug ?
Merci d'avance
Nico
