Petit soucis de changement de ligne

[gao77610]

Bonjour à tous

Avec ce code, je n'arrive pas à changer de ligne pour les quantités, pas de prob avec la date.

Sub Macro1()

Dim DateSortie As Range, DateStock As Range, DateHS As Range
Set DateSortie = Sheets("Sortie").Range("A65536").End(xlUp)
Set DateStock = Sheets("Stock").Range("A65536").End(xlUp)
Set DateHS = Sheets("HS").Range("A65536").End(xlUp)
DateSortie.Offset(IIf(Date <> DateSortie, 1, 0), 0).Value = Date
DateStock.Offset(IIf(Date <> DateStock, 1, 0), 0).Value = Date
DateHS.Offset(IIf(Date <> DateHS, 1, 0), 0).Value = Date
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("Ftech").Range("B3") = Sheets("Ftech").Range("B3") + 1
Sheets("Ftech").Range("B4") = Sheets("Ftech").Range("B4") - 1
End Sub

Qu'est-ce qui me manque ???

😀

Merci pour vos réponse

 

[skoobi]

Re : Petit soucis de changement de ligne

Bonjour gao77610,

Qu'est-ce qui me manque ???

Pour l'instant je sais pas mais à nous il manque le fichier...
Ca ira beaucoup plus vite pour résoudre le problème que de devoir créer les feuilles etc...

 

[gao77610]

Re : Petit soucis de changement de ligne

Bonjour

Dsl, mais fichier trop gros meme compresse

Mon soucis je vais expliquer plus détaille

Sub Macro1()

Dim DateSortie As Range, DateStock As Range, DateHS As Range
Set DateSortie = Sheets("Sortie").Range("A65536").End(xlUp)
Set DateStock = Sheets("Stock").Range("A65536").End(xlUp)
Set DateHS = Sheets("HS").Range("A65536").End(xlUp)
DateSortie.Offset(IIf(Date <> DateSortie, 1, 0), 0).Value = Date
DateStock.Offset(IIf(Date <> DateStock, 1, 0), 0).Value = Date
DateHS.Offset(IIf(Date <> DateHS, 1, 0), 0).Value = Date
' les premières ligne changent la date sur une autre ligne en cliquant sur bouton, pas de soucis
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("Ftech").Range("B3") = Sheets("Ftech").Range("B3") + 1
Sheets("Ftech").Range("B4") = Sheets("Ftech").Range("B4") - 1
' Et là je voudrais faire en sorte que quand je clic sur le meme bouton, cela change aussi en meme temps de ligne, mais je n'y arrive pas
End Sub

Est-ce assez explicite

Merci

 

[skoobi]

Re : Petit soucis de changement de ligne

Re,

dans ce cas mets-y un minimum de données représentatif.
Bonne soirée.