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 :

EXCEL : ajout d'un ligne en VBA


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éclairé
    Profil pro
    Inscrit en
    Octobre 2002
    Messages
    238
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : Octobre 2002
    Messages : 238
    Par défaut EXCEL : ajout d'un ligne en VBA
    bonjour,
    Après avoir MAJ ma "requête SQL" de ma page excel(petit détail)
    J'aimerais y intercaller des lignes...("via un bouton" )
    comment puis-je faire cela en VBA(ajouter une ligne dans une page excel)
    merci pour votre aide
    bonne journéee

  2. #2
    Expert confirmé
    Avatar de Qwazerty
    Homme Profil pro
    La très haute tension :D
    Inscrit en
    Avril 2002
    Messages
    4 122
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 45
    Localisation : France

    Informations professionnelles :
    Activité : La très haute tension :D
    Secteur : Service public

    Informations forums :
    Inscription : Avril 2002
    Messages : 4 122
    Par défaut
    Salut
    Dans une fenêtre de code vba tu tapes Insert puis un coup de tu y trouveras ce que tu cherches
    A++
    Qwaz

    MagicQwaz := Harry Potter la baguette en moins
    Le monde dans lequel on vit
    Ma page perso DVP
    Dernier et Seul Tutoriel : VBA & Internet Explorer
    Dernière contribution : Lien Tableau Structuré et UserForm
    L'utilisation de l’éditeur de message

  3. #3
    Membre Expert Avatar de laetitia
    Profil pro
    Inscrit en
    Décembre 2002
    Messages
    1 281
    Détails du profil
    Informations personnelles :
    Âge : 35
    Localisation : France

    Informations forums :
    Inscription : Décembre 2002
    Messages : 1 281
    Par défaut
    bonjour lediz le forum pour insérer une ligne en ligne 4 par exemple

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    Rows("4:4").Select
     Selection.Insert Shift:=xlDown
    ps bonjour qwaz laisse moi le temps de me réveillé bisous a+

  4. #4
    Expert confirmé
    Avatar de Qwazerty
    Homme Profil pro
    La très haute tension :D
    Inscrit en
    Avril 2002
    Messages
    4 122
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 45
    Localisation : France

    Informations professionnelles :
    Activité : La très haute tension :D
    Secteur : Service public

    Informations forums :
    Inscription : Avril 2002
    Messages : 4 122
    Par défaut
    Coucou leti
    Grrrrr le .select
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Rows(4).Insert Shift:=xlDown
    c'est plus mimie non ? :p
    ++
    Qwaz

    MagicQwaz := Harry Potter la baguette en moins
    Le monde dans lequel on vit
    Ma page perso DVP
    Dernier et Seul Tutoriel : VBA & Internet Explorer
    Dernière contribution : Lien Tableau Structuré et UserForm
    L'utilisation de l’éditeur de message

  5. #5
    Membre confirmé
    Profil pro
    Inscrit en
    Janvier 2008
    Messages
    121
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Janvier 2008
    Messages : 121
    Par défaut
    Salut,

    J'ai adapté un code que j'ai pour ajouter des feuilles ( je l'ai fait aussi pour les colonnes):
    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
    Sub AjoutLigne()
     
    'Macro pour ajouter une ou plusieurs ligne où on veut.
     
    Dim Row As Integer
        Row = InputBox("N° Ligne")
    Dim L As Integer
      rep = 0
      rep = InputBox("Nombre de Lignes à ajouter?")
      If rep <> "" Then
       Do While L < rep
          Rows(Row).Insert
          L = L + 1
      Loop
      End If
     
    End Sub
    Cela me fait plaisir de le mettre parce que j'ai assez galéré quand j'ai découvert le VBA et que je passais un temps fou à cliquer pour rajouter ou supprimer .Comme je suis nullissime en anglais je ne pouvais pas trouver l'aide sur row, sheet,column etc...

    A+

  6. #6
    Expert confirmé
    Avatar de Qwazerty
    Homme Profil pro
    La très haute tension :D
    Inscrit en
    Avril 2002
    Messages
    4 122
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 45
    Localisation : France

    Informations professionnelles :
    Activité : La très haute tension :D
    Secteur : Service public

    Informations forums :
    Inscription : Avril 2002
    Messages : 4 122
    Par défaut
    Salut
    Quelques remarques:

    1. La plus importante de toutes! Attention lors de la déclaration de variable a ne pas prendre des mots clef réserves pas Excel. Row en fait partie, Le mieux est de mettre NRow ou encore mieux IntRow, enfin c'est toi qui voix, mais surtout pas Row tout seul
    2. rep = 0, inutile tu vas initialiser directement sa valeur a la ligne d'après
    3. Un conseil, après avec renseigné Rep via l'inputbox, a mon avis il serait bien de tester que Rep contient bien une valeur numeric, sinon la suite va planter, regarde du coté de IsNumeric.

    Voila, bon coding
    ++
    Qwaz

    MagicQwaz := Harry Potter la baguette en moins
    Le monde dans lequel on vit
    Ma page perso DVP
    Dernier et Seul Tutoriel : VBA & Internet Explorer
    Dernière contribution : Lien Tableau Structuré et UserForm
    L'utilisation de l’éditeur de message

  7. #7
    Membre confirmé
    Profil pro
    Inscrit en
    Janvier 2008
    Messages
    121
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Janvier 2008
    Messages : 121
    Par défaut
    Merci Qwazerty pour tes remarques, je vais les prendre en compte.

    Mon code fonctionnait donc je ne cherchais pas plus loin

    A+

  8. #8
    Expert confirmé
    Avatar de Qwazerty
    Homme Profil pro
    La très haute tension :D
    Inscrit en
    Avril 2002
    Messages
    4 122
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 45
    Localisation : France

    Informations professionnelles :
    Activité : La très haute tension :D
    Secteur : Service public

    Informations forums :
    Inscription : Avril 2002
    Messages : 4 122
    Par défaut
    Salut
    En fait je pensais que l'auteur de la question avait trouvé réponse et avait mis le fruit de ses recherches, donc j'ai mis ces remarques en pensant avoir a a faire avec l'auteur du problème ceci dit, les remarques restent valables
    a++
    Qwaz

    MagicQwaz := Harry Potter la baguette en moins
    Le monde dans lequel on vit
    Ma page perso DVP
    Dernier et Seul Tutoriel : VBA & Internet Explorer
    Dernière contribution : Lien Tableau Structuré et UserForm
    L'utilisation de l’éditeur de message

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

Discussions similaires

  1. [VBA Excel] Ajouter un AddIn par du code
    Par comme de bien entendu dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 09/11/2006, 17h30
  2. [VBA-excel] Selection multiple de ligne
    Par DVano dans le forum Macros et VBA Excel
    Réponses: 8
    Dernier message: 18/10/2006, 12h32
  3. [VBA-E] ajout d'une ligne avec ordre alphabétique
    Par Yaone dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 29/04/2006, 16h52
  4. [VBA Excel] Ajouter, supprimer une ligne ou collone range
    Par loacast dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 22/11/2005, 15h53
  5. VBA EXCEL - Sélection d'une ligne suivant saisie
    Par brethomeau dans le forum Macros et VBA Excel
    Réponses: 48
    Dernier message: 15/11/2005, 17h41

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