Macro pour Hauteur de ligne = 0 si résultat de fonction = " " ? Résolu/Fermé

Question

Bonjour,
J'ai un fichier avec deux onglets.
Les cellules de 5 colonnes de la feuille du deuxième onglet récupère des infos du premier onglet via des formules placés dans les cellules... elle ne sont donc pas "vide"
Mon problème et que je ne trouve pas la macro pour dire que "si les 4 cellules d'une même ligne entre la ligne 1 et 114 des colonnes A à D restent sans résultat, c'est à dire que l'application de la fonction des cellules est " " ... alors la hauteur de ligne =0
Merci d'avance
Bruno

ThauTheme · Answer

Bonjour Bbtronic, bonjour le forum,

Peut-être comme ça :

Sub Macro1()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim TC As Variant 'déclare la variable TC (Tableau de Cellules)

Set O = Sheets("Feuil2") 'définit l'onglet O (à adapter)
TC = O.Range("A1:C114") 'définit le tableau de cellules TC
For I = 1 To UBound(TC, 1) 'boucle sur toutes les lignes I du tableau de cellules TC
    'si la somme des 3 valeurs de la ligne I est nulle, masque la ligne, sinon affiche la ligne
    If Application.WorksheetFunction.Sum(Application.Index(TC, I)) = 0 Then O.Rows(I).Hidden = True Else O.Rows(I).Hidden = False
Next I 'prochaine ligne de la boucle
End Sub

ThauTheme · Answer

Bonjour Bbtronic, bonjour le forum,

Tu as bien adapté le code pourtant. Je ne sais pas non plus. Les tests que j'avais fait chez moi sur deux lignes à peine fonctionnaient correctement...
Peut-être un problème de références (menu : Outil/Références...) dans VBA. Regarde les références que j'ai et compare :

pijaku · Answer

Bonjour tout le monde,
ThauTheme, mes respects de l'après midi.

Peut être une erreur dûe à ... une erreur (#N/A, #VALEUR, #DIV/0) dans une des cellules de la plage.

ThauTheme · Answer

Bonjour le fil, bonjour le forum,

Mes respect itou Pijaku !

je navet (dans ce cas on peut) pas pensé à cela. Dis-nous si c'est le cas et j'essaierai de trouver une solution...

bbtronic · Answer

Re-salut Thautheme, et merci a pijaku de s'intéresser à mon problème,
pijaku:
L'ensemble des cellules A1:D114 ont été testées et affiche bien l'info de la feuille 1 via la formule... donc pas de cellule erreur. 
Thautheme: 
je suis sur Miscrosoft Excel 2010 et d'une part je ne sais pas où trouver ton info "références - VBAProject", d'autre part que faut-il faire?
En tout cas, notez que je n'ai absolument pas votre niveau et qu'être le plus scolaire possible m'aidera grandement..:):)

ThauTheme · Answer

Bonjour le fil, bonjour le forum,

À vrai dire c'est pas trop mon truc aussi les références. Toutefois, il m'est arrivé de devoir en charger pour faire fonctionner un code. Il faut ouvrir VBE (Visual Basic Editor) avec le raccourci [Alt]+[F11]. Là, tu fais menu Outil/Références. Tu compares avec celles que j'ai cochées. Si il t'en manque, tu les cherches dans la liste et tu les coches...

ThauTheme · Answer

Bonsoir le fil, bonsoir le forum,

Pardi ! Gros malin... Tu as mis des espaces (" ") dans tes formules... Donc les cellules contenaient entre 3 et 4 espaces...
Applique la macro ci-dessous au bouton 4 :

Sub Macro1()
Dim EMG As Worksheet
Dim TC As Variant

Application.ScreenUpdating = False
Set EMG = Sheets("EMG")
TC = EMG.Range("A1:D114")
For I = 1 To UBound(TC, 1)
    T = ""
    For J = 1 To UBound(TC, 2)
        T = T & TC(I, J)
    Next J
    If T = "    " Or T = "   " Then EMG.Rows(I).Hidden = True Else EMG.Rows(I).Hidden = False
Next I
Application.ScreenUpdating = True
End Sub

Macro pour Hauteur de ligne = 0 si résultat de fonction = " " ?

7 réponses

Discussions similaires