Err 1004Résolu

Question

Bonjour a tous,

J'ai une err 1004 avec ce programme est ce que vous y comprenais qqch??

'Numero de la ligne
Dim NumLigne As Long
'Range Tampon
Dim UnCell As Range
'De la ligne 5 à 5
For NumLigne = 5 To 5
   'Pour chaque cellule dans la selection A1:E1 (si numligne = 1)
   For Each UnCell In ActiveWorkbook.ActiveSheet.Range("C" & NumLigne & ":IV" & NumLigne)
       'Si Cellule = X ou cellule Vide alors       If UnCell.Text vbNullString Then  ' Or UCase(UnCell.Text) "X" Then
           'On Cache la colonne entiere
           UnCell.EntireColumn.Hidden = True
       End If
   Next UnCell
Next NumLigne

J'ai essaye sur une feuille vierge et ca fonctionne parfaitemant. J'ai deux possibilites maintenant soit je corrige le probleme soit je trouve un autre programme mais dans tous les cas je ne trouve pas.

Merci pour votre aide

mistersaku · Accepted Answer

J'ai trouve une solution en utilisant cette macro sur mes cellules

Sub Test()
Dim s As Shape 
On Error Resume Next
For Each s In ActiveSheet.Shapes 
s.Placement = xlMoveAndSize
Next 
End Sub


Merci quand meme pour le coup de main

jmfmarques · Answer

Etonnant !:
1) une boucle de 5 à 5 (pourquoi une boucle pour finalement ne traiter que le Numligne 5 ?)
2) dans le même esprit : pourquoi transformer une cellule en un Range ?

Bref... même si je ne connais rien à VBA, je ne peux qu'être étonné.

Renfield · Answer

erreur étrange...
boucle étrange également ^^

tu peux faire, par exemple :

Dim UnCell As Range
Const NumLigne = 5
    For Each UnCell In ActiveWorkbook.ActiveSheet.Range("C" & NumLigne & ":IV" & NumLigne)
       'Si Cellule = X ou cellule Vide alors on Cache la colonne entiere       UnCell.EntireColumn.Hidden (LenB(UnCell.Text) 0)
   Next UnCell

ici, si ta cellul <X>5  est vide, la colonne entière est masquée, sinon, elle est réaffichée.

Renfield
Admin CodeS-SourceS- MVP Visual Basic

jrivet · Answer

Salut,
En fait l'erreur survient lorsque il y a des controles sur la feuille. [auteurdetail.aspx?ID=984374 mistersaku]il aurait été bon de leur donner le maximum d'info. comme le lienvers l'autre topic par exemple.

@+: Ju£i?n
Pensez: Réponse acceptée

mistersaku · Answer

Une fois de ce prog marche tres bien sur une feuille vierge mais pas sur mon document, j'ai pourtant rien mis de particulier. J'ai toujours Err 1004 Unable to set the Hidden property of the range class.

mistersaku · Answer

Au temps pour moi, j'ai deja pose la question mais je ne maitrise pas aussi bien que toi les subtilites de ce site. En attendant ca ne fonctionne pas et je ne sais pas comment supprimer les controles de ma feuille, je ne sais meme pas ce que c'est pour rien te cacher. 
Toutes mes excuses encore pour le lien on ne m'y reprendra pas.

Err 1004

6 réponses

Votre réponse

Discussions similaires