Recherchev sur vba avec un if
bonjour a vous
je suis entrain de m’entraîner sur le vba excel et j'ai monte un petit projet pour essayer d'atteindre votre niveau.
mais je viens de rencontrer mes limite là....je bloque à la combinaison d'une fonction si et la recherchev, je m'aide toujours parfois avec l'enregestrement macro mais la la la...je ne comprend plus---s'il vous plait l'explication ou autre approche d'un sinsei me permettre de voir un peu plus clair..
s'il vous plait me laisser pas tomber.
je vous mait mon code:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
Sub retourCle()
'declaration des variables
Dim compteur As Byte, Cbre As Integer
compteur = 6
'faire une boucle tant que la cellule vide n'est pas trouver
Range("G6").Select
Do
compteur = compteur + 1
Cells(compteur, 7).Select
Loop While Not IsEmpty(ActiveCell)
'condition si cellule vide trouver
If IsEmpty(ActiveCell) Then
Cbre = InputBox("Quel chambre remet la clé :", "Heure retour clé")
Else
If Cbre = Application.VLookup(Cbre, Sheets("Ajout2").Range("B6:I20"), 3, False) Then
ActiveCell.Formula.NumberFormatLocal = Time()
End If
End If
End Sub |
