woorksheet selectionchage

S

Softmama

XLDnaute Accro

• 7 Août 2011

• #2

Re : woorksheet selectionchage

Bonjour,

utilise l'évènement Worksheet_Change et non Worksheet_SelectionChange en ce cas ainsi :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$B$1" Then ActiveSheet.Protect "photobox"
End Sub

 

Dernière édition: 7 Août 2011

Vote positif 0 Vote négatif

J

julie999

XLDnaute Occasionnel

• 7 Août 2011

• #3

Re : woorksheet selectionchage

salut softmama
je crois que mon probleme viens de la
quand je lance la macro le input box fonctionne si je clique sur annuler alors ma cellule b1 est egal a la cellule af1 qui contient la date system
et protege la feuille avec mot de passe photobox
par contre si je met dans input box une date 01/01/2011
il me change bien la date mais ne protege pas la feuille
ou est le probleme dans mon code


Sub Macro14()
'
' Macro14 Macro
' changement de date
'

'
Sheets("LOAD SLIP PHIL").Select
ActiveSheet.Unprotect "photobox"
Range("b1") = Application.InputBox("Quelle date voulez vous entrer ? Mettre la date sous forme ex:01/01/2011", "Changement de date")

ActiveSheet.Protect "photobox"



ActiveSheet.Unprotect "photobox"
If [b1] = [ag1] Then
[b1] = [af1]
ActiveSheet.Protect "photobox"
End If


End Sub

julie

 

Vote positif 0 Vote négatif

S

Softmama

XLDnaute Accro

• 7 Août 2011

• #4

Re : woorksheet selectionchage

Bonsoir,

essaie ainsi :

Code:

Sheets("LOAD SLIP PHIL").Select
ActiveSheet.Unprotect "photobox"
Range("b1") = Application.InputBox("Quelle date voulez vous entrer ? Mettre la date sous forme ex:01/01/2011", "Changement de date")

ActiveSheet.Protect "photobox
ActiveSheet.Unprotect "photobox"
If [b1] = [ag1] Then
[b1] = [af1]
End If
ActiveSheet.Protect "photobox"
End Sub

 

Vote positif 0 Vote négatif

J

julie999

XLDnaute Occasionnel

• 8 Août 2011

• #5

Re : woorksheet selectionchage

ok merci softmama
ca fonctionne
julie

 

Vote positif 0 Vote négatif

J

julie999

XLDnaute Occasionnel

• 8 Août 2011

• #6

Re : woorksheet selectionchage

wouah .....
j'ai un gros probleme sur inputbox bizar
le but de la macro
afficher un inputbox qui demande de changer la date
si je clique sur la croix,annuler ou ok alors la cellule b1 est egal a la cellule af1 qui contient la date system sous forme lun 08 aout 2011 et protege la feuille
si j'entre une nouvelle date il devrait m'afficher cette nouvelle date en celule b1 sous le meme format bien sur et proteger la feuille
hors la macro change bien la date protege la feuille mais quand j'entre en date:
le10/08/2011 il m'affiche sam 8 oct 2011
18/8/2011 il m'affiche 18/8/2011 au lieu de jeu 18 aout 2011
21/08/2011 il m'affiche 21/08/2011 au lieu de dim 21 aout 2011
je comprend rien
bizard non

avec ce code la

Sheets("LOAD SLIP PHIL").Select
ActiveSheet.Unprotect "photobox"
Range("b1") = Application.InputBox("Quelle date voulez vous entrer ? Mettre la date sous forme ex:01/01/2011", "Changement de date")

ActiveSheet.Protect "photobox
ActiveSheet.Unprotect "photobox"
If [b1] = [ag1] Then
[b1] = [af1]
End If
ActiveSheet.Protect "photobox"
End Sub

julie

 

Vote positif 0 Vote négatif

S

Softmama

XLDnaute Accro

• 8 Août 2011

• #7

Re : woorksheet selectionchage

re,

je pense, que le format de ta cellule B1 n'est pas bon :
Rajoute avant le end If cette ligne
[B1].numberformat = "dd/mm/yyyy"

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 8 Août 2011

• #8

Re : woorksheet selectionchage

Bonjour,

regarde peut être ceci :

Code:

With Range("b1")
    .Value = CDate(Application.InputBox("Quelle date voulez vous entrer ? Mettre la date sous forme ex:01/01/2011", "Changement de date", Type:=1))
    .NumberFormat = "ddd d mmmm yyyy"
End With

bon après midi
@+

 

Vote positif 0 Vote négatif

J

julie999

XLDnaute Occasionnel

• 8 Août 2011

• #9

Re : woorksheet selectionchage

oui pierrot avec ton code ca fonctionne
une petite question inputbox type1
avec ce type si je clique sur OK sans mettre de date il me met un message d'erreur
est ce possible de changer le type pour que si je clique sur OK sans mettre de date il me met la date System par défaut(actuellement ça fait ça quand je clique sur annuler ou sur la crois rouge
Julie
merci pierrot ,softmama

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 8 Août 2011

• #10

Re : woorksheet selectionchage

Re,

"type:=1" oblige à ce que la saisie soit un nombre... evite une erreur si texte saisie dans "l'inputbox", une autre approche qui renvoie la date système si "annuler" :

Code:

Dim d As Variant
With Range("b1")
    d = Application.InputBox("Quelle date voulez vous entrer ? Mettre la date sous forme ex:01/01/2011", "Changement de date", Type:=1)
    .Value = IIf(VarType(d) = vbBoolean, Date, CDate(d))
    .NumberFormat = "ddd d mmmm yyyy"
End With

 

Vote positif 0 Vote négatif

J

julie999

XLDnaute Occasionnel

• 8 Août 2011

• #11

Re : woorksheet selectionchage

oui très bien je garde ce code impeccable
aurais tu une idée ??
actuellement de mon menu j'ai des boutons pour accéder au différentes pages de mon classeur
j'aimerais créer un autre bouton qui me renvoie un inputbox ou autre avec a l’intérieur une validation de données et cette validation de donnée contiendrais tous les noms d'onglets sous la forme août 2011,septembre 2011 etc
et un autre bouton du même style mais pour les onglets recap 2011,recap 2012 etc
biens sure si on sélectionne septembre 2011 cette feuille s'affiche
je ne sais pas si c'est possible ça
Julie

 

Vote positif 0 Vote négatif