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

2 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
papou
Bonjour
Rows(k).EntireRow.Hidden = True
Cordialement
Pascal

"Le Surcitaire" a écrit dans le message de
news:
Voici exactement le code est j'ai toujours la meme erreur
Rows(k).Hidden = True ou excel me dit qu'il n'arrive pas a determiner
le hidden du range

Private Sub UserForm_Activate()
ProgressBar1.Value = 0
Application.ScreenUpdating = False
Range("C6").Select
For i = 1 To Sheets.Count
Sheets(i).Unprotect "1322"

For k = 6 To 10
If Sheets(i).Cells(k, 1).Text = "" Then Rows(k).Hidden > True

Next
For j = 12 To 21
If Sheets(i).Cells(j, 1).Text = "" Then Rows(j).Hidden > True

Next
For l = 23 To 38
If Sheets(i).Cells(l, 1).Text = "" Then Rows(l).Hidden > True

Next
Sheets(i).Protect "1322"
Next
Application.ScreenUpdating = True
Unload ProgressBar
End Sub

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



Avatar
Alain CROS
Bonjour.

Essaye Sheets(i).Rows(k).Hidden = True
Et pareil dans toutes les lignes contenant Rows.

Alain CROS

"Le Surcitaire" a écrit dans le message de news:
Voici exactement le code est j'ai toujours la meme erreur
Rows(k).Hidden = True ou excel me dit qu'il n'arrive pas a determiner
le hidden du range


1 2 3