vérification cellule non vide

[titom59280]

Bonjour A tous j'avais posté une discussion hier matin pour vérifié une cellule adjacente malheureusement meme si j'apprécie l'effort qu'on fournie les personnes qui ont répondu a ma question leur solution n'est pas exactement donc je pense que j'ai mal expliqué mes souhaits.

Pour corriger ca je vous joint un fichier avec 3 commentaires qui seront peut etre plus clair.

Je vous remercie encore pour vos réponses

 

[Modeste]

Re : vérification cellule non vide

Bonjour titom

Comme laetitia90 et james007 ont encore répondu ce matin même dans ton autre fil https://www.excel-downloads.com/threads/verification-cellule-adjacente.154103/ ... Il vaut mieux poursuivre dans celui-là!

 

[kjin]

Re : vérification cellule non vide

Bonjour,
Commence par effacer les codes dans le module de Thisworkbook et ajoutes un module standard
Affectes à tes boutons les 2 macros

Sub heure_debut()
Dim c As Range
Set c = Range("F65000").End(xlUp).Offset(1)
If c = "" Then c = Format(Now, "hh:mm:ss")
End Sub

Sub heure_fin()
Dim c As Range
Set c = Range("F65000").End(xlUp)
If c.Offset(, 1) = "" Then c.Offset(, 1) = Format(Now, "hh:mm:ss")
End Sub

Néanmoins tu n'indiques pas quoi faire si une nouvelle heure de début est saisie alors que l'heure de fin précédente n'a pas était renseignée !

Edit : Bonjour, Modeste 🙂, j'aurais du commencer par là

A+
kjin

 

[JCGL]

Re : vérification cellule non vide

Bonjour à tous,

Sans modifier ton code, s'il fonctionne comme tu le souhaites.

En H9 et suivantes :

=SI(ET(G9<>"";F9="");"Il manque l'heure de début";"")

A+ à tous

Édition : Salut Modeste, Salut Kjin. Oups pas Vu l'autre discussion. A++

 

[titom59280]

Re : vérification cellule non vide

Dans l'ideal si plusieurs heure était saisi ce serai d'avoir un userform demandant a quel heure de début correspond l'heure de fin que l'au foudrai afficher mais je pense que ca serai plutot difficile a faire donc en fait le mieux serai de pas pouvoir mettre une nouvelle heure de début si aucune heure de fin n'est inséré.

 

[titom59280]

Re : vérification cellule non vide

Une petite indication quand meme importante dans mon fichier définitif le code vba que vous avez dans le fichier sera affecter dans un userform donc la solution de JCGL est trés bien mais il faudrai l'adapter pour afficher un message d'erreur

 

[kjin]

Re : vérification cellule non vide

Re, salut JC 🙂,
Alors modifies la macro

Sub heure_debut()
Dim c As Range
Set c = Range("F65000").End(xlUp).Offset(1)
If c = "" [COLOR="Blue"]And c.Offset(-1, 1) <> ""[/COLOR] Then c = Format(Now, "hh:mm:ss")
End Sub

A+
kjin

 

[titom59280]

Re : vérification cellule non vide

ca marche nikel merci a tous pour votre aide