Discussion :

[Miraie]

Bonjour,

Je vous explique mon problème. Je gère une flotte d'autobus et j'aimerai savoir quel véhicule est disponible. Donc en colonne A j'ai ma liste d'autobus. Je veux que si je rentre le numéro d'un des véhicules dans une autre liste (colonne B,C ou D), le numéro du véhicule se trouvant dans l'une de c'est colonnes doit s'effacer de la colonne A. Que serait ma solution?

Merci d'avance

[Menhir]

Je veux que si je rentre le numéro d'un des véhicules dans une autre liste (colonne B,C ou D), le numéro du véhicule se trouvant dans l'une de c'est colonnes doit s'effacer de la colonne A. Que serait ma solution?

Si le problème est uniquement visuel, tu peux utiliser une mise en forme conditionnelle.

Sur ta colonne A tu mets une mise en forme conditionnelle de type Formule avec une formule qui compterait le nombre de fois qu'apparait la référence du bus dans les colonnes B, C et D (par exemple, la somme de 3 NB.SI). Si les marque dans les colonne B, C, D sont sur la même ligne que A, ce sera encore plus simple.

Comme format, tu mets une couleur de police de la même couleur que celle du fond et la référence en colonne A sera invisible.
Mais, perso, plutôt que de rendre cette référence invisible, je la mettrais en fond rouge, histoire qu'elle soit toujours visible mais clairement signalée indisponible.

[Miraie]

Merci ARTURO83 et Menhir vous êtes géniaux. Je vais utiliser la technique d'ARTURO83 tout an mettant une mise en forme conditionnelle afin de voir les répétitions possibles dans les colonnes C,D et E.

[ARTURO83]

Bonjour

Exemple à adapter
le fichier
Pièce jointe 499323

Le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Option Compare Text
 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim f1 As Worksheet, f2 As Worksheet
    Dim DerLig_f1 As Long, DerLig_f2 As Long
 
    Application.ScreenUpdating = False
    Application.EnableEvents = False
 
    Set f1 = Sheets("Planning")
    Set f2 = Sheets("Liste des bus")
 
    If Not Intersect(Target, Range("C2:E100")) Is Nothing Then
        DerLig_f1 = f1.[B10000].End(xlUp).Row
        Set Bus = f1.Range("B1:B" & DerLig_f1).Find(Target, LookIn:=xlValues, lookat:=xlWhole)
        If Not Bus Is Nothing Then
            f1.Range(Cells(Bus.Row, "A"), Cells(Bus.Row, "B")).Delete Shift:=xlUp
        Else 'on reconstruit la liste des bus et on ne conserve que les bus non sélectionnés en B, C ou D
            DerLig_f2 = f2.[B10000].End(xlUp).Row
            f2.Range("A1:B" & DerLig_f2).Copy Destination:=f1.[A1]
            For Each Cell In f1.Range("C2:E" & DerLig_f2)
                If Cell <> "" Then
                    Set Bus = f1.Range("B1:B" & DerLig_f2).Find(Cell, LookIn:=xlValues, lookat:=xlWhole)
                    If Not Bus Is Nothing Then f1.Range(Cells(Bus.Row, "A"), Cells(Bus.Row, "B")).Delete Shift:=xlUp
                End If
            Next
        End If
    End If
    Application.EnableEvents = True
 
    Set Bus = Nothing
    Set f1 = Nothing
    Set f2 = Nothing
End Sub

Cdlt