Agir en fonction de la feuille active

lanoe · 9 Octobre 2008

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 · 9 Octobre 2008

Re : Agir en fonction de la feuille active

Bonjour

un essai

Code:

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 · 9 Octobre 2008

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 · 9 Octobre 2008

Re : Agir en fonction de la feuille active

Re...

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

lanoe

Agir en fonction de la feuille active

lanoe

XLDnaute Occasionnel

PascalXLD

XLDnaute Barbatruc

BERRACHED said

XLDnaute Accro

Pièces jointes

lanoe

XLDnaute Occasionnel

Discussions similaires