Code VBA - Si cellule vide alors écrire
Résolu
spacefarmer
-
Zoul67 Messages postés 1959 Date d'inscription Statut Membre Dernière intervention -
Zoul67 Messages postés 1959 Date d'inscription Statut Membre Dernière intervention -
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
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
Bonjour,
Associe le bouton à ceci :
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+
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+
Merci encore et joyeuse fêtes !