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

Victor21

XLDnaute Barbatruc

Supporter XLD

• 30 Juillet 2014

• #2

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

Bonjour, smirnoff.

Assez simple, mais pas suffisamment claire pour ceux qui ne connaissent pas votre fichier, ni le but exact recherché.
Effacer, est-ce masquer (MEFC) ou supprimer ?
Un p'tit fichier comme vous savez si bien les faire, avec quelques exemples anonymisés mais représentatifs ?
(Avant, quoi, après...)

 

Vote positif 0 Vote négatif

S

smirnoff

Guest

• 30 Juillet 2014

• #3

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

Je pensais être suffisamment pour ne pas envoyer un document mais il faut croire que non ^^
Qu'à cela ne tienne, voilà un petit document anonyme.

Alors en fait voilà, imaginons qu'une personne qui possédait un l'EX19 (au hasard) le rend à l'agence. Au niveau de ce qui correspond à l'agence, je sélectionne le l'EX19. Vu qu'il vient d'apparaître au niveau de l'agence, je souhaiterais qu'il s'efface de l'endroit où il était auparavant.
Par contre est-ce tout de même possible malgré les listes déroulantes?

Cordialement,

Smirnoff

 

Pièces jointes

• Nouveau tableau gestion équipements anonyme.xlsx

  93.4 KB · Affichages: 58
• Nouveau tableau gestion équipements anonyme.xlsx

  93.4 KB · Affichages: 52
• Nouveau tableau gestion équipements anonyme.xlsx

  93.4 KB · Affichages: 50

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 30 Juillet 2014

• #4

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

Re,

Qu'il s'efface, oui, par macro, (mais sans moi).

 

Vote positif 0 Vote négatif

S

smirnoff

Guest

• 30 Juillet 2014

• #5

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

Il n'y aurait pas une méthode plus simple? :-/

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 30 Juillet 2014

• #6

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

Re,

Non, on ne peut pas effacer le contenu d'une cellule par formule.

 

Vote positif 0 Vote négatif

S

smirnoff

Guest

• 30 Juillet 2014

• #7

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

arf...merci quand même
Je vais essayer de voir comment faire :-/

 

Vote positif 0 Vote négatif

A

are

Guest

• 30 Juillet 2014

• #8

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

Bonjour,

Je dois y aller mais j'avais commencé cela :

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("C:C")) Is Nothing Then
a = Range("B22").MergeArea.Rows.Count
Set plage2 = Range("C22:C" & 22 + a - 1)
Set plage = Range("C" & 22 + a & ":C1000")
For Each cell In plage
For Each cell2 In plage2
If cell.Value = cell2.Value Then
cell.Value = " "
End If
Next
Next
End If
End Sub

reste à effacer les cellules adjacentes. Il y a sans doute une meilleure méthode

 

Vote positif 0 Vote négatif

JBOBO

XLDnaute Accro

• 30 Juillet 2014

• #9

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

Bonjour,

Ci joint un exemple avec mise en forme conditionnelle. Attention ça n'efface que 'visuellement'. les donnees sont toujours présentes ds les cellules.

 

Pièces jointes

• test xld.xlsx

  18.3 KB · Affichages: 38
• test xld.xlsx

  18.3 KB · Affichages: 42

Vote positif 0 Vote négatif

S

smirnoff

Guest

• 30 Juillet 2014

• #10

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

Ah merci beaucoup mais par contre....où écrire ce code maintenant?
Dans quelle section exactement? :-/

 

Vote positif 0 Vote négatif

S

smirnoff

Guest

• 31 Juillet 2014

• #11

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

toujours rien de nouveau dans mes essais

 

Vote positif 0 Vote négatif

A

are

Guest

• 31 Juillet 2014

• #12

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

Bonjour,

Clic droit sur l'onglet --> Visualiser le code--> copie colle le code dans la fenêtre

On verra si cela te convient car je ne suis pas certain d'avoir bien compris le résultat souhaité.

 

Vote positif 0 Vote négatif

S

smirnoff

Guest

• 31 Juillet 2014

• #13

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

ça fait planter excel :-/
Bah en fait je veux simplement que quand un équipement est mis au niveau de "agence", s'il était associé à quelqu'un, cette association disparaît. Vice versa, si on associe un équipement à un employé, il s'efface de "agence"

 

Vote positif 0 Vote négatif

A

are

Guest

• 31 Juillet 2014

• #14

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

oui, désolé j'avais modifié une donnée 🙂. Ok, je vois le souci mais ma macro tombe dans une boucle infinie...Je planche 🙂

 

Vote positif 0 Vote négatif

A

are

Guest

• 31 Juillet 2014

• #15

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

Code:

Private Sub Worksheet_Change(ByVal Target As Range)

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 = " "
End If
End If
Next
End Sub

essaye

Question : Il peut y avoir des doublons dans agence ?

 

Vote positif 0 Vote négatif