Masquer / démasquer des lignes sur critère.

**marc56** · 24/02/2008, 23h18

Bonjour à tous,
J'ai un petit problème à destination des spécialistes en VBA (voir fichier joint). Si une âme charitable pouvait m'aider, je lui en serait très reconnaissant car je débute en VBA et j'en suis à la page 41 de "Programmation VBA pour Excel 2007 pour les nuls" et mon projet devra être terminé avant la fin du livre. Je vois la logique, mais pas la syntaxe.
A votre bon coeur.

**marc56** · 27/02/2008, 02h19

Bonsoir,
J'avais mis ce post dans la partie Excel, mais le modérateur l'a déplacé en me disant que j'aurai plus de réponses dans la partie VBA. C'est raté.

**AlainTech** · 27/02/2008, 08h27

Envoyé par marc56

C'est raté.

Ce qui est raté, c'est la manière dont tu présentes ton problème.

Montre-nous un code sur lequel tu butes plutôt que de nous jeter ton fichier sans autre explication.

**tomy7** · 27/02/2008, 09h07

tu crée un bouton masquer ou tu ecris ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
dim i as integer 
for i = 6 to 21 
if range("C" & i).value = "Archivé" then
rows(i).hidden = true
end if 
next i

ensuite tu crées le bouton afficher
ou tu écris :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

userform1.show

sur ton userform1, tu mets un combobox1 ou tu ecris:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
dim i as integer 
for i = 6 to 21 
with combobox1
.additem i
end with
next i

tu crées aussis un bouton sur le userform 1 ok

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
dim i as integer 
for i = 6 to 21 
if combobox1.value= i then
rows(i).hidden = false
end if 
next i

voila
@+

**marc56** · 27/02/2008, 20h54

Merci Tomy7, ta réponse me met du baume au cœur.
Comme je l'ai déjà dit, je suis novice en VBA et il me faut aller doucement.
J'ai intégré ton code dans mon fichier exemple (voir fichier joint), mais à la place d'un userform, j'ai mis une inputbox car je l'utilisais dans d'autres cas.
- le code du bouton "Masquer" fonctionne bien, mais dans mon fichier exemple, je n'avais que quelques lignes. En réalité j'en ai bien plus. Comment écrire la boucle qui doit commencer par lire la ligne 6, mais qui doit s'arrêter quand la première cellule A est vide (fin des enregistrements). Si tu peux commenter ton code, ce serait encore mieux. A l'avance, merci.

**fring** · 27/02/2008, 22h16

Bonsoir,

Si je comprend bien ta question, ça devrait donner un truc du genre...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
For i = 6 To Range("A65535").End(xlUp).Row
...
...
...
Next

Je sais...certains viendront me dire (juste pour m'embêter ) que la ligne 65535 n'est plus d'actualité pour Excel 2007...je suis d'accord mé bon, avant de devoir utiliser la 65536ème ligne, ya de la marge

**Abed_H** · 27/02/2008, 23h11

Envoyé par marc56

Bonjour à tous,
J'ai un petit problème à destination des spécialistes en VBA (voir fichier joint). Si une âme charitable pouvait m'aider, je lui en serait très reconnaissant car je débute en VBA et j'en suis à la page 41 de "Programmation VBA pour Excel 2007 pour les nuls" et mon projet devra être terminé avant la fin du livre. Je vois la logique, mais pas la syntaxe.
A votre bon coeur.

Bonsoir

car je débute en VBA et j'en suis à la page 41 de "Programmation VBA pour Excel 2007 pour les nuls"
Sincèrement je n'ai rien compris

membre éclairé avec une étoile et demi et 300 messages
!!!!!!!!!!!!!!!!!
Bonne soirée

**fring** · 27/02/2008, 23h23

Bon...bon...rassemblons nos neurones

Marc tu parles de 2 choses différentes, tu veux que la recherche s'arrête lorsqu'elle rencontre une ligne vide ou lorsqu'elle rencontre un n° de dossier supérieur ? (ou les deux pourquoi pas)

Question subsidiaire : est-il possible d'avoir une ligne vide entre 2 n° de dossier ?

Dernière question, as-tu disons...plus de 1000 lignes contenant des n° de dossier ? Sinon tu peux tranquillement le laisser mouliner parce que entre une fraction de seconde et un quart de fraction de seconde la différence est minime.

**Qwazerty** · 27/02/2008, 23h31

Re
Sorry, je l'avais fait a chaud ... faut juste changer la declaration de i en Long

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub Afficher()
Dim No_Dos As String
Dim i As Long
' Afficher toutes les lignes d'un dossier
'Demander le numéro de dossier à afficher, "no_dos" prend la valeur saisie
No_Dos = InputBox("Entrer le numéro de dossier à afficher, puis cliquer sur OK.")
 
    For i = 6 To Rows.Count
        If Range("A" & i).Text = "" Then Exit For
        If Range("A" & i).Text = No_Dos Then Rows(i).Hidden = False
    Next i
End Sub

Bonne nuit
Qwaz

**Abed_H** · 27/02/2008, 23h32

Donc mes excuses sincères marc56.

Bonne soirée.
Abed_H

**marc56** · 27/02/2008, 23h44

Exacte, au départ je pensais sortir à la première ligne vide, mais c'est en rédigeant une réponse que je me suis dit : pourquoi aller jusqu'à la première ligne vide si je peux sortir avant.
Pour le nombre de lignes, j'en ai un peu moins de 2000 pour le moment, mais on ne sait jamais.
Je n'ai jamais de ligne vide, elles sont toutes remplies.
J'ai testé le premier code de Qwazerty dans mon fichier test et il fonctionne, mais quand je l'intègre dans mon fichier réel (4,5Mo), je n'obtiens pas l'affichage du n° de dossier demandé???

Je teste ton nouveau code.

Il a l'air de fonctionner, mais je vais le tester encore. Pour le non affichage du dossier demandé, je crois avoir trouvé, ma colonne A n'était plus ordonnée suite à un trie sur une autre colonne.
Je ne mets pas encore "Résolu" pour le "cazou".