Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2019 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: 4
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
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…