Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel erreur code VBA

erreur code VBA

22 réponses
Avatar
Le Surcitaire
Bonjour,


Est ce que ce code est juste car j'ai une erreur a chaque fois et je ne
vois pas pourquoi
For i = 1 To Sheets.Count
Sheets(i).Unprotect (Password = 1322)
Next
For i = 6 To 10
If Cells(i, 1).Text = "" Then Rows(i).Hidden = True
Sheets(i).Protect (Password = 1322)
Next

Merci

--
enlever lesurcitaire
La Vie n'est rien sans la joie de vivre
Signaler un problème avec ce contenu

10 réponses

Supprimer
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
1 2 3
Avatar
Michel Pierron
Bonsoir Le Surcitaire;
Sheets(i).Unprotect "1322"
et
Sheets(i).Protect "1322"

MP

"Le Surcitaire" a écrit dans le message de
news:
Bonjour,


Est ce que ce code est juste car j'ai une erreur a chaque fois et je ne
vois pas pourquoi
For i = 1 To Sheets.Count
Sheets(i).Unprotect (Password = 1322)
Next
For i = 6 To 10
If Cells(i, 1).Text = "" Then Rows(i).Hidden = True
Sheets(i).Protect (Password = 1322)
Next

Merci

--
enlever lesurcitaire
La Vie n'est rien sans la joie de vivre



Avatar
Le Surcitaire
Michel Pierron a utilisé son clavier pour écrire :
Bonsoir Le Surcitaire;
Sheets(i).Unprotect "1322"
et
Sheets(i).Protect "1322"

MP

"Le Surcitaire" a écrit dans le message de
news:
Bonjour,


Est ce que ce code est juste car j'ai une erreur a chaque fois et je ne
vois pas pourquoi
For i = 1 To Sheets.Count
Sheets(i).Unprotect (Password = 1322)
Next
For i = 6 To 10
If Cells(i, 1).Text = "" Then Rows(i).Hidden = True
Sheets(i).Protect (Password = 1322)
Next

Merci

--
enlever lesurcitaire
La Vie n'est rien sans la joie de vivre



J'ai toujours le message suivant "erreur d'execution 1004" Mot de passe
non valide. verifier que la touche VERR NUM n'est pas active et
respecter la casse
J'ai bien tous verifier alors voila exactement mon code

Private Sub UserForm_Activate()
ProgressBar1.Value = 0
Application.ScreenUpdating = False
Range("C6").Select
For i = 1 To Sheets.Count
Sheets(i).Unprotect "1322"
Next
For i = 6 To 10
If Cells(i, 1).Text = "" Then Rows(i).Hidden = True
Sheets(i).Protect "1322"
Next
For i = 1 To Sheets.Count
Sheets(i).Unprotect "1322"
Next
For i = 12 To 21
If Cells(i, 1).Text = "" Then Rows(i).Hidden = True
Sheets(i).Protect "1322"
Next
For i = 1 To Sheets.Count
Sheets(i).Unprotect "1322"
Next
For i = 23 To 38
If Cells(i, 1).Text = "" Then Rows(i).Hidden = True
Sheets(i).Protect "1322"
Next
Application.ScreenUpdating = True
Unload ProgressBar
End Sub

