Code VBA - Si cellule vide alors écrire

Résolu/Fermé
spacefarmer - 19 déc. 2016 à 11:37
Zoul67
Messages postés
1954
Date d'inscription
lundi 3 mai 2010
Statut
Membre
Dernière intervention
3 février 2022
- 19 déc. 2016 à 14:40
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

1 réponse

Zoul67
Messages postés
1954
Date d'inscription
lundi 3 mai 2010
Statut
Membre
Dernière intervention
3 février 2022
147
19 déc. 2016 à 12:31
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://www.commentcamarche.net/faq/32220-vba-toutes-versions-detection-de-cellule-vide-ligne-colonne à la place de la boucle While.

A+
1
Super, juste un grand merci pour ce bout de code qui doit te sembler tellement basique.

Merci encore et joyeuse fêtes !
0
Zoul67
Messages postés
1954
Date d'inscription
lundi 3 mai 2010
Statut
Membre
Dernière intervention
3 février 2022
147
19 déc. 2016 à 14:40
Ne te flagelle pas, c'est normal de ne pas savoir quand on débute.
0