XL 2019 Besoin d'aide svp - code de destockage

Lune999

XLDnaute Nouveau
Bien le bonjour,

Je fais appel à vos âmes bienveillantes pour m'aider à résoudre mon problème. J'aimerai faire en sorte que le code :
- Trouve et sélectionne la cellule égale à la valeur Sheet("Destock").Range("D3") dans mon classeur,
- Et que dans la première cellule vide à droite de la cellule sélectionnée il me renseigne "Sheet("Destocks").Range("D2") + format(now, "dd/mm/yyyy")

Je mets en lien le document Excel sur lequel j'aimerai que le code fonctionne ...
Cela fais 3 semaines que je travailles sur mon code et je n'arrive pas à trouver la solution, j'ai essayer plusieurs choses et je pense que ce qui s'en rapproche le plus est ceci.

Public Sub CommandButtonDestock_Click()

Dim x As Date
Dim y As String, z As String

Dim sht As Worksheet
Dim rng As Range

x = Format(Now, "dd/mm/yyyy")
y = Sheets("Destock").Range("D2")
z = Sheets("Destock").Range("D3")

sht.Name = Sheets(Sheets("Destock").Range("D3"))
sht.Activate

Columns("F").Select

Set rng = Cells.Find(What:=z, After:=ActiveCell)

If Not rng Is Nothing Then
rng.Select

Else
MsgBox "not found"

End If

Range("IV1").End(xlToLeft)(1, 2).Select
ActiveCell.Value = "x ; y"

End Sub



Merci d'avance pour votre aide ! :)
 

Pièces jointes

  • TestFonction.xlsx
    20.9 KB · Affichages: 3
Dernière édition:

Lune999

XLDnaute Nouveau
Bonsoir, merci beaucoup pour ta réponse et pour ton aide, c'est exactement ce que j'aimerai dans le principe
Effectivement je n'ai pas parlé de l'onglet Bank2 mais en effet ; j'ai essayé d'indiquer avec

sht.Name = Sheets(Sheets("Destock").Range("D3"))
sht.Activate

qu'il doit rechercher le code-barre dans l'onglet de nom "sht.Name"... auriez-vous une idée ?

Merci encore pour ton aide :)
 

Discussions similaires

Réponses
1
Affichages
688
Réponses
0
Affichages
267

Membres actuellement en ligne

Aucun membre en ligne actuellement.

Statistiques des forums

Discussions
299 956
Messages
1 980 368
Membres
207 068
dernier inscrit
Mourad05