:-[ :-[ :-Z

--
enlever lesurcitaire
La Vie n'est rien sans la joie de vivre


Avatar
papou
Bonjour
Il manque les deux points (:) et de plus tu n'as pas besoin d'utiliser les
parenthèses dans ton cas :
Sheets(i).Protect Password:22
Cordialement
Pascal


"Le Surcitaire" a écrit dans le message de
news:
Bonjour,


Est ce que ce code est juste car j'ai une erreur a chaque fois et je ne
vois pas pourquoi
For i = 1 To Sheets.Count
Sheets(i).Unprotect (Password = 1322)
Next
For i = 6 To 10
If Cells(i, 1).Text = "" Then Rows(i).Hidden = True
Sheets(i).Protect (Password = 1322)
Next

Merci

--
enlever lesurcitaire
La Vie n'est rien sans la joie de vivre



Avatar
Le Surcitaire
papou avait énoncé :
Bonjour
Il manque les deux points (:) et de plus tu n'as pas besoin d'utiliser les
parenthèses dans ton cas :
Sheets(i).Protect Password:22
Cordialement
Pascal


"Le Surcitaire" a écrit dans le message de
news:
Bonjour,


Est ce que ce code est juste car j'ai une erreur a chaque fois et je ne
vois pas pourquoi
For i = 1 To Sheets.Count
Sheets(i).Unprotect (Password = 1322)
Next
For i = 6 To 10
If Cells(i, 1).Text = "" Then Rows(i).Hidden = True
Sheets(i).Protect (Password = 1322)
Next

Merci

-- enlever lesurcitaire
La Vie n'est rien sans la joie de vivre




Merci mais j'ai essaye et cela ne marche pas alors j'ai posté mon code
complet il y a quelques minutes en réponse a Michel Pierron
Merci de votre aide :-?

--
enlever lesurcitaire
La Vie n'est rien sans la joie de vivre


Avatar
Michel Pierron
Re Le Surcitaire;
Quelle ligne est en surbrillance quand tu passes en déboggage ?
et dans cette ligne, combien vaut i (survole i dans la ligne en surbrillance
avec la souris) ?
MP

"Le Surcitaire" a écrit dans le message de
news:
Michel Pierron a utilisé son clavier pour écrire :
Bonsoir Le Surcitaire;
Sheets(i).Unprotect "1322"
et
Sheets(i).Protect "1322"

MP

"Le Surcitaire" a écrit dans le message
de


news:
Bonjour,


Est ce que ce code est juste car j'ai une erreur a chaque fois et je ne
vois pas pourquoi
For i = 1 To Sheets.Count
Sheets(i).Unprotect (Password = 1322)
Next
For i = 6 To 10
If Cells(i, 1).Text = "" Then Rows(i).Hidden = True
Sheets(i).Protect (Password = 1322)
Next

Merci

--
enlever lesurcitaire
La Vie n'est rien sans la joie de vivre



J'ai toujours le message suivant "erreur d'execution 1004" Mot de passe
non valide. verifier que la touche VERR NUM n'est pas active et
respecter la casse
J'ai bien tous verifier alors voila exactement mon code

Private Sub UserForm_Activate()
ProgressBar1.Value = 0
Application.ScreenUpdating = False
Range("C6").Select
For i = 1 To Sheets.Count
Sheets(i).Unprotect "1322"
Next
For i = 6 To 10
If Cells(i, 1).Text = "" Then Rows(i).Hidden = True
Sheets(i).Protect "1322"
Next
For i = 1 To Sheets.Count
Sheets(i).Unprotect "1322"
Next
For i = 12 To 21
If Cells(i, 1).Text = "" Then Rows(i).Hidden = True
Sheets(i).Protect "1322"
Next
For i = 1 To Sheets.Count
Sheets(i).Unprotect "1322"
Next
For i = 23 To 38
If Cells(i, 1).Text = "" Then Rows(i).Hidden = True
Sheets(i).Protect "1322"
Next
Application.ScreenUpdating = True
Unload ProgressBar
End Sub

:-[ :-[ :-Z

--
enlever lesurcitaire
La Vie n'est rien sans la joie de vivre





Avatar
Le Surcitaire
Michel Pierron avait écrit le 13/10/2004 :
Re Le Surcitaire;
Quelle ligne est en surbrillance quand tu passes en déboggage ?
et dans cette ligne, combien vaut i (survole i dans la ligne en surbrillance
avec la souris) ?
MP

"Le Surcitaire" a écrit dans le message de
news:
Michel Pierron a utilisé son clavier pour écrire :
Bonsoir Le Surcitaire;
Sheets(i).Unprotect "1322"
et
Sheets(i).Protect "1322"

MP

"Le Surcitaire" a écrit dans le message de
news:
Bonjour,


Est ce que ce code est juste car j'ai une erreur a chaque fois et je ne
vois pas pourquoi
For i = 1 To Sheets.Count
Sheets(i).Unprotect (Password = 1322)
Next
For i = 6 To 10
If Cells(i, 1).Text = "" Then Rows(i).Hidden = True
Sheets(i).Protect (Password = 1322)
Next

Merci

--
enlever lesurcitaire
La Vie n'est rien sans la joie de vivre



J'ai toujours le message suivant "erreur d'execution 1004" Mot de passe
non valide. verifier que la touche VERR NUM n'est pas active et
respecter la casse
J'ai bien tous verifier alors voila exactement mon code

Private Sub UserForm_Activate()
ProgressBar1.Value = 0
Application.ScreenUpdating = False
Range("C6").Select
For i = 1 To Sheets.Count
Sheets(i).Unprotect "1322"
Next
For i = 6 To 10
If Cells(i, 1).Text = "" Then Rows(i).Hidden = True
Sheets(i).Protect "1322"
Next
For i = 1 To Sheets.Count
Sheets(i).Unprotect "1322"
Next
For i = 12 To 21
If Cells(i, 1).Text = "" Then Rows(i).Hidden = True
Sheets(i).Protect "1322"
Next
For i = 1 To Sheets.Count
Sheets(i).Unprotect "1322"
Next
For i = 23 To 38
If Cells(i, 1).Text = "" Then Rows(i).Hidden = True
Sheets(i).Protect "1322"
Next
Application.ScreenUpdating = True
Unload ProgressBar
End Sub

:-[ :-[ :-Z

--
enlever lesurcitaire
La Vie n'est rien sans la joie de vivre



cette ligne la >:|

Sheets(i).Unprotect (Password = 1322)

--
enlever lesurcitaire
La Vie n'est rien sans la joie de vivre




Avatar
Jean-Claude
Salut
dans la ligne
Sheets(i).Protect (Password = 1322)
i va de 6 a 10
Est-tu sur qu'il y a le nombre de feuille necessaire
A+
Jc

"Le Surcitaire" a écrit dans le message de
news:
Bonjour,


Est ce que ce code est juste car j'ai une erreur a chaque fois et je ne
vois pas pourquoi
For i = 1 To Sheets.Count
Sheets(i).Unprotect (Password = 1322)
Next
For i = 6 To 10
If Cells(i, 1).Text = "" Then Rows(i).Hidden = True
Sheets(i).Protect (Password = 1322)
Next

Merci

--
enlever lesurcitaire
La Vie n'est rien sans la joie de vivre



Avatar
Le Surcitaire
Jean-Claude avait énoncé :
Salut
dans la ligne
Sheets(i).Protect (Password = 1322)
i va de 6 a 10
Est-tu sur qu'il y a le nombre de feuille necessaire
A+
Jc

"Le Surcitaire" a écrit dans le message de
news:
Bonjour,


Est ce que ce code est juste car j'ai une erreur a chaque fois et je ne
vois pas pourquoi
For i = 1 To Sheets.Count
Sheets(i).Unprotect (Password = 1322)
Next
For i = 6 To 10
If Cells(i, 1).Text = "" Then Rows(i).Hidden = True
Sheets(i).Protect (Password = 1322)
Next

Merci

-- enlever lesurcitaire
La Vie n'est rien sans la joie de vivre




Le i que tu me parle est le nombre de ligne a cacher et non pas le
nombre de feuille

--
enlever lesurcitaire
La Vie n'est rien sans la joie de vivre


Avatar
Jean-Claude
Re
J'avais compris et c'était bien le but de ma question,
Si tu as trois feuilles par exemple le i ne trouveras pas la sheets(i) car
ça commence à 6.

C'était une hypothèse
A+
Jc
"Le Surcitaire" a écrit dans le message de
news:
Jean-Claude avait énoncé :
Salut
dans la ligne
Sheets(i).Protect (Password = 1322)
i va de 6 a 10
Est-tu sur qu'il y a le nombre de feuille necessaire
A+
Jc

"Le Surcitaire" a écrit dans le message
de news:
Bonjour,


Est ce que ce code est juste car j'ai une erreur a chaque fois et je ne
vois pas pourquoi
For i = 1 To Sheets.Count
Sheets(i).Unprotect (Password = 1322)
Next
For i = 6 To 10
If Cells(i, 1).Text = "" Then Rows(i).Hidden = True
Sheets(i).Protect (Password = 1322)
Next

Merci

-- enlever lesurcitaire
La Vie n'est rien sans la joie de vivre




Le i que tu me parle est le nombre de ligne a cacher et non pas le nombre
de feuille

--
enlever lesurcitaire
La Vie n'est rien sans la joie de vivre





Avatar
Le Surcitaire
Re
J'avais compris et c'était bien le but de ma question,
Si tu as trois feuilles par exemple le i ne trouveras pas la sheets(i) car ça
commence à 6.

C'était une hypothèse
A+
Jc
"Le Surcitaire" a écrit dans le message de
news:
Jean-Claude avait énoncé :
Salut
dans la ligne
Sheets(i).Protect (Password = 1322)
i va de 6 a 10
Est-tu sur qu'il y a le nombre de feuille necessaire
A+
Jc

"Le Surcitaire" a écrit dans le message de
news:
Bonjour,


Est ce que ce code est juste car j'ai une erreur a chaque fois et je ne
vois pas pourquoi
For i = 1 To Sheets.Count
Sheets(i).Unprotect (Password = 1322)
Next
For i = 6 To 10
If Cells(i, 1).Text = "" Then Rows(i).Hidden = True
Sheets(i).Protect (Password = 1322)
Next

Merci

-- enlever lesurcitaire
La Vie n'est rien sans la joie de vivre




Le i que tu me parle est le nombre de ligne a cacher et non pas le nombre
de feuille

-- enlever lesurcitaire
La Vie n'est rien sans la joie de vivre




Ah bon mais alors que faire car je suis perdu :-?

--
enlever lesurcitaire
La Vie n'est rien sans la joie de vivre




1 2 3