IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
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

Macros et VBA Excel Discussion :

Effacement de cellules


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre habitué
    Inscrit en
    Octobre 2010
    Messages
    8
    Détails du profil
    Informations forums :
    Inscription : Octobre 2010
    Messages : 8
    Par défaut Effacement de cellules
    Bonjour,
    Grâce à Mercatog je peux effacer des noms identiques dans une feuille à ceux que je rentre dans une autre feuille, je le remercie encore.
    Mais maintenant et en plus de cette macro je souhaiterai effacer aussi le contenu des cellules qui sont à la gauche des noms.
    Par ex:
    Ayant dans la feuille "ORGA" dans la plage A9:B55 :
    | A | B
    ______________________
    09 | Monsieur | DUPONT |
    _______________________
    10 | Madame | LEGRAND |
    ________________________

    Inscrivant dans la feuile "RELEVE" dans la plage "C6:B31" des noms et autres
    comme par exemple:
    | C | B |
    _____________________
    6 | Madame | LEGRAND |
    ______________________

    Si je clique sur la macro alors elle efface le contenu des cellules A10 et B10 de la feuille"ORGA".
    Merci pour votre aide, cordialement.0916paps

    Pour vous aidez voici le code que m'a crée Mercatog :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    Dim c As Range, v As Range, Plage As Range
     
    With Sheets("ORGA")
        Set Plage = Union(.Range("B9:B55"), .Range("D10:D55"), .Range("F11:F55"), .Range("H11:H55"))
    End With
    For Each v In Sheets("RELEVE").Range("B6:B31")
        If v <> "" Then
            For Each c In Plage
                If InStr(c, v) > 0 Then c.ClearContents
            Next c
        End If
    Next v
    Set Plage = Nothing

  2. #2
    Membre Expert Avatar de aalex_38
    Inscrit en
    Septembre 2007
    Messages
    1 631
    Détails du profil
    Informations forums :
    Inscription : Septembre 2007
    Messages : 1 631
    Par défaut
    Bonjour,


    Tu peux utiliser "offset" ou "resize"

  3. #3
    Expert éminent Avatar de mercatog
    Homme Profil pro
    Inscrit en
    Juillet 2008
    Messages
    9 435
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Autre

    Informations forums :
    Inscription : Juillet 2008
    Messages : 9 435
    Par défaut
    Bonjour,
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    Dim c As Range, v As Range, Plage As Range
     
    With Sheets("ORGA")
        Set Plage = Union(.Range("B9:B55"), .Range("D1055"), .Range("F11:F55"), .Range("H11:H55"))
    End With
    For Each v In Sheets("RELEVE").Range("B6:B31")
        If v <> "" Then
            For Each c In Plage
                If InStr(c, v) > 0 Then Sheets("ORGA").Range(c.Offset(0, -1), c).ClearContents
            Next c
        End If
    Next v
    Set Plage = Nothing

Discussions similaires

  1. Comment effacer des cellule après modification d'une cellule
    Par NEC14 dans le forum Macros et VBA Excel
    Réponses: 7
    Dernier message: 02/03/2009, 08h51
  2. Effacer texte cellule quand curseur
    Par jeanGuignol dans le forum Composants
    Réponses: 3
    Dernier message: 24/11/2008, 10h15
  3. Effacer des cellules en fonction de la date
    Par jarault dans le forum Macros et VBA Excel
    Réponses: 9
    Dernier message: 16/04/2008, 12h08
  4. [VBA-XLA]Formule qui efface la cellule, est ce possible?
    Par EvaristeGaloisBis dans le forum Macros et VBA Excel
    Réponses: 8
    Dernier message: 14/06/2007, 13h51
  5. Réponses: 10
    Dernier message: 03/05/2006, 11h34

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