Boucle en ligne

[flo2002]

Re bonjour le forum,

j'ai une formule en ligne1 pour n colonne qui dit si la somme de la colonne est egale à zero alors ecrire cache sinon rien.
Donc en A j'ai des cache et des vides. Le truc c'est que d'une part part le F9 ne permet pas de mettre à jour les formules. Je dois entrer dans la formule et la valider avec entrer.

Sinon pour la macro je souhaite faire une boucle qui lirai en ligne et qui masquerai la colonne en fonction de ce qui est ecrit en ligne 1.
enfin dernier petit point, je vais certainement avoir besoin de ne pas masquer certaines colonnes. Mais ceci je peux le faire en les des masquants apres.
merci d'avance

PS j'espere avoir été clair avec cette chaleur je ne sais plus trop ce que je dis.

 

[Robert]

Re : Boucle en ligne

Bonjour Flo, bonjour le forum,

Pour ton histoire de F9 qui ne recalcule pas, tu devrais vérifier les options. Menu Outils/Option, onglet Calcul, cocher Automatique.

Pour le reste je te propose la macro suivante :

Sub Macro1()
Dim cel As Range 'déclare la variable cel
'boucle sur toutes les cellules éditées de la ligne 1
For Each cel In Range(Cells(1, 1), Cells(1, 256).End(xlToLeft))
    'si les majuscules de la cellule sont "CACHE"
    If UCase(cel.Value) = "CACHE" Then
        cel.EntireColumn.Hidden = True 'masque la colonne de la cellule
    Else 'sinon
        cel.EntireColumn.Hidden = False 'affiche la colonne de la cellule
    End If 'din de la condition
Next cel
End Sub

 

[flo2002]

Re : Boucle en ligne

une piste que je gratte:

For x = 1 To 48

If Cells(1, x) = "cache" Then


Next x

mais je ne sais lui cache mioi la colonne
Est ce que je dois lui dire que x represente une colonne?

 

[flo2002]

Re : Boucle en ligne

Merci Robert, la macro fonctionne mais le probleme est que ma formule n'est pas mise à jour malgrés le calculate de debut de macro
voici la formule:

=SI(SOMME(I:I)=0;"CACHE";"")
merci d'avance

 

[Robert]

Re : Boucle en ligne

Bonjour Flo, bonjour le forum

Si tu écris cette formule dans la colonne I elle doit provoquer une référence circulaire, non ?
J'aurais plutôt écris en I1:
=SI(SOMME(I2:I65536)=0;"CACHE";"")

 

[flo2002]

Re : Boucle en ligne

Merci Robert Juste parfait,

J'y ai penser à cette affaire de circulair mais bon j'aurai pas cru...
Comme quoi faut jamais se fier à une circulaire qu'on se le dise.

Merci encore!