Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

  1. #1
    Futur Membre du Club
    Homme Profil pro
    Technicien maintenance
    Inscrit en
    avril 2018
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 38
    Localisation : France, Isère (Rhône Alpes)

    Informations professionnelles :
    Activité : Technicien maintenance
    Secteur : Distribution

    Informations forums :
    Inscription : avril 2018
    Messages : 4
    Points : 5
    Points
    5

    Par défaut Remplir/vider des cellules selon le contenu d'une autre

    salutation j'ai ce code vba

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$3" Then
        Sheets("base de donnes").Range("A3:X10000").AdvancedFilter Action:= _
        xlFilterCopy, CriteriaRange:=[A2:A3], CopyToRange:=[A8:X8]
    End If
    End Sub
    ça marche très bien mais le souci même si la cellule A3 et vide après la recherche tous les noms restent toujours affichés ?
    je veux que lorsque j'efface les lettres saisies dans la cellule A3, tous redeviennent comme avant, vides.
    amicalement

  2. #2
    Membre chevronné
    Homme Profil pro
    Electrotechnicien
    Inscrit en
    juillet 2016
    Messages
    1 195
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 65
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Electrotechnicien

    Informations forums :
    Inscription : juillet 2016
    Messages : 1 195
    Points : 2 150
    Points
    2 150

    Par défaut

    Bonjour,

    Ceci
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    Option Compare Text
     
    Private Sub Worksheet_Change(ByVal Target As Range)
        If Target.Address = "$A$3" Then
            If Target.Value <> "" Then
                Sheets("base de donnes").Range("A3:X10000").AdvancedFilter Action:= _
                xlFilterCopy, CriteriaRange:=[A2:A3], CopyToRange:=[A6:X6]
            Else
                Range("A7:X10000").ClearContents
            End If
        End If
    End Sub
    Cdlt

  3. #3
    Futur Membre du Club
    Homme Profil pro
    Technicien maintenance
    Inscrit en
    avril 2018
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 38
    Localisation : France, Isère (Rhône Alpes)

    Informations professionnelles :
    Activité : Technicien maintenance
    Secteur : Distribution

    Informations forums :
    Inscription : avril 2018
    Messages : 4
    Points : 5
    Points
    5

    Par défaut

    merci

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [XL-2010] Besoin d'aide sur VBA / Userform
    Par Todre dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 26/12/2014, 17h42
  2. [XL-2007] Besoin d'aide en VBA sur excel
    Par etan3072 dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 15/11/2013, 12h52
  3. [XL-2007] besoin d'aide sur la creation d'un userform code vba
    Par chris09300 dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 26/03/2011, 20h46
  4. [XL-2007] Besoin d aide sur code vba
    Par alexandrek dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 23/01/2011, 17h10
  5. besoin d'aide sur VBA d'excel
    Par taraud dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 02/03/2010, 15h25

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo