si cellule vide ecrire dedans

[gao77610]

Bonjour à tous

je bloque sur une formule.
Voila mon soucis, je voudrais faire en sorte qu'à chaque changement de jour, je clic sur un bouton pour gérer un stock.

explication :

Feuil1 > les boutons en B1 C1 D1 etc qui augmente ou diminue le stock
feuil2 > A1 (date du jour) B1, C1 ,D1 etc , les produits

le lendemain
Feuil2 > A2 ( date du jour) B2, C2 D2 toujours les meme produits.

Private Sub CommandButton1_Click()
Sheets("Sortie").Range("B3") = Sheets("Sortie").Range("B3") - 1
Sheets("HS").Range("B3") = Sheets("HS").Range("B3") + 1
Sheets("Stock").Range("B3") = Sheets("Stock").Range("B3") - 1
Sheets("Sortie").Range("A3").End(xlUp).Offset(2, 0).Value = Format(Now(), "dd/mm/yy")
Sheets("Stock").Range("A3").End(xlUp).Offset(2, 0).Value = Format(Now(), "dd/mm/yy")
End Sub

J'espere avoir été assez explicite

Merci par avance

 

[job75]

Re : si cellule vide ecrire dedans

Bonjour gao77610,

J'espere avoir été assez explicite

Ben non...

je bloque sur une formule.

Laquelle ??

Et quel rapport dans tout ça avec le titre "si cellule vide ecrire dedans" ?

A+

 

[gao77610]

Re : si cellule vide ecrire dedans

Bonjour

Le soucis c'est que cela ecrit toujours sur le même ligne,

merci deja pour ta reponse rapide

😱

 

[job75]

Re : si cellule vide ecrire dedans

Re,

Le soucis c'est que cela ecrit toujours sur le même ligne

Pas beaucoup plus clair.

En passant, 2 lignes sans doute à corriger dans le code :

Sheets("Sortie").Range("A[COLOR="Red"]65536[/COLOR]").End(xlUp).Offset(2, 0).Value = Format([COLOR="Red"]Now[/COLOR], "dd/mm/yy")
Sheets("Stock").Range("A[COLOR="Red"]65536[/COLOR]").End(xlUp).Offset(2, 0).Value = Format([COLOR="Red"]Now[/COLOR], "dd/mm/yy")

A+

 

[job75]

Re : si cellule vide ecrire dedans

Re,

Une précision : les "dates" que vous entrez en colonnes A sont des textes.

Il vaut mieux avoir des dates sous forme de nombres :

Sheets("Sortie").Range("A65536").End(xlUp).Offset(2, 0).Value = [COLOR="Red"]Date[/COLOR]
Sheets("Stock").Range("A65536").End(xlUp).Offset(2, 0).Value = [COLOR="Red"]Date[/COLOR]

Appliquez aux colonnes A le format "jj/mm/aa" si vous le souhaitez (menu Format-Cellule).

A+

 

[gao77610]

Re : si cellule vide ecrire dedans

Bonsoir

Merci pour la réponse , mais là sa change à chaque clic sur le bouton.
Ce que je souhaite, c'est que quand je change de jour que sa change de ligne.
Car je clic une trentaine de fois sur le bouton.

Merci quand meme , cela m'aide aussi , je suis débutant dans le genre😀

 

[job75]

Re : si cellule vide ecrire dedans

Bonsoir,

Ah maintenant on comprend...

Alors remplacer les 2 dernières lignes de code par les 5 suivantes :

Dim DateSortie As Range, DateStock As Range 'de préférence en début de macro
Set DateSortie = Sheets("Sortie").Range("A65536").End(xlUp)
Set DateStock = Sheets("Stock").Range("A65536").End(xlUp)
DateSortie.Offset(IIf(Date <> DateSortie, 2, 0), 0).Value = Date
DateStock.Offset(IIf(Date <> DateStock, 2, 0), 0).Value = Date

A+

 

[gao77610]

Re : si cellule vide ecrire dedans

Bonjour

Merci pour la réponse rapide et efficace

A+
🙂