Modification VBA pour insertion des lignes figées
RésoluBonjour, 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
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.
-
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
-
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
-
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 subSur 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
-
C’est sans doute juste mais moi je n'ai pas changé :
Ou faut il que je colle l'ensemble ?
LOL, Christophe
-
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 = Trueet pour les démasquer :
ActiveSheet.Rows("154:162").Hidden = False
-
Re,
Oui j'ai vu le fichier
Je suis absent cet après-midi, je reprendrai ce soir
-
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
-
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
-
Bonsoir, merci pour l'information
-
Bonjour
Tu peux tester de mettre ton fichier par transfernow c'est aussi gratos
https://www.transfernow.net/fr
Slts
