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 :

Suprimmer PREMIERE CELLULE en fonction de A1


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Candidat au Club
    Homme Profil pro
    Chargé d'affaire
    Inscrit en
    Mai 2018
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 39
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Chargé d'affaire
    Secteur : Communication - Médias

    Informations forums :
    Inscription : Mai 2018
    Messages : 4
    Par défaut Suprimmer PREMIERE CELLULE en fonction de A1
    Bonjour,

    J'aimerai créer un macro qui me permettrais de supprimer dans une base de donner avec 3 colonnes, la première ligne qui corresponde à A1:

    FEUILLE2
    REFERENCE NOM PRENOM
    TESTE1 TOTO TATA
    TESTE1 TITI TITI
    TESTE2 MAMA MOMO


    FEUILLE1
    Si A1 égale à TESTE1 alors supprimer la première ligne uniquement et faire apparaître en A2 LE NOM

    quand je modifie A1 qu'il continu ...


    Merci de votre aide !

    Cdt

  2. #2
    Membre éprouvé Avatar de Wololol
    Homme Profil pro
    Étudiant
    Inscrit en
    Avril 2018
    Messages
    104
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 26
    Localisation : France, Meurthe et Moselle (Lorraine)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Avril 2018
    Messages : 104
    Par défaut
    Bonjour,

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
     
     For i = 1 To Worksheets("FEUILLE2").Range("A" & Rows.Count).End(xlUp).Row
            If Worksheets("FEUILLE1").Range("A1").Value = Worksheets("FEUILLE2").Range("A" & i).Value Then
                Worksheets("FEUILLE1").Range("A2").Value = Worksheets("FEUILLE2").Range("B" & i).Value
                Worksheets("FEUILLE2").Range("A" & i).EntireRow.Delete
            End If
        Next
    A toi de placer ce code où tu le souhaite.

    Bonne journée

  3. #3
    Candidat au Club
    Homme Profil pro
    Chargé d'affaire
    Inscrit en
    Mai 2018
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 39
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Chargé d'affaire
    Secteur : Communication - Médias

    Informations forums :
    Inscription : Mai 2018
    Messages : 4
    Par défaut
    Merci !!!!!!!!!!!!!

    Bravo !!

  4. #4
    Candidat au Club
    Homme Profil pro
    Chargé d'affaire
    Inscrit en
    Mai 2018
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 39
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Chargé d'affaire
    Secteur : Communication - Médias

    Informations forums :
    Inscription : Mai 2018
    Messages : 4
    Par défaut
    Rebonjour !!

    Comment puis-je faire en sorte que la macro soit active en permanence ? ( pas par bouton )
    En gros dès que je modifie A1

    Merci

Discussions similaires

  1. Fusion de cellules en fonction de leur valeur
    Par Eusebe dans le forum BIRT
    Réponses: 9
    Dernier message: 29/04/2010, 17h56
  2. Comment écrire dans une cellule la fonction SUM en vba?
    Par Subkill dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 15/02/2007, 19h24
  3. Copy premiere Cellule vide dans colonne
    Par dvguy dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 06/12/2006, 16h32
  4. Réponses: 10
    Dernier message: 03/05/2006, 11h34
  5. [VBA-E]selectionner la premiere cellule non vide d'une ligne
    Par muse47 dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 14/10/2005, 08h11

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