Discussion :

[nicoroth]

Salut tout le monde

Je suis un bon noob sur VBA mais mon taff ve que je m'y mette...
Donc j ai pas trop le choix
j ai pas mal avancer mais je chercher toujours comment cacher une ligne du tableur si un case au hasard est vide (=0 ou #N/A). Schant que je creer un boutton exper pour la macro.
Si qn pourrais m'expiquer ce serai tres cool.
Merci a tous

[mordrhim]

pour masquer une ligne,

Code :

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

Taligne.EntireRow.Hidden = True

[nicoroth]

Merci pour cette reponse,

Seulement voila,
j ai testé de mettre un truc du genre

Code :

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

1
2
If AC61=0 Then
Row61.Entirerow:hidden=True

Car je ve que si la case C61 est vide (ou plutot un #N/A) alors, toute la ligne se cache.
Est-ce le bon code?? j en doute.

Si tu as une idée... Merci

[nicoroth]

Correction:
Pas : mais . avec Hidden^^

[wilfried_42]

bonjour

Code :

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

1
2
3
4
5
if range("C61").value = "" then 
range("C61").entirerow.hidden = true 
else
range("C61").entirerow.hidden = false
end if

cordialement

[nicoroth]

merci bcp cela fonctionne parfaitement,

Seulement ce n'est pas une celleule vide qui est a l'origine mais un calcul qui n'a pas de valeur, c'est a dire que lorsque la cellule affiche #Value alors la ligne disparait
Que doi je mettre entre les "" ou pas^^

Merci de ton aide

[zazaraignée]

#Value est un message d'erreur. Si tu essaies d'afficher la valeur de cette cellule dans un MsgBox, par exemple, VB te retournera une erreur. Essaie, pour voir.

[wilfried_42]

re:

Code :

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

1
2
3
4
5
if range("C61").value = "#Value" then  ' #Valeur en francais
range("C61").entirerow.hidden = true 
else
range("C61").entirerow.hidden = false
end if

sans assurance pais je crois avoir deja vu cela quelque part

[nicoroth]

Merci mon cher Wilfried pour ces precieuses infos, d'autant plus que ca marche.

J'aurais juste besoin d un dernier conseil:

En fait je voudrais repeter la macro sur plusieurs lignes, J ai essayer plusieurs trucs mais qui ne fonctionne pas.
aurais tu une idée pour cela?

Il le faudrai pour 5 lignes qui se succedent genre par exemple de la ligne 5 a 10...
Faut il repeter le code avec une ligne speciale entre chaque paragraphe ou alors mettre un truc plutot du genre:

Code :

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

1
2
3
4
5
if range("C5:10").value = "" then 
range("C5:10").entirerow.hidden = true 
else
range("C5:10").entirerow.hidden = false
end if

??

Je c pas trop dans quel direction partir
Merci de prendre de ton temps pour m aider.

[wilfried_42]

re:

exemple avec l'ancien code, nous parlons bien de masquer les lignes, pas les supprimer

dim i as integer
for i = 1 61 to 65
if range("C" & i).value = "#Value" then ' #Valeur en francais
range("C" & I).entirerow.hidden = true
else
range("C" & i).entirerow.hidden = false
end if
next i

bonne journée

[nicoroth]

merci pour tout, ca marche comme il faut j espere pouvoir te rendre service un de ces 4.
Merci encore pour tout ++