Modification VBA pour insertion des lignes figées

Résolu
kiko8111 Messages postés 176 Date d'inscription   Statut Membre Dernière intervention   -  
via38 Messages postés 91 Date d'inscription   Statut Membre Dernière intervention   -

Bonjour, je me suis monté un suivi de frais avec une grosse assistance de VIA55 que je remercie encore une fois.
Avec de la pratique je désire amener à ce fichier une amélioration.
Le fichier exemple a été énormément coupé car il est divisé en douze mois. Le mois de janvier se déverrouille en A7 par la sélection de "Valide".
Les lignes de 1 à 6 sont verrouillées car cela me permet suivant les mois affichés d'avoir toujours certaines informations.
De la ligne 7 à la ligne 150 je rentre mes données.
Ce dont j'aimerai :
Par le fait que j'active le VALIDE en A7 les lignes 154 à 162 restent figées en bas de mon écran MAIS que je puisse travailler entre
la ligne 6 et 150.
J'avais prévu le fichier exemple mais CJOINT est en maintenance.
Pour info le dossier n'a pas été modifié dans le code, ce qui cré une erreur mais il ne faut pas en tenir compte : cliquer sur FIN
En vous remerciant

10 réponses

Résumé de la discussion

Le besoin exprimé est que l’activation de VALIDE en A7 masque les lignes 154 à 162 tout en permettant de travailler entre les lignes 6 et 150. La solution technique proposée consiste à créer une macro, par exemple masquer_lignes_bas, qui masque ces lignes et une macro complémentaire pour les démasquer, puis à les lier au bouton VALIDE. En alternative, il est suggéré de fractionner la fenêtre (Affichage > Fractionner) pour afficher simultanément une partie fixe et une partie mobile. Concrètement, le code utilise ActiveSheet.Rows("154:162").Hidden = True pour masquer et ActiveSheet.Rows("154:162").Hidden = False pour démasquer, avec les macros déclenchées depuis le bouton.

Bobot (l'IA à votre service)
  1. via38 Messages postés 91 Date d'inscription   Statut Membre Dernière intervention   24
     

    Mon ancien pseudo ne fonctionnait plus suite à une mise à jour j'ai du en recréer un

    38 c’est mon département  55 c'est mon année de naissance, j'utilise l'un ou l'autre

    J'ai bien retenu ton invitation ☺, si l'occasion se présente ...

    À plus

    Via


    1
  2. The_boss_68 Messages postés 959 Date d'inscription   Statut Membre Dernière intervention   182
     

    Bonjour

    Tu peux tester de mettre ton fichier par transfernow c'est aussi gratos

    https://www.transfernow.net/fr

    Slts

    0
  3. via38 Messages postés 91 Date d'inscription   Statut Membre Dernière intervention   24
     

    Bonjour Christophe

    Figer les lignes du haut possible

    Figer les lignes du bas impossible

    Si tu veux voir les 2 en même temps tu peux fractionner la fenêtre - Voir dans Affichage, ainsi tu gardes une partie fixe et l'autre partie est mobile

    Cordialement

    Via


    0
  4. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  5. kiko8111 Messages postés 176 Date d'inscription   Statut Membre Dernière intervention   33
     

    Bonjour VIA, contant de ton assistance.

    Comme à mon habitude je pense mettre mal exprimé :

    Ce dont je recherche est que lorsque je déverrouille en A7 par VALIDE les lignes que je souhaite ne soient pas Masqué et Si A7 est verrouillé les mêmes lignes ne soient pas affichées.

    Je ne sais pas si tu as pu voir mon fichier joint. Dès que CJOINT sera fonctionnel je le mettrai en téléchargement.

    En te remerciant, Christophe

    0
  6. via38 Messages postés 91 Date d'inscription   Statut Membre Dernière intervention   24
     

    Re,

    Oui j'ai vu le fichier

    Je suis absent cet après-midi, je reprendrai ce soir


    0
  7. via38 Messages postés 91 Date d'inscription   Statut Membre Dernière intervention   24
     

    Bon

    Rentré plus tôt que prévu, alors la macro à associer au bouton VALIDE serait pour masquer les lignes 154 à 162 :

    ActiveSheet.Rows("154:162").Hidden = True
    
    
    
    

     et pour les démasquer :

    ActiveSheet.Rows("154:162").Hidden = False

    0
  8. kiko8111 Messages postés 176 Date d'inscription   Statut Membre Dernière intervention   33
     

    C’est sans doute juste mais moi je n'ai pas changé :

    Ou faut il que je colle l'ensemble ?

    LOL, Christophe

    0
  9. via38 Messages postés 91 Date d'inscription   Statut Membre Dernière intervention   24
     

    Lol

    Depuis le temps qu'on fait des macros ...

    Dans l'éditeur VBA, dans un module

    Sub masquer_lignes_bas
    ActiveSheet.Rows("154:162").Hidden = True
    End sub

    Sur ta feuille tu as ton bouton VALIDER

    S'il est déjà associé à une macro dans cette macro tu mets une ligne

    masquer_lignes_bas

     pour brancher sur la macro qui masque

    Si pas de macro associée tu associes la macro masquer_lignes_bas à ton bouton

    Ensuite tu refais la même opération pour créer une macro pour démasquer


    0
  10. kiko8111 Messages postés 176 Date d'inscription   Statut Membre Dernière intervention   33
     

    Re, oui depuis le temps mais avec le manque de pratique et l'age qui passe je deviens comme les lapins (je court mais oubli bien souvent des choses).

    Je vais pouvoir adapter mon fichier avec cela : Merci

    Deux questions

    Pourquoi 38 à la place de 55, déménagement ?

    Rappel, mon invitation tient toujours si tu passes près de PLN avec une bonne grillage (0678184526). C'est avec grand plaisir.

    Christophe

    0