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 : 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
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