Code VBA - Si cellule vide alors écrire

Résolu/Fermé

spacefarmer - 19 déc. 2016 à 11:37
Zoul67 Messages postés 1959 Date d'inscription lundi 3 mai 2010 Statut Membre Dernière intervention 30 janvier 2023 - 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

A voir également:

Vba si cellule vide alors message
Coeur vide ✓ - Forum Réseaux sociaux
Diff message ✓ - Forum Mobile
Formate pour taxer client frigo vide ✓ - Forum Vos droits sur internet
Si cellule contient texte alors ✓ - Forum Excel
Excel si cellule contient texte alors 1 ✓ - Forum Excel

1 réponse

Réponse 1 / 1

Zoul67 Messages postés 1959 Date d'inscription lundi 3 mai 2010 Statut Membre Dernière intervention 30 janvier 2023 149
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://forums.commentcamarche.net/forum/affich-37622001-vba-detection-de-cellule-vide-ligne-colonnne à la place de la boucle While.

A+

spacefarmer
19 déc. 2016 à 14:18

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

Merci encore et joyeuse fêtes !

Zoul67 Messages postés 1959 Date d'inscription lundi 3 mai 2010 Statut Membre Dernière intervention 30 janvier 2023 149
19 déc. 2016 à 14:40

Ne te flagelle pas, c'est normal de ne pas savoir quand on débute.

Discussions similaires

Interrompre Boucle si cellule vide dans la colonne A

valeur derniere cellule dans une colonne

Afficher la valeur de la derniere cellule non vide dans textbox

Retour à la ligne en VBA

Afficher le numéro de ligne de la cellule

VBA : stocker n° ligne cellule dans un for each

Discussions similaires

Newsletters