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 :

Recopier la ligne du dessus si une valeur est saisie [XL-2007]


Sujet :

Macros et VBA Excel

  1. #1
    Membre éclairé
    Profil pro
    Inscrit en
    Juin 2007
    Messages
    330
    Détails du profil
    Informations personnelles :
    Âge : 60
    Localisation : France

    Informations forums :
    Inscription : Juin 2007
    Messages : 330
    Par défaut Recopier la ligne du dessus si une valeur est saisie
    Bonsoir,

    En vba est-il possible de recopier la ligne du dessus sous condition de saisir une valeur dans la colonne B ?

    Exemple en B

    Je saisi un code
    la ligne reprend les calculs de la ligne précédente, si on supprime ce code la ligne s'annule.

    Merci d'avance.

  2. #2
    Membre éprouvé
    Profil pro
    Inscrit en
    Décembre 2010
    Messages
    99
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Décembre 2010
    Messages : 99
    Par défaut
    bonsoir Philippe 608 le forum,
    oui mais dans ce cas toutes tes lignes seront dépendantes les unes des autres c'est bien ce que tu veux?
    peux tu joindre un bout de fichier avec la composition de tes lignes pour faire la macro stp?
    a+
    papou

  3. #3
    Membre éclairé
    Profil pro
    Inscrit en
    Juin 2007
    Messages
    330
    Détails du profil
    Informations personnelles :
    Âge : 60
    Localisation : France

    Informations forums :
    Inscription : Juin 2007
    Messages : 330
    Par défaut
    Bonsoir,

    En fait je saisie en B puis la ligne du dessus correspond de B à I

    Donc je voudrai recopier de C à I le reste de la ligne n'est pas utilisée.
    Je n'ai que cette feuille.

    La première ligne sous les titres commence à 9.

    Merci.

  4. #4
    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
    Bonsoir

    A mettre dans le module de ta feuille
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    Private Sub Worksheet_Change(ByVal Target As Range)
     
    If Target.Column = 2 And Target.Row > 9 And Target.Count = 1 Then
        Application.EnableEvents = False
        If Target.Value <> "" Then
            Range("C" & Target.Row - 1 & ":I" & Target.Row - 1).Copy Target.Offset(0, 1)
        Else
            Range("C" & Target.Row & ":I" & Target.Row).ClearContents
        End If
        Application.EnableEvents = True
    End If
    End Sub

  5. #5
    Membre éclairé
    Profil pro
    Inscrit en
    Juin 2007
    Messages
    330
    Détails du profil
    Informations personnelles :
    Âge : 60
    Localisation : France

    Informations forums :
    Inscription : Juin 2007
    Messages : 330
    Par défaut
    Merci beaucoup à vous deux, ça fonctionne.



    Bonne soirée.

    @+

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

Discussions similaires

  1. insérer des lignes par rapport a une valeur dans la ligne au-dessus
    Par samihichem dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 21/05/2015, 09h08
  2. [XL-2003] Supprimer une ligne en fonction d'une valeur de cellule
    Par FCL31 dans le forum Macros et VBA Excel
    Réponses: 15
    Dernier message: 02/09/2009, 17h20
  3. [XL-2007] Extraire des lignes en fonction d'une valeur de cellule dans un autre fichier
    Par MisterTambo dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 19/08/2009, 10h42
  4. [XL-2003] Supprimer ligne a partir d'une valeurs
    Par Maiden002 dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 06/08/2009, 12h11
  5. Réponses: 1
    Dernier message: 10/02/2008, 19h56

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