Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Mise en forme

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion a10
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
A

a10

XLDnaute Impliqué
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
 

Pièces jointes

Trier par date Trier par votes
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+
 
Vote positif 0 Vote négatif
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+
 
Vote positif 0 Vote négatif
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+
 
Vote positif 0 Vote négatif
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+
 
Vote positif 0 Vote négatif
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+
 
Vote positif 0 Vote négatif
Re : Mise en forme

Re,
Je souhaiterai trouver la possibilité que ma list box reste aux meme dimensios
Cliquez pour agrandir...
elle reste aux même dimensions, la macro n'intervient pas sur les dimensions de la listbox


a10 à dit:
quand je supprime:
ListBox1.Top = ActiveCell.Top

quand je clique plus rien ne se passe.
Cliquez pour agrandir...
... ç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
 

Pièces jointes

Vote positif 0 Vote négatif
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+
 

Pièces jointes

Vote positif 0 Vote négatif
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
Cliquez pour agrandir...
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
Cliquez pour agrandir...
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.
Cliquez pour agrandir...
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
Cliquez pour agrandir...
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

Code: 
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
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
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?
Cliquez pour agrandir...
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
Cliquez pour agrandir...
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?
Cliquez pour agrandir...
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
Cliquez pour agrandir...
ça aurait du être fait depuis longtemps

à+
Philippe
 

Pièces jointes

Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

N
  • Question Question
XL 2013 Utilisé deux CommandButton_Click dans la même feuil
Réponses
4
Affichages
118
patricktoulon
U
  • Question Question
Autres [RÉSOLU] Compléter macro pour Suppr cellules
Réponses
7
Affichages
114
un internaute
U
U
  • Question Question
Autres [RÉSOLU] Compléter la macro mais comment et où?
Réponses
2
Affichages
250
un internaute
U
J
  • Question Question
Microsoft 365 Worksheet_Change ou Worksheet_Calculate
Réponses
9
Affichages
230
job75
  • Question Question
XL 2016 annulation ou désactivation de macro
2
Réponses
27
Affichages
575
job75
A
  • Résolu(e)
XL 2019 Remplacer un mot et ajouter une couleur
Réponses
7
Affichages
345
Attila451
A
S
  • Résolu(e)
Microsoft 365 Déclenchement macro en série suite à cellule fusionnées
Réponses
3
Affichages
259
spike29
S
U
  • Question Question
Autres [RÉSOLU] macro à modifier
Réponses
1
Affichages
185
un internaute
U
W
  • Résolu(e)
XL 2016 Placer mes photos dans la colonne A, [A3], [A4],etc, jusqu'en [A99] selon le prénom et le nom colonnes B et C
2
Réponses
26
Affichages
426
Webperegrino
W
F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
257
TooFatBoy
A
  • Question Question
XL 2010 Filtrer un Combobox en VBA excel
2 3
Réponses
43
Affichages
908
Dranreb
  • Question Question
XL 2016 XLS - Comment déterminer les zones présentent au niveau d'une cellule ?
Réponses
2
Affichages
221
Lu76Fer
  • Question Question
XL 2013 Sub commentaire
Réponses
2
Affichages
157
lestoiles1
  • Question Question
XL 2019 Gérer la descente d'une cellule colorer selon un timer
2 3 4
Réponses
56
Affichages
2 K
Rheeem
R
A
  • Question Question
XL 2019 Copie d'une valeur dans la cellule à côté d'une valeur trouvé
Réponses
1
Affichages
147
sylvanu
D
  • Question Question
Microsoft 365 VBA copier cellule, conserver la copie tout en effaçant contenu
2 3
Réponses
33
Affichages
1 K
fanch55
M
  • Question Question
XL 2016 liste déroulante formulaire vba excel
2
Réponses
20
Affichages
473
fanch55
C
  • Question Question
Microsoft 365 worksheet_change
2
Réponses
29
Affichages
504
CortoXls
C
N
  • Question Question
Microsoft 365 connexion ado vers access office 2024 64 bits
Réponses
2
Affichages
263
nabilexcel2007
N
F
  • Résolu(e)
Microsoft 365 Evènement worksheet_change
Réponses
2
Affichages
113
Francky79
F
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…