• 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 !

a10

XLDnaute Impliqué
Bonjour,
j'ai une liste d'environ 400 nom
Je voudrai mettre dans les cases les noms et si possible a chaque fois que le nom est inscrit il doit se retirer de la liste.

Peut t on le faire assez facilement.

A+
 

Pièces jointes

Re : liste o

Bonjour a10, Salut Modeste
Un peu la même idée sans colonne supplémentaire.
Si tu écris aa dans une des cellule de $A$5:$E$8 le mot aa "disparait" de la liste $H$4:$H$11

C'est une mise en forme conditionnelle qui passe la couleur de la police en blanc 😀
Cordialement
 

Pièces jointes

Re : liste o

bonsoir

quand je déplace la colone

Restants
aa
ff
gg
ccc
bb
ii
oo
pp

en K2 cela ne fonctionnre pas.

quelle est la raison

je modifie la formule mais j'ai un message d'erreur signalant erreur sur la matrice.

que veux dire :

Restants =DECALER(Feuil1!$I$4;;;NB.SI(Feuil1!$I$4:$I$11;"?*"))


a+
 
Re : liste o

Bonjour

comment faire pour coller sur les 400 lignes cette formule

=SIERREUR(INDEX(H4:H11;PETITE.VALEUR(SI(NB.SI(A5:E8;H4:H11)=0;LIGNE(INDIRECT("1:"&LIGNES(H4:H11))));LIGNE(INDIRECT("1:"&LIGNES(H4:H11)))));"")

car quand j ecopie h4: h11

change sur les ligne ssuivantes
h5: h12
puis en dessous
h6:h13

a+
 
Re : liste o

bonjour,

quand dans ma liste j'ai des chiffres et des noms apres avoir sélectionné une données il clase la validation les chiffrs puis par ordre alphabétique les les noms

comment faire pour que maliste reste dans le meme ordre
a+
 
Re : liste o

Bonjour,

Il me classe les chiffres puis apres les lettres

avec ce code:

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+
 
Re : liste o

salut

avec cette macro :
Code:
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
  Dim L As Long
  L = Columns(9).Find(R, , , xlWhole).Row
  Range(Cells(L + 1, 9), Cells(Cells(Rows.Count, 9).End(xlUp).Row + 1, 9)).Copy Cells(L, 9)
End Sub
 
- 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

Réponses
18
Affichages
598
Réponses
5
Affichages
481
Réponses
8
Affichages
310
Réponses
15
Affichages
460
Retour