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 :

probleme insertion ligne selon variable


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Profil pro
    Inscrit en
    Septembre 2008
    Messages
    15
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Septembre 2008
    Messages : 15
    Par défaut probleme insertion ligne selon variable
    bonjour a tous , j'ai passé le week à chercher une soluce ,, pas moyen

    j'ai une macro lié à une recup IE (en fonction de lien d'un 1er tableau)
    j'aimerai lors de cette récup en fonction du nombre aléatoire de cette incrémentation (variable NBL)
    inserer le nombre de ligne correspondante (dans mon 1er tableau, pour chaque lien)
    et par la suite copier les lignes récupérer à la droite de mon 1er tableau

    pas simple au Secours !! merci de votre aide

    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
    Sub Essai()
           Dim vurl As String 'Lien
           Dim TabTemp As Variant  
           Dim plage As Range
           Dim NBL As Integer 'variable nbr ligne
           Dim rcell As Range 
     
            dernlign = Cells(Rows.Count, 2).End(xlUp).Row
            derncol = Cells(4, Columns.Count).End(xlToLeft).Column
     
          Set plage = Range(Cells(5, 2), Cells(dernlign, derncol))
          TabTemp = plage.Value
           plage.Select
     
        On Error Resume Next   
     
         For Each rcell In Sheets("BSD").Range("b5:b" & dernlign)
        	   With rcell.Rows.Select
             End With
     
        Vurl = plage.Cells(rcell, 2).Hyperlinks(1).Address
        recup2 Vurl, dernlign + 1
     
        NBL = (Cells(Rows.Count, 2).End(xlUp).Row) - dernlign
     
    	For I = 1 To NBL  'ICI CA BUG !!
             ActiveCell.EntireRow.rezize(rowsize:=NBL - 1).Insert Shift:=xlDown, copyOrigin:=xlFormatFromLeftOrAbove
        Next I
     
    MsgBox ("NBL" & "_" & NBL)   
    MsgBox ("adress" & "_" & Vurl)
     
    MsgBox ("dernlign" & "_" & dernlign)
       Next rcell

  2. #2
    Membre Expert
    Avatar de Igloobel
    Homme Profil pro
    Développeur ERP - VBA et Formateur bureautique
    Inscrit en
    Septembre 2005
    Messages
    1 871
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Loiret (Centre)

    Informations professionnelles :
    Activité : Développeur ERP - VBA et Formateur bureautique
    Secteur : Industrie

    Informations forums :
    Inscription : Septembre 2005
    Messages : 1 871
    Billets dans le blog
    1
    Par défaut
    Bonjour,
    Citation Envoyé par STW59 Voir le message
    ... inserer le nombre de ligne correspondante (dans mon 1er tableau, pour chaque lien)
    et par la suite copier les lignes récupérer à la droite de mon 1er tableau
    J'avoue ne pas trop comprendre la manip

    Peux-tu faire des captures écrans (pas de fichier Excel) de tes manips pour avoir une vue d'ensemble plus clair

    A Bientôt

  3. #3
    Membre averti
    Profil pro
    Inscrit en
    Septembre 2008
    Messages
    15
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Septembre 2008
    Messages : 15
    Par défaut
    bonjour Igloobel

    et merci pour ton aide


    j'ai fait un impec écran , j'esperes qu'il est pas trop confu

    merci encore
    Images attachées Images attachées  

Discussions similaires

  1. [XL-2007] insertion ligne selon valeur cellule
    Par royal cruiser dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 12/05/2018, 17h08
  2. Réponses: 3
    Dernier message: 30/07/2017, 13h53
  3. Insertion d'une ligne selon à partir d'une variable
    Par flagpara dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 24/04/2017, 10h14
  4. Réponses: 1
    Dernier message: 29/07/2014, 08h33
  5. [SGBD] [Problème insertion variable php/mysql]
    Par vincedjs dans le forum Installation
    Réponses: 20
    Dernier message: 08/02/2006, 16h41

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