woorksheet selectionchage

[julie999]

bonjour petit souci sur ce bout de code
je veux faire des que la cellule b1 de la feuille LOAD SLIP PHIL change
alors proteger la feuille avec mot de passe "photobox"

j'utilise ceci

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Sheets("LOAD SLIP PHIL").Select
If Target.Address = "b1" Then
Cells.Select
ActiveSheet.Protect "photobox"
End If

End Sub
code que j'ai mis la feuille LOAD SLIP PHIL dans selection change


julie

 

[Softmama]

Re : woorksheet selectionchage

Bonjour,

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

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

 

[julie999]

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

 

[Softmama]

Re : woorksheet selectionchage

Bonsoir,

essaie ainsi :

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

 

[julie999]

Re : woorksheet selectionchage

ok merci softmama
ca fonctionne
julie

 

[julie999]

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

 

[Softmama]

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"

 

[Pierrot93]

Re : woorksheet selectionchage

Bonjour,

regarde peut être ceci :

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
@+

 

[julie999]

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

 

[Pierrot93]

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" :

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

 

[julie999]

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