[Catégorie modifiée .Net - VBA] macro pour débutantRésolu

Question

Salut tout le monde,

Je suis totalement nul en macros (je sais à peine en faire par enregistrement)
Et je voudrais justement en créer 1, qui serait je pense très facile pour la plupart des gens de ce forum.

J'ai un graphique reprenant les données d'un tableau en ligne (avec les semaine en abscisse). Chaque semaine, de nouvelles données s'ajoutent dans la semaine concernée. les semaines à venir sont présentes ds le tableau, mais laissant pour le moment les données vides (ex : S23/24/25/26...)

Les semaines non renseignées pour le moment sont cachées, pour ne pas qu'elles apparaissent sur le graphique
je voudrais simplement qu'une macro me permette d'afficher sur le tableau de donénes juste LA semaine suivante non encore renseignée (qui était cachée). Qui me permettrait ainsi de les remplir au fur et à mesure, mais sans avoir à chaque fois à tout afficher puis à cacher les semaine qui ne m'intéressent pas..


J'espere avoir été à peu près clair, c'est difficil comme ça à expliquer... merci pour votre aide !!!

jordane45 · Accepted Answer

Bonjour,

Alors.. si je reformule :
-Tu as un tableau dont les en-tetes sont les N° de semaine.
-Dans les lignes en dessous, des valeurs sont renseignées jusqu'à la semaine en cours.
-Les semaines suivantes sont masquées.

Tu souhaiterais afficher, lorsque tu lances ta macro, la première semaine masquée de ton tableau. ( et ainsi de suite a chaque execution de la macro)..

Bref, pour se faire, le plus simple serait :
1 - Chercher la première colonne masquée (via une boucle par exemple )
2 - L'afficher ( hidden=false)



Sub Affic_Col_Masquee()


' Je defini la plage de cellules contenant les N° de semaine
Dim Plage_Num_Sem As Range
Set Plage_Num_Sem = Range("A1:AZ1")

'Boucle de traitement qui va rechercher la premiere colonne masquée
For Each c In Plage_Num_Sem
col = c.Column
    'Test si la cellule est masquée..
    If Columns(col).Hidden = True Then
        'si Oui.. rendre la colonne visible et sortir du programme
        Columns(col).Hidden = False
        Exit Sub
    End If
Next
End Sub

Cordialement,
Jordane,
______________________________________________________
Règles du forum à lire avant de poster une question : ICI

nathan145 · Answer

tain c'est exactement ce que je voulais !

Merci beaucoup !!!

jordane45 · Answer

Bonjour,

je t'en prie.

Par contre passe le sujet en résolu STP.

Cordialement,
Jordane,
______________________________________________________
Règles du forum à lire avant de poster une question : ICI

ucfoutu · Answer

Bonjour,

Si aucune masquée avant celle à démasquer, même pas besoin de boucle.
On Error Resume Next '(pour le cas où plus aucune masquée)
  Cells(1, ActiveSheet.Cells.SpecialCells(xlCellTypeVisible).Areas(1).Columns.Count + 1).EntireColumn.Hidden = False


____________________
Vous aimez Codes-Sources ? Il vous aide ? Cliquez ici pour l'aider à continuer
Cliquer sur "Réponse acceptée"  en bas d'une solution adéquate est

[Catégorie modifiée .Net -> VBA] macro pour débutant

4 réponses

Votre réponse

Discussions similaires