Mise en forme

[a10]

je recherche des reponse afin d'avoir un filtre et une police plus grande
garder le curseur toujours en haut

a+

voici le code qui est dans la feuille 1
Option Explicit
Private Sub Worksheet_Change(ByVal R As Range)
If R.Count > 1 Then Exit Sub
If Intersect(R, Cells.SpecialCells(xlCellTypeAllValidation)) Is Nothing Then Exit Sub
'tout se passe en colonne où sont copiées les valeurs initiales
Cells(Columns(2).Find(R, , , xlWhole).Row, 2) = ""
Range("B10", Cells(Rows.Count, 2).End(xlUp)).Sort [B10], 1
End Sub

 

[phlaurent55]

Re : Mise en forme

Bonjour a10,

une solution à adapter

est-ce utile de poser 2 fois la même question
https://www.excel-downloads.com/threads/filtre.210825/


à+
Philippe

 

[a10]

Re : Mise en forme

Bonjour

Merci mais avecquel outil on peut faire cela
a+

 

[a10]

Re : Mise en forme

Bonjour,

J'ai essayé avec une liste axtive x

dans mon dossier j'ai 450 noms et mon tableau va de B2 à IR 40
(dans votre fichier pour l'exemple il va de B2 à b7)

est ce pour ce la que cela "rame"

je voudrai que dans ma liste quand un nom est utilisé il se décremente

j'ai essayé cela

mais cette macro ne marche pas si je la copie en dessous de votre macro


Option Explicit
Private Sub Worksheet_Change(ByVal R As Range)
If R.Count > 1 Then Exit Sub
If Intersect(R, Cells.SpecialCells(xlCellTypeAllValidation)) Is Nothing Then Exit Sub
'tout se passe en colonne I ou 9 , colonne où sont copiées les valeurs initiales
Cells(Columns(2).Find(R, , , xlWhole).Row, 2) = ""
Range("B100", Cells(Rows.Count, 2).End(xlUp)).Sort [B100], 1
End Sub


a+

 

[a10]

Re : Mise en forme

Bonsoir


je m'apercois que dans mon fichier
1 fois cela marche bien

je clique sur une cellule j'ai la liste, je clique sur la liste et cela colle la valeur => tres bien

mais quad je clique sur une nouvelle celllule, e clique sur la liste et cela ne colle lpas a valeur

en refaisant l'operation sur une nouvelle cellule cela marche

est ce que j'ai pas modifié une valeur?

a+

 

[a10]

Re : Mise en forme

Bonsoir

dans mon post de 21h14 je voulais faire retirer de ma liste les noms utilisés mais je m'appercois qu'il n'est plus possible de faire coller et copier.

Alors je pensai garder la liste compléte dans ma li box 1
mais
avoirle nom de ma liste avec 2 colonnes
dans la premier colonne j'aurai le n° de la ligne

est il possible que le curseur reste à la position avant de la retirer?

ou est il possible de ne pas le masquer?

a+

 

[a10]

Re : Mise en forme

bonsoir

ne plus tenir compte de mo post de 21h14 et de 21h23 car maintenant cela marche!!! je ne sais pas pourquoi


comment faire pour que la liste rest e toujours en haut de la page meme si je clique plus bas dans une cellule

a+

 

[phlaurent55]

Re : Mise en forme

Re bonjour

comment faire pour que la liste reste toujours en haut de la page meme si je clique plus bas dans une cellule

pour pouvoir évoluer en VB, il faut faire un minimum d'efforts pour essayer de comprendre

ListBox1.Top = ActiveCell.Top <------ à adapter ou à supprimer

à+
Philippe

 

[a10]

Re : Mise en forme

Bonjour,

j'ai essayé de trouvémais outrouver list box 1 top
je vais dans mes propiete mais je n'ai pas cette info.

Je souhaiterai trouver la possibilité que ma list box reste aux meme dimensios

a+

 

[a10]

Re : Mise en forme

re bonjour

quand je supprime:
ListBox1.Top = ActiveCell.Top

quand je clique plus rien ne se passe.


a+

 

[phlaurent55]

Re : Mise en forme

Re,

Je souhaiterai trouver la possibilité que ma list box reste aux meme dimensios

elle reste aux même dimensions, la macro n'intervient pas sur les dimensions de la listbox

quand je supprime:
ListBox1.Top = ActiveCell.Top

quand je clique plus rien ne se passe.

... ça m'étonnerais, c'est qu'il y a autre chose qui a été supprimé

voir fichier joint pour les explications concernant la listbox

à+
Philippe

Edit: à la prochaine question, il serait nécessaire de joindre ton fichier, je ne vais plus m'amuser à donner des explications et rectifier le tir chaque fois que tu chamboules la macro

 

[a10]

Re : Mise en forme

bonjour,

1/ Comment faire pour garder la liste box 1 toujours heigt à 454 et le width = 163.5

quand j ele reouvre il change ses propriétes


2/ J'avais peut être pensé avec une macro qui met ces parametres heigt à 454 et le width=163 mais je n'arrive pas à trouver la bonne syntaxe


3/ Je dois parfois déplacer des cellules par exemple de la cellule b7 à h7
je souhaite utiliser copier et coller qui est tres simple à utiliser.

Mai savec cette macro je ne peux pas coller:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("B2:h250")) Is Nothing Then
'ListBox1.Top = ActiveCell.Top
ListBox1.Visible = True
End If
End Sub

