Bonjour le forum,
J’ai un Userform qui reste ouvert en permanence.
Je souhaite :
- Si je suis sur la feuille 3, il « colle » en feuille 3 cellule B1 et C1.
- Si je suis sur la feuille 4, il « colle » en feuille 4 cellule B1 et C1.
- Si je suis sur la feuille 5, il « colle » en feuille 5 cellule B1 et C1.
- Si une autre feuille est selectionner il ne doit rien se passer.
Private Sub CommandButton1_Click()
Dim lign As Long
With Sheets("Feuille3")
.Range("B1").Value = CDate(txtDatePrevue)
.Range("C1").Value = ComboBox8.Value
End With
End Sub
Merci à vous
lanoe
J’ai un Userform qui reste ouvert en permanence.
Je souhaite :
- Si je suis sur la feuille 3, il « colle » en feuille 3 cellule B1 et C1.
- Si je suis sur la feuille 4, il « colle » en feuille 4 cellule B1 et C1.
- Si je suis sur la feuille 5, il « colle » en feuille 5 cellule B1 et C1.
- Si une autre feuille est selectionner il ne doit rien se passer.
Private Sub CommandButton1_Click()
Dim lign As Long
With Sheets("Feuille3")
.Range("B1").Value = CDate(txtDatePrevue)
.Range("C1").Value = ComboBox8.Value
End With
End Sub
Merci à vous
lanoe