vérification cellule non vide

Modeste

XLDnaute Barbatruc

• 4 Décembre 2010

• #2

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à!

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 4 Décembre 2010

• #3

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

Code:

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

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 4 Décembre 2010

• #4

Re : vérification cellule non vide

Bonjour à tous,

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

En H9 et suivantes :

Code:

=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++

 

Vote positif 0 Vote négatif

T

titom59280

Guest

• 4 Décembre 2010

• #5

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é.

 

Vote positif 0 Vote négatif

T

titom59280

Guest

• 4 Décembre 2010

• #6

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

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 4 Décembre 2010

• #7

Re : vérification cellule non vide

Re, salut JC 🙂,
Alors modifies la macro

Code:

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

 

Vote positif 0 Vote négatif

T

titom59280

Guest

• 4 Décembre 2010

• #8

Re : vérification cellule non vide

ca marche nikel merci a tous pour votre aide

 

Vote positif 0 Vote négatif