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 :

Sélection plage variable


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Homme Profil pro
    Architecte de base de données
    Inscrit en
    Mars 2015
    Messages
    123
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Deux Sèvres (Poitou Charente)

    Informations professionnelles :
    Activité : Architecte de base de données

    Informations forums :
    Inscription : Mars 2015
    Messages : 123
    Par défaut Sélection plage variable
    Bonjour,

    Je voudrais sélectionner des données de A2 à ACxxxx
    xxxx est bien entendu variable cela dépend des fichiers.

    j'ai fait un code mais il pose problème lorsqu'il y a une seule ligne.

    voici :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Range("A2:AC2").Select
        Range(Selection, Selection.End(xlDown)).Select
        Selection.Copy

  2. #2
    Invité
    Invité(e)
    Par défaut
    Bonjour,

    Une solution possible :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    Sub CopierAire()
     
    Dim DerniereLigne As Long
     
        With ActiveSheet
             DerniereLigne = .Cells(.Rows.Count, 1).End(xlUp).Row
             If DerniereLigne > 1 Then
                .Range(.Cells(2, 1), .Cells(DerniereLigne, 29)).Copy
               ' Sheets("Feuil2").Range("A10").PasteSpecial  ' A adapter
             End If
        End With
     
    End Sub
    Cordialement.

  3. #3
    Membre confirmé
    Homme Profil pro
    Architecte de base de données
    Inscrit en
    Mars 2015
    Messages
    123
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Deux Sèvres (Poitou Charente)

    Informations professionnelles :
    Activité : Architecte de base de données

    Informations forums :
    Inscription : Mars 2015
    Messages : 123
    Par défaut
    Merci mais

    seulement sélectionner de A2 à AC2
    Ensuite, Sélectionner jusqu'à la ligne x qui peut être 1 ligne comme 150 lignes....

    Merci d'avance.

  4. #4
    Invité
    Invité(e)
    Par défaut
    Quel est le problème ? Vous avez un autre tableau en dessous de A2:ACXXXX ?
    Dernière modification par AlainTech ; 15/05/2015 à 20h59. Motif: Suppression de la citation inutile

  5. #5
    Membre confirmé
    Homme Profil pro
    Architecte de base de données
    Inscrit en
    Mars 2015
    Messages
    123
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Deux Sèvres (Poitou Charente)

    Informations professionnelles :
    Activité : Architecte de base de données

    Informations forums :
    Inscription : Mars 2015
    Messages : 123
    Par défaut
    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
    Sub regrouper()
     
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Workbooks.Open Filename:="MonChemin\MonFichier.xlsx"
    Range("A2").Select
    Workbooks("MonFichier macro 1").Activate
    Sheets("B").Activate
    Range("AO2").Select
     
    Do While ActiveCell.Value <> ""
          nom = ActiveCell.Value
        Workbooks.Open Filename:="MonChemin\" & nom & ".xlsx"
        Sheets(nom).Activate
        Dim DerniereLigne As Long
     
        With ActiveSheet
             DerniereLigne = .Cells(.Rows.Count, 1).End(xlUp).Row
             If DerniereLigne > 1 Then
                .Range(.Cells(2, 1), .Cells(DerniereLigne, 40)).Copy
             End If
        End With
     
     
        Workbooks("MonFichier").Activate
        ActiveSheet.Paste
        Selection.End(xlDown).Select
        ActiveCell.Offset(1, 0).Select
        Workbooks(nom).Activate
        Sheets("RC").Activate
     
        Dim DerniereLigne As Long
     
        With ActiveSheet
             DerniereLigne = .Cells(.Rows.Count, 1).End(xlUp).Row
             If DerniereLigne > 1 Then
                .Range(.Cells(2, 1), .Cells(DerniereLigne, 40)).Copy
     
             End If
        End With
    Voici une partie de ma macro, le code d'erreur est le suivant :
    Déclaration existante dans la portée en cours...

  6. #6
    Expert confirmé

    Homme Profil pro
    Curieux
    Inscrit en
    Juillet 2012
    Messages
    5 169
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Curieux
    Secteur : Arts - Culture

    Informations forums :
    Inscription : Juillet 2012
    Messages : 5 169
    Billets dans le blog
    5
    Par défaut
    Bonjour,

    tu déclares deux fois DerniereLigne dans ta procédure

    il est préférable de toujours déclarer ses variables tout en haut de la procédure, ça évite ces problèmes

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

Discussions similaires

  1. Sélection plage variable
    Par Yoooo dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 16/05/2018, 12h09
  2. Sélection et copie d'une plage variable
    Par Rémy A. dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 18/07/2013, 18h44
  3. [VBA-E] COUNTIF sur une sélection de plage variable
    Par NiKoS29 dans le forum Macros et VBA Excel
    Réponses: 7
    Dernier message: 27/09/2007, 23h03
  4. sélection plage de cellule sur Msflexgrid
    Par Charly45 dans le forum VB 6 et antérieur
    Réponses: 5
    Dernier message: 22/12/2006, 15h35
  5. [VBA-E] Macro Pour Faire un Tri sur plage variable
    Par tabarly35 dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 19/09/2006, 19h02

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