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 ! 🙂
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 ! 🙂
Dernière édition:
