Ou Noter prtection Feuille dans ce Code???

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion MuscatMimi
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
MuscatMimi

MuscatMimi

XLDnaute Accro
Bonjour a tous

J'ai un petit soucis

Dans le Code ci-dessous, je ne sais pas ou noter

.Unprotect Password = "0000"

et

.Protect Password = "0000"

Private Sub ListView1_DblClick() 'Pointe ou Dépointe les Ecritures

Dim x As Byte, Numlign As Long

With ListView1
If .ListItems(.SelectedItem.Index).ListSubItems(13).Text = "NP" Then '12 N° de la Colonne M


Numlign = ListView1.SelectedItem.Index + 9 'N° de la 1 iere Ligne de la Base

If MsgBox("Confirmer le Pointage.", vbYesNo, "Pointage") = vbYes Then

.ListItems(.SelectedItem.Index).ListSubItems(13).Text = "P"
Sheets("Data").Range("N" & Numlign) = .ListItems(.SelectedItem.Index).ListSubItems(13).Text
MiseEnForme

.ListItems(.SelectedItem.Index).Selected = False
For x = 1 To 13
Controls("TextBox" & x) = ""
Next
CommandButton2.Enabled = False
Exit Sub

Else
.ListItems(.SelectedItem.Index).Selected = False
For x = 1 To 13
Controls("TextBox" & x) = ""
Next
CommandButton2.Enabled = False
End If
End If

If .ListItems(.SelectedItem.Index).ListSubItems(13).Text = "P" Then
Numlign = ListView1.SelectedItem.Index + 9
If MsgBox("Confirmer la suppression du Pointage.", vbYesNo, "Suppression du Pointage") = vbYes Then
.ListItems(.SelectedItem.Index).ListSubItems(13).Text = "NP"
Sheets("Data").Range("N" & Numlign) = .ListItems(.SelectedItem.Index).ListSubItems(13).Text
MiseEnForme
.ListItems(.SelectedItem.Index).Selected = False
For x = 1 To 13
Controls("TextBox" & x) = ""
Next
CommandButton2.Enabled = False
Exit Sub
Else
.ListItems(.SelectedItem.Index).Selected = False
For x = 1 To 13
Controls("TextBox" & x) = ""
Next
CommandButton2.Enabled = False
End If
End If
End With

End Sub
Cliquez pour agrandir...

Merci a tous a l'avance

Bonne journée
 
Trier par date Trier par votes
Re : Ou Noter prtection Feuille dans ce Code???

Bonjour Vaucluse,

généralement on met Unprotect en début de procédure..................et Protect à la fin ( avant End Sub )
pense également à mettre Protect juste avant Exit sub lorsqu'il y en a
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Ou Noter prtection Feuille dans ce Code???

Bonjour vaucluse, le forum,
Dim x As Byte, Numlign As Long
sheets("data").unprotect password = "0000"
ta macro.....
et à la fin pas à la faim !!!
sheets("data").protect password = "0000"
End sub

Bon lundi
a+
papou
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Ou Noter prtection Feuille dans ce Code???

Bonjour,
Tu as doublé ton code dans le message ou je ne comprends pas !
C'est pas très compliquué, tu dois déprotéger ta feuille avant de la modifier et la reprotéger une fois ces modifs effectuées
Les lignes qui concernent ta feuille
Code: 
With Sheets("Data")
    .Unprotect Password = "0000"
    .Range("N" & Numlign) = "NP"
    .Protect Password = "0000"
End With
Sauf qu'on ne sait pas à quoi est destiné MiseEnForme
A+
kjin
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Ou Noter prtection Feuille dans ce Code???

Bonjour à tous,
Code: 
If .ListItems(.SelectedItem.Index).ListSubItems(13).[COLOR="blue"][B]T ext [/B][/COLOR]= "NP"

le code n'est pas en double, la première partie teste ="NP" et la seconde teste ="P"
Attention il y a un espace "parasite" dans T ext
dans les deux lignes If ListItems .............;

sinon, je ne vois pas pourquoi la réponse donnée à 08h29 ne pourrais pas fonctionner

bonne journée à tous
 
Vote positif 0 Vote négatif
Re : Ou Noter prtection Feuille dans ce Code???

Re,
Non tu n'a pas doublé ton code, mais plutôt bizarre ton code
Donc sans fichier et donc sans filet
Code: 
Private Sub ListView1_DblClick() 'Pointe ou Dépointe les Ecritures
Dim x As Byte, Numlign As Long, Pointage As String
With ListView1
    If MsgBox("Confirmer le Pointage.", vbYesNo, "Pointage") = vbYes Then
        Pointage = .ListItems(.SelectedItem.Index).ListSubItems(13).Text
        Pointage = IIf(Pointage = "NP", "P", "NP")
        Numlign = ListView1.SelectedItem.Index + 9 'N° de la 1 iere Ligne de la Base
        With Sheets("Data")
            .Unprotect password = "0000"
            .Range("N" & Numlign) = Pointage
            MiseEnForme 'faut-il l'inclure ?
            .Protect password = "0000"
        End With
        .ListItems(.SelectedItem.Index).Selected = False
        For x = 1 To 13
            Controls("TextBox" & x) = ""
        Next
        CommandButton2.Enabled = False
    End If
End With

End Sub
A+
kjin
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Ou Noter prtection Feuille dans ce Code???

Bonjour a tous
Merci de vos réponse
Voila ce que j'ai fait avec vos réponse

Private Sub ListView1_DblClick() 'Pointe ou Dépointe les Ecritures

Dim x As Byte, Numlign As Long
With Sheets("Data")
.Unprotect Password:="0000"With ListView1

If .ListItems(.SelectedItem.Index).ListSubItems(13).Text = "NP" Then '12 N° de la Colonne M


Numlign = ListView1.SelectedItem.Index + 9 'N° de la 1 iere Ligne de la Base

If MsgBox("Confirmer le Pointage.", vbYesNo, "Pointage") = vbYes Then

.ListItems(.SelectedItem.Index).ListSubItems(13).Text = "P"

Sheets("Data").Range("N" & Numlign) = .ListItems(.SelectedItem.Index).ListSubItems(13).Text


MiseEnForme

.ListItems(.SelectedItem.Index).Selected = False
For x = 1 To 13
Controls("TextBox" & x) = ""
Next
CommandButton2.Enabled = False
Sheets("Data").Protect Password:="0000"

Exit Sub

Else
.ListItems(.SelectedItem.Index).Selected = False
For x = 1 To 13
Controls("TextBox" & x) = ""
Next
CommandButton2.Enabled = False
End If
End If

If .ListItems(.SelectedItem.Index).ListSubItems(13).Text = "P" Then
Numlign = ListView1.SelectedItem.Index + 9
If MsgBox("Confirmer la suppression du Pointage.", vbYesNo, "Suppression du Pointage") = vbYes Then
.ListItems(.SelectedItem.Index).ListSubItems(13).Text = "NP"
Sheets("Data").Range("N" & Numlign) = .ListItems(.SelectedItem.Index).ListSubItems(13).Text
MiseEnForme
.ListItems(.SelectedItem.Index).Selected = False
For x = 1 To 13
Controls("TextBox" & x) = ""
Next
CommandButton2.Enabled = False
Sheets("Data").Protect Password:="0000"

Exit Sub
Else
.ListItems(.SelectedItem.Index).Selected = False
For x = 1 To 13
Controls("TextBox" & x) = ""
Next
CommandButton2.Enabled = False
End If
End If
End With
End With
End Sub
Cliquez pour agrandir...
[/QUOTE]La procédure "Miseenforme"pour infos
Private Sub MiseEnForme()
Dim x As Long, j As Integer
With ListView1
For x = 1 To .ListItems.Count
If .ListItems(x).ListSubItems(13).Text = UCase("P") Then
.ListItems(x).ForeColor = &HFF0000
For j = 1 To 13
.ListItems(x).ListSubItems(j).ForeColor = &HFF0000
Next
Else
.ListItems(x).ForeColor = &H0&
For j = 1 To 13
.ListItems(x).ListSubItems(j).ForeColor = &H0&
Next
End If
Next
End With
End Sub
Cliquez pour agrandir...

Cordialement
et encore merci beaucoup
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Ou Noter prtection Feuille dans ce Code???

Re Christian,
As tu testé le code proposé ?
Vu qu'à priori tu réinitilises les contrôles de manière systématique, il faut le modifié de cet manière
Code: 
Private Sub ListView1_DblClick() 'Pointe ou Dépointe les Ecritures
Dim x As Byte, Numlign As Long, Pointage As String
With ListView1
    If MsgBox("Confirmer le Pointage.", vbYesNo, "Pointage") = vbYes Then
        Pointage = .ListItems(.SelectedItem.Index).ListSubItems(13).Text
        Pointage = IIf(Pointage = "NP", "P", "NP")
        .ListItems(.SelectedItem.Index).ListSubItems(13).Text = Pointage
        Numlign = ListView1.SelectedItem.Index + 9 'N° de la 1 iere Ligne de la Base
            With Sheets("Data")
                .Unprotect password = "0000"
                .Range("N" & Numlign) = Pointage
                .Protect password = "0000"
            End With
        MiseEnForme
    End If
    .ListItems(.SelectedItem.Index).Selected = False
End With
For x = 1 To 13
    Controls("TextBox" & x) = ""
Next
CommandButton2.Enabled = False

End Sub
A+
kjin
 
Vote positif 0 Vote négatif
Re : Ou Noter protection Feuille dans ce Code???

Merci kjin, pour ce dernier message

J'ai essayé ton code a la place du mien
c'est Ok

Maintenant , si tu le veux bien,j'aimerais savoir avec le code ci-dessous
s'il est possible de pouvoir attribuer, un Format "# ## 0.00 € pour les Colonnes 6 "F"
et Colonne 12 "L"


Private Sub CommandButton11_Click()
Dim C As Byte, li As Long
'mise à jour listview

If MsgBox("Attention vous allez Dévalidé" & Chr(10) & _
"cette Facture considérée comme Réglée!!!!" & Chr(10) & _
"Voulez-vous continuer????", vbYesNo, "Confirmation") = vbNo Then Exit Sub

TextBox6 = TextBox12
TextBox12 = ""
'TextBox10 = ""
'TextBox11 = ""
TextBox14 = "NP"

With ListView1
li = Mid(.ListItems(.SelectedItem.Index).Key, 2) 'N° ligne de la feuille
If MsgBox("Confirmation de la modification.", vbYesNo, "Confirmation") = vbNo Then Exit Sub

'mise à jour des colonnes de la listview
.ListItems(.SelectedItem.Index).Text = (TextBox1)

For C = 1 To 13 '.ColumnHeaders.Count - 1
.ListItems(.SelectedItem.Index).ListSubItems(C).Text = Controls("TextBox" & C + 1)
Next C
End With
MiseEnForme
'mise à jour de la feuille
With Sheets("Data")
.Unprotect Password:="0000"
For C = 1 To 14
Select Case C
Case 1, 2, 3, 4, 5, 6, 7, 8, 9, 12, 13, 14 '11,10,
.Cells(li, C) = (Controls("TextBox" & C)) ' Controls("Lbl" & NumLabel).Caption = Format(Ttl, "# ##0.00 €")
'Controls("Lbl" & NumLabel).Caption = Format(Ttl, "# ##0.00 €")


'Case 1
'If Right(Controls("TextBox" & C), 1) = "%" Or Right(Controls("TextBox" & C), 1) = "€" Then _
' .Cells(li, C) = CDbl(Left(Controls("TextBox" & C), Len(Controls("TextBox" & C)) - 1))

'Case 6 , 4, 14, 17, 20, 23
'.Cells(li, C) = Controls("TextBox" & C)
Case Else
'.Cells(li, C) = Controls("TextBox" & C)
End Select
Next C
.Protect Password:="0000"
End With
CommandButton12.Enabled = True 'False
CommandButton11.Enabled = False
End Sub
Cliquez pour agrandir...

Mercci a l'avance
Bonne soirée
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Electron24
  • Résolu(e)
Microsoft 365 Virgules dans ListView
Réponses
5
Affichages
493
Electron24
Electron24
J
  • Question Question
XL 2021 transfert listview vers feuille excel
Réponses
9
Affichages
752
Piment
P
A
  • Question Question
XL 2010 Filtrer un Combobox en VBA excel
2 3
Réponses
43
Affichages
3 K
Dranreb
Dranreb
F
  • Question Question
Autres Listbox-transfère la recherche dans une ListBox vers une feuille de calcul
2
Réponses
18
Affichages
570
dysorthographie
dysorthographie
N
  • Question Question
Listbox click
Réponses
10
Affichages
678
ChTi160
ChTi160
F
  • Résolu(e)
Autres Insérer une ligne
2 3
Réponses
36
Affichages
3 K
francescofrancesco
F
patricktoulon
  • Question Question
Microsoft 365 datepicker dynamique intra userform ou dans feuille 2 versions(frame dynamique)(toute version d'excel )
6 7 8
Réponses
105
Affichages
5 K
Usine à gaz
Usine à gaz
N
  • Résolu(e)
Microsoft 365 Recherche dans un tableau structuré à partir d'une TextBox
Réponses
11
Affichages
887
NONO14
N
PORCHER
  • Question Question
Microsoft 365 L'indice n'appartient pas à la sélection
Réponses
8
Affichages
1 K
TooFatBoy
TooFatBoy
B
  • Question Question
XL 2019 Dans une macro de démarrage de fichier masquer le code par des Astérix ou point
Réponses
3
Affichages
564
sylvanu
sylvanu
N
  • Résolu(e)
Microsoft 365 Rechercher la dernière cellule saisie dans un TS et ajouter l'heure système
19 20 21
Réponses
303
Affichages
72 K
NONO14
N
P
  • Résolu(e)
Microsoft 365 Erreur d'exécution "9" :L'indice n'appartient pas à la sélection
Réponses
9
Affichages
2 K
pelerin65
P
T
  • Question Question
XL 2021 message si une valeur n'existe pas
Réponses
6
Affichages
937
target
T
thunder23
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
823
thunder23
thunder23
lynyrd
  • Question Question
XL 2019 code pour tous les disques
Réponses
3
Affichages
924
AtTheOne
AtTheOne
cathodique
  • Résolu(e)
XL 2010 Mauvaise utilisation de la fonction InStr
Réponses
11
Affichages
979
jurassic pork
jurassic pork
K
  • Résolu(e)
XL 2016 Affichage TextBox
Réponses
6
Affichages
838
KRUG WOO
K
M
  • Question Question
Microsoft 365 Erreur sur mon Code VBA
Réponses
2
Affichages
774
Gégé-45550
Gégé-45550
B
  • Résolu(e)
Microsoft 365 affecter des valeurs dans un tableau de noms de variable
Réponses
4
Affichages
1 K
bérylion
B
David XLD
Optimisation de code VBA
Réponses
5
Affichages
308
Cléa
Cléa
Retour