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 :

modif code VBA ligne automatique


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre du Club
    Femme Profil pro
    Ressources humaines
    Inscrit en
    Octobre 2021
    Messages
    6
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France, Loire Atlantique (Pays de la Loire)

    Informations professionnelles :
    Activité : Ressources humaines
    Secteur : Associations - ONG

    Informations forums :
    Inscription : Octobre 2021
    Messages : 6
    Par défaut modif code VBA ligne automatique
    Bonsoir,
    Dans mon code ci-dessous comment enlever l'insertion automatique de la ligne ?
    Je veux juste que la ligne s'affiche quand je complète ma colonne 1 mais que ca n'insère pas en plus une ligne en dessous.

    Merci d'avance,

    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
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    Private Sub Worksheet_Change(ByVal Target As Range)
      Dim ValSaisie As Variant
      ' Choix multiple en colonne Professionnels
     
        With ListObjects(1)
            Application.EnableEvents = False
        If Not Intersect(Target, .ListColumns("Gravité").DataBodyRange) Is Nothing Then
               Application.ScreenUpdating = False
                .ShowTotals = True
                .ShowTotals = False
                GoTo FinProc
        End If
            If Not Intersect(Target, .ListColumns("Professionnels").DataBodyRange) Is Nothing And Target.Count = 1 Then
     
                ValSaisie = Target
                If ValSaisie = "" Then
                  Target.ClearContents
                  GoTo FinProc
                End If
     
                Application.Undo
                p = InStr(Target, ValSaisie)
                If p > 0 Then
                    Target = Left(Target, p - 1) & Mid(Target, p + Len(ValSaisie) + 1)
                    If Right(Target, 1) = Chr(10) Then
                      Target = Left(Target, Len(Target) - 1)
                    End If
                Else
                    If Target = "" Then
                      Target = ValSaisie
                    Else
                      Target = Target & Chr(10) & ValSaisie
                    End If
                End If
                ElseIf Target.Row = .Range.Row + .ListRows.Count And Target.Column = .Range.Column And .DataBodyRange(Cells(.ListRows.Count), 1) <> "" Then
                   .ListRows.Add
            End If
     
      End With
     
    FinProc:
        Application.EnableEvents = True
     
    End Sub

  2. #2
    barpasc
    Invité(e)
    Par défaut
    la ligne 36 de votre script semble être là où une ligne s'ajoute à votre tableau

    commentez cette ligne avec une apostrophe


  3. #3
    Membre du Club
    Femme Profil pro
    Ressources humaines
    Inscrit en
    Octobre 2021
    Messages
    6
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France, Loire Atlantique (Pays de la Loire)

    Informations professionnelles :
    Activité : Ressources humaines
    Secteur : Associations - ONG

    Informations forums :
    Inscription : Octobre 2021
    Messages : 6
    Par défaut
    Bonsoir,

    Merci pour ce retour.
    Mais je souhaiterai que lorsque je complète ma colonne A cette ligne apparaisse du tableau et non qu'une nouvelle s'ajoute à la suite.
    Comment faire ?
    Merci d'avance,

Discussions similaires

  1. [Toutes versions] modification code vba après rajout de ligne
    Par exelan dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 27/12/2017, 13h52
  2. [Toutes versions] Aide modif code vba pour liaison base
    Par Aladin_23 dans le forum VBA Access
    Réponses: 7
    Dernier message: 20/11/2012, 17h44
  3. [XL-2003] Associer Cellule à un code VBA + tri automatique
    Par Razekiel_ dans le forum Macros et VBA Excel
    Réponses: 13
    Dernier message: 10/07/2012, 13h59
  4. [WD-2007] Modification Code VBA
    Par CG2956 dans le forum VBA Word
    Réponses: 1
    Dernier message: 20/12/2011, 16h46
  5. [AC-2003] Problème de code vba ligne if surligné en jaune
    Par Piccou dans le forum VBA Access
    Réponses: 26
    Dernier message: 07/08/2009, 09h19

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