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

liste(s) déroulante(s) et suppression automatique

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion smirnoff
  • 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
S

smirnoff

Guest
Bonjour à toutes et à tous,

Ma question est assez simple.
J'ai une liste déroulante, elle est constituée d'élément a,b,c,d,e,f, etc...
Y-a-t-il moyen pour que la sélection s'efface automatiquement d'une case lorsque dans une autre je met la même chose?
Exemple: en A j'ai "a", en B j'ai "b". Mais si je mets "a" en F, alors ce qu'il y avait en A est alors effacé.
Je vous remercie par avance pour vos réponses

Cordialement,

Smirnoff
 
Trier par date Trier par votes
Re : liste(s) déroulante(s) et suppression automatique

Hé bien normalement il n'y a pas de doublon dans l'agence vu que chaque numéro de chaque matériel est unique (EX1, EX2, EX3.... PC01, PC02, PC03, etc, etc...)
 
Vote positif 0 Vote négatif
Re : liste(s) déroulante(s) et suppression automatique

ça plante toujours...vraiment étrange :-/
Au pire ne te casse pas la tête. Je te remercie encore pour ton aide 🙂
 
Vote positif 0 Vote négatif
Re : liste(s) déroulante(s) et suppression automatique

Ne t'en fais, j'ai mis le fichier en PJ. Il ne plante pas
Si je peux me permettre c'est quand même assez risqué l'histoire de l'effacement, ereur manuel et aucun moyen de récupérer la donnée --pourquoi pas mettre la ligne d'une couleur différente ?
 

Pièces jointes

Vote positif 0 Vote négatif
Re : liste(s) déroulante(s) et suppression automatique

aucun moyen de récupérer la donnée? bah si vu que tout est marqué dans "listes déroulantes".
Je ne vois pas bien de quelle donnée tu parles en fait
 
Vote positif 0 Vote négatif
Re : liste(s) déroulante(s) et suppression automatique

ah ça fonctionnait....mais lorsque j'ajoute une date d'attribution et que l'équipement est mis dans "agence", ça plante
 
Vote positif 0 Vote négatif
Re : liste(s) déroulante(s) et suppression automatique

Ok, je parle des données comme date d'attribution (pour cela que dans les messages précédents je te demandais si tu désirais effacer toute la ligne ou juste la colonne C).

essaye cette version (j'avais encore oublié la ligne 🙄)
 

Pièces jointes

Vote positif 0 Vote négatif
Re : liste(s) déroulante(s) et suppression automatique

La date d'attribution n'est pas dans "listes déroulantes" et en fait ce n'est pas grave s'il y a une fausse manip' pour ça. Cette date reste importante mais elle doit également être effacé si l'équipement bouge.
Je m'explique assez mal, je suis vraiment désolé :-/
 
Vote positif 0 Vote négatif
Re : liste(s) déroulante(s) et suppression automatique

Ok danc ce cas rajoute dans le code les cellules que tu désires effacer. dans celui-ci j'ai rajouté la cellule dans la colonne D adjacente(Peut-être faudrait-il rajouter les cellules dans la colonne O et P correspondante --copie colle à la suite suivant mon exemple ) . Il faut garder les formules donc on ne peut pas effacer toute la ligne


Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("C:C")) Is Nothing Then
E = Range("A1048576").End(xlUp).Row

a = ActiveCell.Row
For i = 22 To E
If i <> a Then
If ActiveCell.Value = Range("c" & i).Value Then
Range("C" & i).Value = " "
Range("D" & i).Value = " "

End If
End If
Next
End If

End Sub
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : liste(s) déroulante(s) et suppression automatique

J'ai voulu faire quelque chose du genre :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("C:C")) Is Nothing Then
E = Range("A1048576").End(xlUp).Row

a = ActiveCell.Row
For i = 22 To E
If i <> a Then
If ActiveCell.Value = Range("c" & i).Value Then
Range("C" & i).Value = " "
Range("D" & i).Value = " "

a = ActiveCell.Row
For i = 22 To E
If i <> a Then
If ActiveCell.Value = Range("c" & i).Value Then
Range("I" & i).Value = " "
Range("J" & i).Value = " "

etc...

Bien entendu ça ne fonctionne pas. Je précise (mais ai-je vraiment besoin?) que je suis très gros brélon en matière de VBA.
 
Vote positif 0 Vote négatif
Re : liste(s) déroulante(s) et suppression automatique

Bonjour,

Pardon, j'aurais du préciser .
Ci-dessous le code

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("C:C")) Is Nothing Then
E = Range("A1048576").End(xlUp).Row

a = ActiveCell.Row
For i = 22 To E
If i <> a Then
If ActiveCell.Value = Range("c" & i).Value Then
Range("C" & i).Value = " "
Range("D" & i).Value = " "

End If
End If
Next
End If

End Sub

C'est dans la partie en gras que tu dois préciser les cellules que tu souhaites effacer.
Dans ton exemple tu parles des cellules des colonnes I et J.

Mise en application :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("C:C")) Is Nothing Then
E = Range("A1048576").End(xlUp).Row

a = ActiveCell.Row
For i = 22 To E
If i <> a Then
If ActiveCell.Value = Range("c" & i).Value Then
Range("C" & i).Value = " "
Range("D" & i).Value = " "
Range("I" & i).Value = " "
Range("J" & i).Value = " "


