Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JLuc
*Bonjour fredbzr*,
Private Sub CommandButton17_Click() With ActiveSheet .UnProtect Password := "toto" Range("A16:W504").Sort Key1:=Range("A16"), _ Order1:=xlAscending, Key2:=Range("B16"), _ Order2:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:= _ False, Orientation:=xlTopToBottom .Protect Password := "toto" End With End Sub Attention de ne pas perdre les clés de la Ferrari
Bonjour Papou Peux-tu me donner le code car je ne sais pas faire en VBA merci de ton coup de main
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
*Bonjour fredbzr*,
Private Sub CommandButton17_Click()
With ActiveSheet
.UnProtect Password := "toto"
Range("A16:W504").Sort Key1:=Range("A16"), _
Order1:=xlAscending, Key2:=Range("B16"), _
Order2:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom
.Protect Password := "toto"
End With
End Sub
Attention de ne pas perdre les clés de la Ferrari
Bonjour Papou
Peux-tu me donner le code car je ne sais pas faire en VBA
merci de ton coup de main
Private Sub CommandButton17_Click() With ActiveSheet .UnProtect Password := "toto" Range("A16:W504").Sort Key1:=Range("A16"), _ Order1:=xlAscending, Key2:=Range("B16"), _ Order2:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:= _ False, Orientation:=xlTopToBottom .Protect Password := "toto" End With End Sub Attention de ne pas perdre les clés de la Ferrari
Bonjour Papou Peux-tu me donner le code car je ne sais pas faire en VBA merci de ton coup de main
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
fredbzr
Bonsoir Jluc
merci de t'être penché sur mon problème j'ai intégré les deux lignes en plus mais il y a un bug:erreur d'execution 1004, la méthode unprotect de la classe worksheet a échoué
Que faut-il corriger? "JLuc" a écrit dans le message de news:
*Bonjour fredbzr*,
Private Sub CommandButton17_Click() With ActiveSheet .UnProtect Password := "toto" Range("A16:W504").Sort Key1:=Range("A16"), _ Order1:=xlAscending, Key2:=Range("B16"), _ Order2:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:= _ False, Orientation:=xlTopToBottom .Protect Password := "toto" End With End Sub Attention de ne pas perdre les clés de la Ferrari
Bonjour Papou Peux-tu me donner le code car je ne sais pas faire en VBA merci de ton coup de main
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
Bonsoir Jluc
merci de t'être penché sur mon problème
j'ai intégré les deux lignes en plus mais il y a un bug:erreur d'execution
1004, la méthode unprotect de la classe worksheet a échoué
Que faut-il corriger?
"JLuc" <ns.jeanluc.laurent@free.fr.ns> a écrit dans le message de news:
mn.24cf7d64688d32e7.40692@free.fr.ns...
*Bonjour fredbzr*,
Private Sub CommandButton17_Click()
With ActiveSheet
.UnProtect Password := "toto"
Range("A16:W504").Sort Key1:=Range("A16"), _
Order1:=xlAscending, Key2:=Range("B16"), _
Order2:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom
.Protect Password := "toto"
End With
End Sub
Attention de ne pas perdre les clés de la Ferrari
Bonjour Papou
Peux-tu me donner le code car je ne sais pas faire en VBA
merci de ton coup de main
merci de t'être penché sur mon problème j'ai intégré les deux lignes en plus mais il y a un bug:erreur d'execution 1004, la méthode unprotect de la classe worksheet a échoué
Que faut-il corriger? "JLuc" a écrit dans le message de news:
*Bonjour fredbzr*,
Private Sub CommandButton17_Click() With ActiveSheet .UnProtect Password := "toto" Range("A16:W504").Sort Key1:=Range("A16"), _ Order1:=xlAscending, Key2:=Range("B16"), _ Order2:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:= _ False, Orientation:=xlTopToBottom .Protect Password := "toto" End With End Sub Attention de ne pas perdre les clés de la Ferrari
Bonjour Papou Peux-tu me donner le code car je ne sais pas faire en VBA merci de ton coup de main
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
JLuc
*Bonjour fredbzr*, C'est etrange, j'ai reteste et ca marche ! 8-o Essaie peut etre de recopier la macro complete (un oubli d'un point ou autre :/ )
Bonsoir Jluc
merci de t'être penché sur mon problème j'ai intégré les deux lignes en plus mais il y a un bug:erreur d'execution 1004, la méthode unprotect de la classe worksheet a échoué
Que faut-il corriger? "JLuc" a écrit dans le message de news:
*Bonjour fredbzr*,
Private Sub CommandButton17_Click() With ActiveSheet .UnProtect Password := "toto" Range("A16:W504").Sort Key1:=Range("A16"), _ Order1:=xlAscending, Key2:=Range("B16"), _ Order2:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:= _ False, Orientation:=xlTopToBottom .Protect Password := "toto" End With End Sub Attention de ne pas perdre les clés de la Ferrari
Bonjour Papou Peux-tu me donner le code car je ne sais pas faire en VBA merci de ton coup de main
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
*Bonjour fredbzr*,
C'est etrange, j'ai reteste et ca marche ! 8-o
Essaie peut etre de recopier la macro complete (un oubli d'un point ou
autre :/ )
Bonsoir Jluc
merci de t'être penché sur mon problème
j'ai intégré les deux lignes en plus mais il y a un bug:erreur d'execution
1004, la méthode unprotect de la classe worksheet a échoué
Que faut-il corriger?
"JLuc" <ns.jeanluc.laurent@free.fr.ns> a écrit dans le message de news:
mn.24cf7d64688d32e7.40692@free.fr.ns...
*Bonjour fredbzr*,
Private Sub CommandButton17_Click()
With ActiveSheet
.UnProtect Password := "toto"
Range("A16:W504").Sort Key1:=Range("A16"), _
Order1:=xlAscending, Key2:=Range("B16"), _
Order2:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom
.Protect Password := "toto"
End With
End Sub
Attention de ne pas perdre les clés de la Ferrari
Bonjour Papou
Peux-tu me donner le code car je ne sais pas faire en VBA
merci de ton coup de main
*Bonjour fredbzr*, C'est etrange, j'ai reteste et ca marche ! 8-o Essaie peut etre de recopier la macro complete (un oubli d'un point ou autre :/ )
Bonsoir Jluc
merci de t'être penché sur mon problème j'ai intégré les deux lignes en plus mais il y a un bug:erreur d'execution 1004, la méthode unprotect de la classe worksheet a échoué
Que faut-il corriger? "JLuc" a écrit dans le message de news:
*Bonjour fredbzr*,
Private Sub CommandButton17_Click() With ActiveSheet .UnProtect Password := "toto" Range("A16:W504").Sort Key1:=Range("A16"), _ Order1:=xlAscending, Key2:=Range("B16"), _ Order2:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:= _ False, Orientation:=xlTopToBottom .Protect Password := "toto" End With End Sub Attention de ne pas perdre les clés de la Ferrari
Bonjour Papou Peux-tu me donner le code car je ne sais pas faire en VBA merci de ton coup de main
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
fredbzr
C'est ce que j'ai fait et pourtant toujours la même erreur
"JLuc" a écrit dans le message de news:
*Bonjour fredbzr*, C'est etrange, j'ai reteste et ca marche ! 8-o Essaie peut etre de recopier la macro complete (un oubli d'un point ou autre :/ )
Bonsoir Jluc
merci de t'être penché sur mon problème j'ai intégré les deux lignes en plus mais il y a un bug:erreur d'execution 1004, la méthode unprotect de la classe worksheet a échoué
Que faut-il corriger? "JLuc" a écrit dans le message de news:
*Bonjour fredbzr*,
Private Sub CommandButton17_Click() With ActiveSheet .UnProtect Password := "toto" Range("A16:W504").Sort Key1:=Range("A16"), _ Order1:=xlAscending, Key2:=Range("B16"), _ Order2:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:= _ False, Orientation:=xlTopToBottom .Protect Password := "toto" End With End Sub Attention de ne pas perdre les clés de la Ferrari
Bonjour Papou Peux-tu me donner le code car je ne sais pas faire en VBA merci de ton coup de main
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
C'est ce que j'ai fait et pourtant toujours la même erreur
"JLuc" <ns.jeanluc.laurent@free.fr.ns> a écrit dans le message de news:
mn.25597d64dc8f36fe.40692@free.fr.ns...
*Bonjour fredbzr*,
C'est etrange, j'ai reteste et ca marche ! 8-o
Essaie peut etre de recopier la macro complete (un oubli d'un point ou
autre :/ )
Bonsoir Jluc
merci de t'être penché sur mon problème
j'ai intégré les deux lignes en plus mais il y a un bug:erreur
d'execution 1004, la méthode unprotect de la classe worksheet a échoué
Que faut-il corriger?
"JLuc" <ns.jeanluc.laurent@free.fr.ns> a écrit dans le message de news:
mn.24cf7d64688d32e7.40692@free.fr.ns...
*Bonjour fredbzr*,
Private Sub CommandButton17_Click()
With ActiveSheet
.UnProtect Password := "toto"
Range("A16:W504").Sort Key1:=Range("A16"), _
Order1:=xlAscending, Key2:=Range("B16"), _
Order2:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom
.Protect Password := "toto"
End With
End Sub
Attention de ne pas perdre les clés de la Ferrari
Bonjour Papou
Peux-tu me donner le code car je ne sais pas faire en VBA
merci de ton coup de main
C'est ce que j'ai fait et pourtant toujours la même erreur
"JLuc" a écrit dans le message de news:
*Bonjour fredbzr*, C'est etrange, j'ai reteste et ca marche ! 8-o Essaie peut etre de recopier la macro complete (un oubli d'un point ou autre :/ )
Bonsoir Jluc
merci de t'être penché sur mon problème j'ai intégré les deux lignes en plus mais il y a un bug:erreur d'execution 1004, la méthode unprotect de la classe worksheet a échoué
Que faut-il corriger? "JLuc" a écrit dans le message de news:
*Bonjour fredbzr*,
Private Sub CommandButton17_Click() With ActiveSheet .UnProtect Password := "toto" Range("A16:W504").Sort Key1:=Range("A16"), _ Order1:=xlAscending, Key2:=Range("B16"), _ Order2:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:= _ False, Orientation:=xlTopToBottom .Protect Password := "toto" End With End Sub Attention de ne pas perdre les clés de la Ferrari
Bonjour Papou Peux-tu me donner le code car je ne sais pas faire en VBA merci de ton coup de main
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
isabelle
bonjour Fred,
vérifie que le focus soit bien sur la feuille et non sur le bouton, peut être en modifiant la propriété "TakeFocusOnClick" du bouton à false.
isabelle
C'est ce que j'ai fait et pourtant toujours la même erreur
"JLuc" a écrit dans le message de news:
*Bonjour fredbzr*, C'est etrange, j'ai reteste et ca marche ! 8-o Essaie peut etre de recopier la macro complete (un oubli d'un point ou autre :/ )
Bonsoir Jluc
merci de t'être penché sur mon problème j'ai intégré les deux lignes en plus mais il y a un bug:erreur d'execution 1004, la méthode unprotect de la classe worksheet a échoué
Que faut-il corriger? "JLuc" a écrit dans le message de news:
*Bonjour fredbzr*,
Private Sub CommandButton17_Click() With ActiveSheet .UnProtect Password := "toto" Range("A16:W504").Sort Key1:=Range("A16"), _ Order1:=xlAscending, Key2:=Range("B16"), _ Order2:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:= _ False, Orientation:=xlTopToBottom .Protect Password := "toto" End With End Sub Attention de ne pas perdre les clés de la Ferrari
Bonjour Papou Peux-tu me donner le code car je ne sais pas faire en VBA merci de ton coup de main
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
bonjour Fred,
vérifie que le focus soit bien sur la feuille et non sur le bouton,
peut être en modifiant la propriété "TakeFocusOnClick" du bouton à false.
isabelle
C'est ce que j'ai fait et pourtant toujours la même erreur
"JLuc" <ns.jeanluc.laurent@free.fr.ns> a écrit dans le message de news:
mn.25597d64dc8f36fe.40692@free.fr.ns...
*Bonjour fredbzr*,
C'est etrange, j'ai reteste et ca marche ! 8-o
Essaie peut etre de recopier la macro complete (un oubli d'un point ou
autre :/ )
Bonsoir Jluc
merci de t'être penché sur mon problème
j'ai intégré les deux lignes en plus mais il y a un bug:erreur
d'execution 1004, la méthode unprotect de la classe worksheet a échoué
Que faut-il corriger?
"JLuc" <ns.jeanluc.laurent@free.fr.ns> a écrit dans le message de news:
mn.24cf7d64688d32e7.40692@free.fr.ns...
*Bonjour fredbzr*,
Private Sub CommandButton17_Click()
With ActiveSheet
.UnProtect Password := "toto"
Range("A16:W504").Sort Key1:=Range("A16"), _
Order1:=xlAscending, Key2:=Range("B16"), _
Order2:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom
.Protect Password := "toto"
End With
End Sub
Attention de ne pas perdre les clés de la Ferrari
Bonjour Papou
Peux-tu me donner le code car je ne sais pas faire en VBA
merci de ton coup de main
vérifie que le focus soit bien sur la feuille et non sur le bouton, peut être en modifiant la propriété "TakeFocusOnClick" du bouton à false.
isabelle
C'est ce que j'ai fait et pourtant toujours la même erreur
"JLuc" a écrit dans le message de news:
*Bonjour fredbzr*, C'est etrange, j'ai reteste et ca marche ! 8-o Essaie peut etre de recopier la macro complete (un oubli d'un point ou autre :/ )
Bonsoir Jluc
merci de t'être penché sur mon problème j'ai intégré les deux lignes en plus mais il y a un bug:erreur d'execution 1004, la méthode unprotect de la classe worksheet a échoué
Que faut-il corriger? "JLuc" a écrit dans le message de news:
*Bonjour fredbzr*,
Private Sub CommandButton17_Click() With ActiveSheet .UnProtect Password := "toto" Range("A16:W504").Sort Key1:=Range("A16"), _ Order1:=xlAscending, Key2:=Range("B16"), _ Order2:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:= _ False, Orientation:=xlTopToBottom .Protect Password := "toto" End With End Sub Attention de ne pas perdre les clés de la Ferrari
Bonjour Papou Peux-tu me donner le code car je ne sais pas faire en VBA merci de ton coup de main
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
fredbzr
Bonjour Isabelle,
je viens de suivre ton conseil et çà fonctionne !! Tu viens de m'enlever une sacré épine du pied,
Je vous (toi et le forum) remercie une nouvelle fois pour votre aide précieuse
Bonne journée "isabelle" a écrit dans le message de news: %
bonjour Fred,
vérifie que le focus soit bien sur la feuille et non sur le bouton, peut être en modifiant la propriété "TakeFocusOnClick" du bouton à false.
isabelle
C'est ce que j'ai fait et pourtant toujours la même erreur
"JLuc" a écrit dans le message de news:
*Bonjour fredbzr*, C'est etrange, j'ai reteste et ca marche ! 8-o Essaie peut etre de recopier la macro complete (un oubli d'un point ou autre :/ )
Bonsoir Jluc
merci de t'être penché sur mon problème j'ai intégré les deux lignes en plus mais il y a un bug:erreur d'execution 1004, la méthode unprotect de la classe worksheet a échoué
Que faut-il corriger? "JLuc" a écrit dans le message de news:
*Bonjour fredbzr*,
Private Sub CommandButton17_Click() With ActiveSheet .UnProtect Password := "toto" Range("A16:W504").Sort Key1:=Range("A16"), _ Order1:=xlAscending, Key2:=Range("B16"), _ Order2:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:= _ False, Orientation:=xlTopToBottom .Protect Password := "toto" End With End Sub Attention de ne pas perdre les clés de la Ferrari
Bonjour Papou Peux-tu me donner le code car je ne sais pas faire en VBA merci de ton coup de main
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
Bonjour Isabelle,
je viens de suivre ton conseil et çà fonctionne !!
Tu viens de m'enlever une sacré épine du pied,
Je vous (toi et le forum) remercie une nouvelle fois pour votre aide
précieuse
Bonne journée
"isabelle" <hoHoho@hohoHo> a écrit dans le message de news:
%233lFJPEWGHA.1200@TK2MSFTNGP03.phx.gbl...
bonjour Fred,
vérifie que le focus soit bien sur la feuille et non sur le bouton,
peut être en modifiant la propriété "TakeFocusOnClick" du bouton à false.
isabelle
C'est ce que j'ai fait et pourtant toujours la même erreur
"JLuc" <ns.jeanluc.laurent@free.fr.ns> a écrit dans le message de news:
mn.25597d64dc8f36fe.40692@free.fr.ns...
*Bonjour fredbzr*,
C'est etrange, j'ai reteste et ca marche ! 8-o
Essaie peut etre de recopier la macro complete (un oubli d'un point ou
autre :/ )
Bonsoir Jluc
merci de t'être penché sur mon problème
j'ai intégré les deux lignes en plus mais il y a un bug:erreur
d'execution 1004, la méthode unprotect de la classe worksheet a échoué
Que faut-il corriger?
"JLuc" <ns.jeanluc.laurent@free.fr.ns> a écrit dans le message de news:
mn.24cf7d64688d32e7.40692@free.fr.ns...
*Bonjour fredbzr*,
Private Sub CommandButton17_Click()
With ActiveSheet
.UnProtect Password := "toto"
Range("A16:W504").Sort Key1:=Range("A16"), _
Order1:=xlAscending, Key2:=Range("B16"), _
Order2:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom
.Protect Password := "toto"
End With
End Sub
Attention de ne pas perdre les clés de la Ferrari
Bonjour Papou
Peux-tu me donner le code car je ne sais pas faire en VBA
merci de ton coup de main
je viens de suivre ton conseil et çà fonctionne !! Tu viens de m'enlever une sacré épine du pied,
Je vous (toi et le forum) remercie une nouvelle fois pour votre aide précieuse
Bonne journée "isabelle" a écrit dans le message de news: %
bonjour Fred,
vérifie que le focus soit bien sur la feuille et non sur le bouton, peut être en modifiant la propriété "TakeFocusOnClick" du bouton à false.
isabelle
C'est ce que j'ai fait et pourtant toujours la même erreur
"JLuc" a écrit dans le message de news:
*Bonjour fredbzr*, C'est etrange, j'ai reteste et ca marche ! 8-o Essaie peut etre de recopier la macro complete (un oubli d'un point ou autre :/ )
Bonsoir Jluc
merci de t'être penché sur mon problème j'ai intégré les deux lignes en plus mais il y a un bug:erreur d'execution 1004, la méthode unprotect de la classe worksheet a échoué
Que faut-il corriger? "JLuc" a écrit dans le message de news:
*Bonjour fredbzr*,
Private Sub CommandButton17_Click() With ActiveSheet .UnProtect Password := "toto" Range("A16:W504").Sort Key1:=Range("A16"), _ Order1:=xlAscending, Key2:=Range("B16"), _ Order2:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:= _ False, Orientation:=xlTopToBottom .Protect Password := "toto" End With End Sub Attention de ne pas perdre les clés de la Ferrari
Bonjour Papou Peux-tu me donner le code car je ne sais pas faire en VBA merci de ton coup de main
