Macro

Fermé
iskmali Messages postés 102 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 9 janvier 2023 - 11 nov. 2013 à 12:50
iskmali Messages postés 102 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 9 janvier 2023 - 12 nov. 2013 à 14:44
Bonjour,
Quelqu'un peut il m'aider a faire un macro pour ce problem. Je voudrais cacher automatiquement les lignes d'un tableau (A5:H220) don't la valeur dans la colonne H est nulle.
NB: Mon excel est en anglais.
Merci pour votre aide precieuse.
A voir également:

2 réponses

via55 Messages postés 14405 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 25 avril 2024 2 703
11 nov. 2013 à 13:35
Bonjour

Sub Masquerlignes()

For n = 5 To 220
If ActiveSheet.Range("H" & n).Value =0 Then
Rows(n & ":" & n).Select
Selection.EntireRow.Hidden = True
End If
Next n

End Sub

Cdlmnt
0
iskmali Messages postés 102 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 9 janvier 2023 1
11 nov. 2013 à 17:36
Merci. Est-ce ca va se faire de facon automatique?
et si je devrais inclure une condition de plus comment cela va fonctionner. je m'explique, je vais etandre le table a colonne J et je voudrais que si la colonne h et j sont vides, cache les lignes comment on peut traduire cela.
merci encore pour votre precieux aide.
0
via55 Messages postés 14405 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 25 avril 2024 2 703
11 nov. 2013 à 18:11
Non ce n'est pas automatique, il faut lancer la macro
Tu peux mettre un bouton sur la feuille (Onglet developpeur, Inserer Controle active X) et lui affecter le code de la macro

Par contre tout à l'heure tu parlais de valeurs nulles (=0) et maintenant de cellules vides, ce n'est pas pareil !!

Si tu veux la condition colonne H et colonne J =0 il faut changer ainsi cette ligne :

If ActiveSheet.Range("H" & n).Value =0 and ActiveSheet.Range("H" & n).Value =0 Then

Si tu veux la condition les deux cellules sont vides en H et J il faut remplacer les 0 par ""

If ActiveSheet.Range("H" & n).Value ="" and ActiveSheet.Range("H" & n).Value ="" Then

Cdlmnt
0
iskmali Messages postés 102 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 9 janvier 2023 1
12 nov. 2013 à 14:44
Merci infinement.
0