Code VBA - Si cellule vide alors écrire Résolu

Question

Bonjour à tous et merci par avance pour vos réponses,
Je suis un débutant en VBA et j'ai un véritable casse tête qui va sembler simple pour certain mais que je n'arrive pas à résoudre.
Voilà ce que je cherche à faire:
Dans un tableau Excel, j'ai ajouté un bouton qui doit ajouté la date et l'heure du jour dans la première cellule vide de la colonne A. Donc si cellule de la colonne A vide, alors inscrire la date du jour sur la cellule du dessous.
Ex: Nous sommes le 19/12/2016, 11h33
Affichage souhaité:
Date d'ajout / Date de traitement / Autres champs de colonnes...
19/12/2016, 11h33 / 19/12/2016, 11h50 / ....
Cellule à compléter automatiquement grâce au bouton / Cellule manuelle / ...
Je ne sais pas si j'ai été assez clair mais n'hésitez pas à me poser des questions.
Encore merci à ceux et celles qui prendrons du temps à mon cas.
Romain

Zoul67 · Answer

Bonjour,
Associe le bouton à ceci :
Sub Ajout_horodat()
    i = 1
    While Cells(i, 1).Value <> ""
        i = i + 1
    Wend
    Cells(i, 1).Value = Date & " - " & Time
End Sub
On peut aussi utiliser du code pour trouver la dernière ligne non vide (https://forums.commentcamarche.net/forum/affich-37622001-vba-detection-de-cellule-vide-ligne-colonnne à la place de la boucle While. 
A+

Code VBA - Si cellule vide alors écrire

1 réponse

Votre réponse

Discussions similaires