Petit problème...

[Fab291]

Bonjour,

Voilà la situation :
- J'ai créé une "case à cocher" sur une feuille qui lorsqu'elle est décochée masque un certain nombre de lignes et lorsqu'elle est cochée les affiches.
- J'ai créé un bouton qui me permet d'ajouter des lignes (avec format et formule etc.)

Voilà mon problème :
Comment dire que : lorsque j'ai appuyé sur mon bouton "ajout d'une ligne" une ou plusieurs fois.. ma case à cocher s'adapte et ajoute dans sa sélection de ligne (à masquer ou afficher) celle qui ont été ajoutée par le bouton...



Merci d'avance

 

[tototiti2008]

Re : Petit problème...

Bonjour Fab291,

sans voir le code qui fait tout ça, difficile de répondre

 

[Fab291]

Re : Petit problème...

Je viens d'ajouter mon fichier

Au plaisir

 

[phlaurent55]

Re : Petit problème...

Bonjour à tous,

    If CheckBox1 = False Then
    [B][COLOR=red]Range("26:26,32:47").Select[/COLOR][/B]
    Selection.EntireRow.Hidden = True
    Range("C23").Select
    End If

c'est là que se trouve le problème,car ton fichier évolue( ajout de lignes) mais ce sont toujours les mêmes lignes qui sont "Hidden"
remarque perso : pas très compréhensible ta ligne en rouge

à+
Philippe

 

[ROGER2327]

Re : Petit problème...

Bonjour Fab291, tototiti2008

Essayez

[COLOR="DarkSlateGray"][B]Private Sub CheckBox1_Click()
   If CheckBox1 = True Then
      Range("26:26,32:" & Range("limite").Row).Select
      Selection.EntireRow.Hidden = False
      Range("C33").Select
   Else
      If CheckBox1 = False Then
         Range("26:26,32:" & Range("limite").Row).Select
         Selection.EntireRow.Hidden = True
         Range("C23").Select
      End If
   End If
End Sub[/B][/COLOR]

après avoir nommé "limite" la dernière ligne à masquer.​

ROGER2327
#3620

Lundi 16 Merdre 137 (Nativité de Saint Donatien A François, SQ)
14 Prairial An CCXVIII
2010-W22-3T16:37:06Z

 

[Fab291]

Re : Petit problème...

Bonjour

phlaurent55,
Je sais, le problème se trouve ici...
Mais comment pourrais-je faire autrement?

Ma ligne : Range("26:26,32:47").Select
veut simplement dire qu'il sélectionne la ligne (entière) 26 et les lignes (entière) 32 à 47.

Quel code faudrait-il pour qu'il prenne en compte mes lignes ajoutées?

Un code du style :
Si le bouton à été activé alors
range.... +1.select...

possible??? et surtout comment faire

ROGER 2327,
Comment faire pour nommer limite comme ma dernière ligne à masquer? (sachant que la dernière ligne change toujours puisqu'il y a ajout de ligne)

 

[ROGER2327]

Re : Petit problème...

Re...

(...)
ROGER 2327,
Comment faire pour nommer limite comme ma dernière ligne à masquer?

C'est fait dans le classeur joint : regardez dans le menu Insertion/Nom/Définir...
​

ROGER2327
#3622

Lundi 16 Merdre 137 (Nativité de Saint Donatien A François, SQ)
14 Prairial An CCXVIII
2010-W22-3T16:47:05Z

 

[Fab291]

Re : Petit problème...

Nickel !

Merci

 

[phlaurent55]

Re : Petit problème...

Re,

une autre manière de procéder:
mettre une donnée "bidon" dans la dernière cellule de la colonne A ( éventuellement la mettre en blanc sur blanc)
et utiliser:
limite=Range("A65535").End(XlUp).row
ensuite:
limite=limite-n ' n étant le nombre des dernières lignes qui ne sont pas masquées

à+
Philippe

 

[Fab291]

Re : Petit problème...

Merci pour ta soluce phlaurent, je retiens tout de même celle de Roger

M'en veut pas

A+