Erreur VBA "1004"

[aurel]

Bonjour a tous,
J'espere que vous allez bien, moi oui.
Voila, j'ai un petit probleme et je ne sais pas trop comment le resoudre.
Voici le code correspondant

Private Sub VisuCondi_Click()

If TextBox1 = "" Then
MsgBox "Veuillez entrer un Mnémonique", , "Message"
End If

Dim i As Integer
i = 1
line1: If i < 1000 Then
i = i + 1
If TextBox1.Value = Cells(i, "A") Then
Worksheets("Cas enregistrés").Select
Rows.Hidden = True 'L'erreur est ici
Rows.Hidden("i") = False 'et la!
End If

If TextBox1.Value <> Cells(i, "A") Then
GoTo line1
End If
End If


If (i = 1000 And TextBox1 <> "") Then
MsgBox "Ce type de carte n'a pas de conditionnement spécifié, Veuillez appeler la Qualité pour valider le conditionnement "
End If

End Sub


En faite je veux afficher la ligne qui contient la meme valeur que ma textbox1.
Donc voila, ce code n'est surement pas la meilleur solution mais bon, on fait avec ce que l'on connait!!!.

Bonne journée a tous et merci d'avance

A bientot

 

[joss56]

Re : Erreur VBA "1004"

salut,

j'ai pas vérifié mais:
Rows.Hidden = True 'L'erreur est ici
Rows.Hidden("i") = False 'et la!

ne peut pas fonctionner!
essaye
rows(i).hidden=true (ou false)
A+
Joss

 

[wilfried_42]

Re : Erreur VBA "1004"

bonjour

Je ne sais pas si j'ai compris mais si tu veux masquer les lignes correspondante à la valeur

If TextBox1.Value = Cells(i, 1) Then
    cells(i,1).entireRow.Hidden = True 
else
    cells(i,1).entireRow.Hidden = False
End If

 

[Pierrot93]

Re : Erreur VBA "1004"

Bonjour Aurel, Joss

tu aurais peut être dû rester sur le même fil, au moins y répondre...

https://www.excel-downloads.com/threads/montrer-ou-cacher-des-lignes.92113/

le code donné, chez moi fonctionnait(Excel 2003)....

Edition : Salut Wilfried

 

[aurel]

Re : Erreur VBA "1004"

Re Bonjour a tous,
Merci Pierrot Joss et Wilfried,

Alors la solution de Wilfried fonctionne mais pas dans tous les cas.

Pour Joss, je suis desolé, mais sa ne marché pas pour moi, pourtant excel 2003 pareil que toi. Mais j'allais bien entendu te repondre mais je bosse sur plusieurs trucs et pas tj evident, alors desolé.

Je vais joindre mon fichier pour aider.
Encor merci

 

[wilfried_42]

Re : Erreur VBA "1004"

re:
Voici ta macro modifiée, tu avais en plus un probleme de boucle

Dim i As Integer
for i = 2 to range("A65535").end(xlup).row
    If TextBox1.Value = Cells(i, 1) Then
       cells(i,1).entireRow.Hidden = False
    else
       cells(i,1).entireRow.Hidden = True
    End If
next i

Edition : j'ai inversé tes valeurs True et False, tu devais surement voir afficher la valeur choisie et non pas les autres

 

[aurel]

Re : Erreur VBA "1004"

merci Wilfried, merci a tous aussi.

Bon sa marche pas mal, sa commence meme a prendre forme.

Une autre petite question: a un moment je doit selectionné toute mes lignes donc Rows.Select, mais jaimerai pouvoir les deselectionnés!!!

Bonne journée a vous, je reviendrai surement pour créer la suite.

Salut