=> peut etre une macro je pourrai changer B2:h250 par B2:B3 (a mettre si je clique sur un bouton)
je peux faire les copier /coller si neccessaire

et je remet: B2:h250 ( avec une macro

je reste à votre disposition pour plus de renseignements

a+

 

[phlaurent55]

Re : Mise en forme

Re-bonjour

1/ Comment faire pour garder la liste box 1 toujours heigt à 454 et le width = 163.5

quand j ele reouvre il change ses propriétes

pour cela il n'y a rien à faire, la listbox réapparaîtra toujours avec les dimensions et la position qui lui ont été données au moment où elle a été déposée sur la feuille

2/ J'avais peut être pensé avec une macro qui met ces parametres heigt à 454 et le width=163 mais je n'arrive pas à trouver la bonne syntaxe

voir le code ci-dessous

3/ Je dois parfois déplacer des cellules par exemple de la cellule b7 à h7
je souhaite utiliser copier et coller qui est tres simple à utiliser.

c'est le mot "parfois" qui pose problème
quelle elle est la condition qui autorise (ou non) la copie de la cellule ?

=> peut etre une macro je pourrai changer B2:h250 par B2:B3 (a mettre si je clique sur un bouton)
je peux faire les copier /coller si neccessaire

il serait alors nécessaire de faire un double code,
la première partie se déclenchant sur la colonne B
la seconde partie se déclenchant sur le reste du tableau ( colonne C à H )

............ mais tant que je ne connaîtrai pas l'utilité de tout cela ( + réponse à la question en bleu ci-dessus), la solution risquera de se faire attendre

Private Sub ListBox1_Click()
ActiveCell = ListBox1.Text
ListBox1.Visible = False
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("B2:H250")) Is Nothing Then
ListBox1.Height = 454
ListBox1.Width = 163.5
ListBox1.Visible = True
End If
End Sub

à+
Philippe

 

[a10]

Re : Mise en forme

bonjour,

1/ tres bien pour la dimension cela semble fonctionné cett petite modif de macro:
ListBox1.Height = 454
ListBox1.Width = 163.5

2/ Si je remplace: B2:H250 par B2:b5 je peux coller sur toute la feuille
peux t on supprimer cett ligne et à quoi elle sert?

3/ Ce la m'arrangerai car je dois pouvoir changer de place à la cellule.Par exemple
je met janvier dans la cellule b4
je fais effacer
puis je clique sur la cellule b5 pour coller mois de janvier

mais je ne peux pas cliquer 2 fois sur le meme mois sauf si j choisi un autre mois et que je reviens sur lemois de jancier

4/ est il possible de retirer de la listbox1 les mois qui ont ete mis dans le carre jaune?

a+

je peux joindre le fichier si vous voulez plus de renseignements

 

[phlaurent55]

Re : Mise en forme

Re-bonjour,

2/ Si je remplace: B2:H250 par B2:b5 je peux coller sur toute la feuille
peux t on supprimer cett ligne et à quoi elle sert?

cette ligne sert à vérifier si la cellule sélectionnée se trouve dans la zone (en jaune dans le fichier
il ne faut pas supprimer cette ligne sinon la listbox apparaîtra à chaque sélection de cellule, n'importe où dans la feuille

3/ Ce la m'arrangerai car je dois pouvoir changer de place à la cellule.Par exemple
je met janvier dans la cellule b4
je fais effacer
puis je clique sur la cellule b5 pour coller mois de janvier

dans le fichier joint j'apporte une modif à la macro pour pouvoir effacer un contenu de cellule

4/ est il possible de retirer de la listbox1 les mois qui ont ete mis dans le carre jaune?

là, je ne comprends pas très bien car lorsqu'on aura utilisé tous les éléments de la listbox, elle sera vide et inutilisable

je peux joindre le fichier si vous voulez plus de renseignements

ça aurait du être fait depuis longtemps

à+
Philippe