Si cellule vide le compteur ne doit pas démarrer.

[Philippe95]

Bonjour à vous tous !
J’utilise un compteur pour effectuer certaines actions de vente aux enchères et je souhaiterai ne pouvoir utiliser ce compteur, donc que des valeurs s’inscrive dans la colonne assignée (D), seulement si j’ai renseigné la 1 ère cellule (D1) avec une valeur quelconque et que rien ne se produise si D1 est vide.
Cela vous semble-t-il envisageable ?
Merci de toutes vos réponses, qui comme à l’accoutumé ne manquerons pas de pertinence.
Philippe.

 

[gilbert_RGI]

Re : Si cellule vide le compteur ne doit pas démarrer.

bonjour,

peut-être ça

Private Sub CommandButton1_Click()
    Dim lig As Integer, a As Integer
    If [d1] = "" Then Exit Sub
    lig = Range("D65536").End(xlUp).Row
    If Not IsNumeric([d1]) Then
    a = 0
    Else
    a = Range("D" & lig)
    End If
    Range("D" & lig + 1) = a + 10
End Sub

 

[Philippe95]

Re : Si cellule vide le compteur ne doit pas démarrer.

Bonsoir Gilbert !
Pas peut-être, surement !
Impeccable, je te remercie beaucoup ...
Bon weekend à vous tous !
Philippe