End If
End If
Next
End If

End Sub

Dis mois si cela marche .
 
Vote positif 0 Vote négatif
Re : liste(s) déroulante(s) et suppression automatique

ie ? plantage ? ou ce n'est pas ce que tu souhaites

Pourrais-tu renvoyer le fichier qui ne marche pas également stp 🙂

merci d'avance,
 
Vote positif 0 Vote négatif
Re : liste(s) déroulante(s) et suppression automatique

Impossible d'enlever les onglets vu qu'ils sont essentiels pour les listes déroulantes.
En fait le code ne fait plus rien du tout. Si je mets EX12 dans une case autre que agence, il existe toujours dans le case "agence" et dans l'autre case (alors que ce n'était pas le cas au tout début).
Après pour les numéros de NH3, de téléphones, etc.... ça revient exactement pareil.

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("C:C")) Is Nothing Then
E = Range("A1048576").End(xlUp).Row

a = ActiveCell.Row
For i = 22 To E
If i <> a Then
If ActiveCell.Value = Range("c" & i).Value Then
Range("C" & i).Value = " "
Range("D" & i).Value = " "
Range("I" & i).Value = " "
Range("J" & i).Value = " "
Range("O" & i).Value = " "
Range("P" & i).Value = " "
Range("S" & i).Value = " "
Range("T" & i).Value = " "
Range("V" & i).Value = " "
Range("W" & i).Value = " "
Range("Y" & i).Value = " "
Range("Z" & i).Value = " "
Range("AC" & i).Value = " "
Range("AD" & i).Value = " "
Range("AH" & i).Value = " "
Range("AI" & i).Value = " "
Range("AM" & i).Value = " "
Range("AN" & i).Value = " "
Range("AQ" & i).Value = " "
Range("AR" & i).Value = " "
Range("AU" & i).Value = " "
Range("AR" & i).Value = " "
Range("AU" & i).Value = " "
Range("AV" & i).Value = " "
Range("AZ" & i).Value = " "
Range("BA" & i).Value = " "
Range("BB" & i).Value = " "
Range("BC" & i).Value = " "
Range("BD" & i).Value = " "
Range("BE" & i).Value = " "
Range("BH" & i).Value = " "
Range("BI" & i).Value = " "

End If
End If
Next
End If

End Sub
 
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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

M
  • Résolu(e)
XL 2016 Créer liste déroulante avec autocomplétion sous excel 2016
Réponses
8
Affichages
403
Dranreb
M
  • Question Question
XL 2021 Liste déroulante qui exclu les champs déjà utilisés
2
Réponses
21
Affichages
619
TooFatBoy
M
  • Résolu(e)
XL pour MAC Création d'une liste (non déroulante)
Réponses
3
Affichages
271
Blackfwolf
B
Z
  • Question Question
Microsoft 365 Besoin d'aide liste de noms
2
Réponses
18
Affichages
410
zebrano
Z
A
  • Question Question
Microsoft 365 Tri par date impossible sur TCD
Réponses
4
Affichages
177
abouam
A
S
  • Question Question
XL 2016 formule de calcul en fonction du choix de la liste déroulante
2
Réponses
18
Affichages
2 K
Silent
S
R
  • Résolu(e)
Microsoft 365 Champ recherche ou liste déroulante...
Réponses
3
Affichages
341
vgendron
E
  • Question Question
XL 2016 Liste déroulante "pré-chargée"
Réponses
10
Affichages
486
sylvanu
T
  • Résolu(e)
XL 2019 Afficher un mot dans une colonne paramétrée en liste déroulante
Réponses
4
Affichages
335
telemarrk
T
D
  • Question Question
XL 2021 Liste déroulante et RECHERCHEV
Réponses
5
Affichages
576
Dubuyz1
D
S
  • Résolu(e)
Microsoft 365 Liste déroulante et case adjacente
Réponses
7
Affichages
345
JHA
J
M
  • Résolu(e)
Autres Liste déroulante et cellule vide
Réponses
13
Affichages
585
Marjo2809
M
J
  • Résolu(e)
Microsoft 365 Etendre une liste deroulante dynamique
Réponses
4
Affichages
241
josyco
J
S
  • Résolu(e)
XL 2019 formule recherche qui bug
Réponses
4
Affichages
292
Sylvie J
S
  • Résolu(e)
XL 2010 Travail base de données et UserForm
2 3
Réponses
40
Affichages
1 K
ChTi160
R
  • Question Question
XL 2010 Problème avec liste déroulante sur des cellule déjà rempli
Réponses
6
Affichages
809
rider
R
M
  • Question Question
Google Sheets Formule à rallonge avec conditions
Réponses
13
Affichages
207
Moreno076
M
S
  • Question Question
XL 2021 Automatisation et synthèse données
Réponses
1
Affichages
250
Dand87
D
M
  • Résolu(e)
XL 2021 Liste déroulante avec plusieurs conditions
Réponses
7
Affichages
824
MORAD AIT
M
Y
  • Question Question
XL 2019 Suivi d'activité entreprise >> Formule RECHERCHE
Réponses
4
Affichages
390
Gégé-45550
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…