Au secours !!!!!
Je m'arrache les cheveux ; quelqu'un saurait-il comment faire pour masquer des lignes avec des cellules vides d'aspect mais contenant une formule ?
Je ne trouve rien nul part.
D'avance merci
Céline
Merci mais il faut que je crée une macro masquant les lignes où il y a la valeur fausse pour afficher un résultat d'heures ( si jamais tu as une idée )
Merci
Voici la macro de base dont je me sers pour éffacer des lignes !
A toi de l'adapter et de demander de masquer les lignes au lieu de les supprimer.
Sub DeleteFaux()
i = 1
While Range("A15").Offset(i).Value <> ""
If Range("A15").Offset(i).Value = False Then
Range("A15").Offset(i).EntireRow.Delete
i = i - 1
End If
i = i + 1
Wend
dans l'exemple ci dessous , les lignes sont masquées , si les cellules de la plage A1:A10 sont vides ou que le résultat de la formule =0
Sub Masquer()
Dim Cell As Range
For Each Cell In Range("A1:A10")
If Cell = "" Then Rows(Cell.Row).Hidden = True
If Cell = 0 And Cell.HasFormula Then Rows(Cell.Row).Hidden = True
Next Cell
End Sub
Sub AfficheToutesLesLignes()
ActiveSheet.Rows.Hidden = False
End Sub
J’aimerais savoir si c’est possible d’ajouter un if de plus au code de Michel.
Je souhaite faire que si le résultat de la formule est plus petit que 0 alors ouvrir un Userform.
J’ai déjà un peu près tout essayer avec mes connaissances mais sans résultat.
Alors si quelqu’un peu me donner un coup de main c’est très gentil.
Merci beaucoup d’avance
Sub Masquer()
Dim Cell As Range
For Each Cell In Range("A1:A10")
If Cell = "" Then Rows(Cell.Row).Hidden = True
If Cell = 0 And Cell.HasFormula Then Rows(Cell.Row).Hidden = True
If Cell = <0 ----? UserForm5.Show
Next Cell
End Sub
j'aurais besoin de quelques infos complementaires au sujet du UserForm5 :
il ne doit s'afficher qu'une seule fois ou à chaque fois que la valeur est inferieure à 0 dans la boucle , et dans ce cas quelle action doit etre effectuee dans l'USF ?
Tous d’abord merci pour ta serviabilité.
Il s’agit d’un inventaire et j’aimerais tous simplement que a chaque fois que le solde est négatif afficher une réponse pour avertir cela.
J’ai pense que afficher le message par l’userform est le plus simple mais s’il y a une autre solution, pas de problème.
ci dessous la macro modifiee pour afficher un USF quand la valeur cible est negative
Sub BoucleUSF()
Dim Cell As Range
For Each Cell In Range("A1:A10")
If Cell < 0 Then UserForm5.Show
Next Cell
End Sub
s'il s'agit juste d'afficher un message d'alerte , je te joins aussi une version avec MsgBox
Sub BoucleMsgBox()
Dim Cell As Range
For Each Cell In Range("A1:A10")
If Cell < 0 Then MsgBox "La valeur de la cellule " & Cell.Address & " est negative ."
Next Cell
End Sub