Bonjour,

J'aurai besoin d'une aide sur l'instruction if suivante.
J'ai besoin de faire un test sur plusieurs cellules d'une même colonne pour cela j'ai écrit une boucle for avec une instruction if
La boucle for s'effectue sur les cellules A4 jusqu'à A35 la valeur et numérique sauf pour la dernière cellule celle-ci et en alpha
le if ne fonctionne pas sur la ligne qui est en alpha comment puis-je faire fonctionner le if????

Ma procedure:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Range("A4").Select
 
jour = Day(Date)
 
For Each Cellule In Range("A4:A35")
 
testcell = Cellule
Var2 = Cellule.Row
 
If Cells(Cellule, jour) = Cellule Then
'Ajout de 4509 dans la nouvelle ligne en colonne B Var2
    Range("B" & Var2 & "").Select
    ActiveCell.FormulaR1C1 = "4509"
 
Exit For
End If