bonjour à tous ,
j'utilise le code ci dessous qui fonctionne bien :
'..........................Enlève la protection de la Feuille "Feuil4"................................
Sheets("Feuil4").Unprotect Password:="yoyo"
'............................................................................................
'On Error Resume Next
With Sheets("Feuil4")
NV = .Range("A65500").End(xlUp).Row + 1
If Trim(TextBox1.Text) <> "" Then .Range("A" & NV).Value = CDate(TextBox1.Value)
.Range("C" & NV).Value = ComboBox1.Value
.Range("D" & NV).Value = .Range("D" & NV - 1).Value + 1
.Range("E" & NV).Value = TextBox8.Value
.Range("F" & NV).Value = ComboBox4.Value
.Range("G" & NV).Value = TextBox2.Value
.Range("H" & NV).Value = TextBox3.Value
.Range("J" & NV).Value = ComboBox5.Value
.Range("K" & NV).Value = ComboBox6.Value
.Range("M" & NV).Value = ComboBox7.Value
If Trim(TextBox4.Text) <> "" Then .Range("N" & NV).Value = CDate(TextBox4.Value)
.Range("O" & NV).Value = TextBox5.Value
.Range("P" & NV).Value = TextBox6.Value
.Range("Q" & NV).Value = ComboBox8.Value
.Range("L" & NV).Value = TextBox9.Value
.Range("I" & NV).Value = ComboBox10.Value
.Range("B" & NV).Value = TextBox7.Value
End With
'..........................Remet la protection de la Feuille "Feuil4"................................
Sheets("Feuil4").Protect Password:="yoyo", DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Feuil4").EnableSelection = xlUnlockedCells
'............................................................................................
Unload Me
End Sub
mais mon soucis est que sur ma feuil j'ai des cellules qui lance une autre macro par double clique, ce code empêche la selection des celleules verrouillées !
existe t il un code pour autoriser la selection des cellules verrouillées ?
Merci
j'utilise le code ci dessous qui fonctionne bien :
'..........................Enlève la protection de la Feuille "Feuil4"................................
Sheets("Feuil4").Unprotect Password:="yoyo"
'............................................................................................
'On Error Resume Next
With Sheets("Feuil4")
NV = .Range("A65500").End(xlUp).Row + 1
If Trim(TextBox1.Text) <> "" Then .Range("A" & NV).Value = CDate(TextBox1.Value)
.Range("C" & NV).Value = ComboBox1.Value
.Range("D" & NV).Value = .Range("D" & NV - 1).Value + 1
.Range("E" & NV).Value = TextBox8.Value
.Range("F" & NV).Value = ComboBox4.Value
.Range("G" & NV).Value = TextBox2.Value
.Range("H" & NV).Value = TextBox3.Value
.Range("J" & NV).Value = ComboBox5.Value
.Range("K" & NV).Value = ComboBox6.Value
.Range("M" & NV).Value = ComboBox7.Value
If Trim(TextBox4.Text) <> "" Then .Range("N" & NV).Value = CDate(TextBox4.Value)
.Range("O" & NV).Value = TextBox5.Value
.Range("P" & NV).Value = TextBox6.Value
.Range("Q" & NV).Value = ComboBox8.Value
.Range("L" & NV).Value = TextBox9.Value
.Range("I" & NV).Value = ComboBox10.Value
.Range("B" & NV).Value = TextBox7.Value
End With
'..........................Remet la protection de la Feuille "Feuil4"................................
Sheets("Feuil4").Protect Password:="yoyo", DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Feuil4").EnableSelection = xlUnlockedCells
'............................................................................................
Unload Me
End Sub
mais mon soucis est que sur ma feuil j'ai des cellules qui lance une autre macro par double clique, ce code empêche la selection des celleules verrouillées !
existe t il un code pour autoriser la selection des cellules verrouillées ?
Merci