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

[smirnoff]

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

 

[smirnoff]

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...)

 

[smirnoff]

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

 

[are]

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 ?

 

[smirnoff]

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

 

[smirnoff]

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

 

[are]

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 )

 

[smirnoff]

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é :-/

 

[are]

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

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

 

[smirnoff]

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.

 

[are]

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 .

 

[smirnoff]

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

Malheureusement ça ne marche pas du tout :-/

 

[are]

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,

 

[smirnoff]

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

Je peux pas, il fait 833ko alors que le maximum est de 233 :-/

 

[are]

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

Réduis le au seul onglet qui nous intéresse,

Et quel est le problème de la macro ? elle plante ?

 

[smirnoff]

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.

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