Agir en fonction de la feuille active

[lanoe]

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

 

[PascalXLD]

Re : Agir en fonction de la feuille active

Bonjour

un essai

Private Sub CommandButton1_Click()

If ActiveSheet.Name = "Feuil3" Or ActiveSheet.Name = "Feuil4" Or ActiveSheet.Name = "Feuil5" Then

ActiveSheet.Range("B1").Value = CDate(txtDatePrevue)
ActiveSheet.Range("C1").Value = ComboBox8.Value

End If

End Sub

 

[BERRACHED said]

Re : Agir en fonction de la feuille active

Salut,lanoe

une ébauche a ton probléme en selectionnant la feuille de ton choix

PS: Le combo n'est alimenter tu peux ecrire dessus c'est un test simplementcordialement

 

[lanoe]

Re : Agir en fonction de la feuille active

Re...

Merci à vous deux, le code de PascalXLD fonctionne parfaitement.

lanoe