Discussion: Selection de range

  1. #1
    Futur Membre du Club
    Homme Profil pro
    Responsable d'exploitation
    Inscrit en
    mars 2014
    Messages
    22
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 41
    Localisation : France

    Informations professionnelles :
    Activité : Responsable d'exploitation
    Secteur : Agroalimentaire - Agriculture

    Informations forums :
    Inscription : mars 2014
    Messages : 22
    Points : 9
    Points
    9

    Par défaut Selection de range

    Bonjour je n'arrive pas à faire ça et je deviens dingue:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    'combien de ligne a selectionner
    Dim jours As Long
    Dim i As Long
    Nom = InputBox("Combien de jours concernés : ", "Jours")
     
    Dim DernCell As Long
    'dernière ligne colonne A
    DernCell = Range("A" & Rows.Count).End(xlUp).Cell
    i = -jours
    Range(DernCell, "f" & i).Select
     
    Selection.Copy

  2. #2
    Rédacteur/Modérateur

    Avatar de Jean-Philippe André
    Homme Profil pro
    Developpeur VBA migrant tranquillement vers C# et VB.Net =]
    Inscrit en
    juillet 2007
    Messages
    11 665
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 33
    Localisation : Royaume-Uni

    Informations professionnelles :
    Activité : Developpeur VBA migrant tranquillement vers C# et VB.Net =]
    Secteur : Finance

    Informations forums :
    Inscription : juillet 2007
    Messages : 11 665
    Points : 25 846
    Points
    25 846

    Par défaut

    Bonjour,

    si on peut savoir ce que tu cherches exactement a faire, ca nous aiderait pas mal

    Pas de question technique par MP, je ne réponds pas

    Apprendre à programmer avec Access 2016

    Pensez à consulter la FAQ Excel et la FAQ Access

    Derniers tutos
    Excel et les paramètres régionaux
    Les fichiers Excel binaires : xlsb,

    Autres tutos

  3. #3
    Futur Membre du Club
    Homme Profil pro
    Responsable d'exploitation
    Inscrit en
    mars 2014
    Messages
    22
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 41
    Localisation : France

    Informations professionnelles :
    Activité : Responsable d'exploitation
    Secteur : Agroalimentaire - Agriculture

    Informations forums :
    Inscription : mars 2014
    Messages : 22
    Points : 9
    Points
    9

    Par défaut

    Oui désolé

    Je cherche à copier un rectangle de cellule en partant de la dernière cellule de la colonne A à la colonne F en remontant du nombre de ligne indiqué par la valeur la text box

  4. #4
    Rédacteur/Modérateur

    Avatar de Jean-Philippe André
    Homme Profil pro
    Developpeur VBA migrant tranquillement vers C# et VB.Net =]
    Inscrit en
    juillet 2007
    Messages
    11 665
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 33
    Localisation : Royaume-Uni

    Informations professionnelles :
    Activité : Developpeur VBA migrant tranquillement vers C# et VB.Net =]
    Secteur : Finance

    Informations forums :
    Inscription : juillet 2007
    Messages : 11 665
    Points : 25 846
    Points
    25 846

    Par défaut

    Si tu veux faire un bloc de cellules, il faut que les deux parties dans ton Range soient des Range :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
     
    Dim FirstCel As Range
    Dim LastCel As Range
     
    Set LastCel = Range("F" & Range("A65536").End(xlUp).Row)
    Set FirstCel = LastCel.Offset(-jours,-5)
     
    Range(FirstCel,LastCel).Select
    Pas de question technique par MP, je ne réponds pas

    Apprendre à programmer avec Access 2016

    Pensez à consulter la FAQ Excel et la FAQ Access

    Derniers tutos
    Excel et les paramètres régionaux
    Les fichiers Excel binaires : xlsb,

    Autres tutos

  5. #5
    Futur Membre du Club
    Homme Profil pro
    Responsable d'exploitation
    Inscrit en
    mars 2014
    Messages
    22
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 41
    Localisation : France

    Informations professionnelles :
    Activité : Responsable d'exploitation
    Secteur : Agroalimentaire - Agriculture

    Informations forums :
    Inscription : mars 2014
    Messages : 22
    Points : 9
    Points
    9

    Par défaut

    Merci car au moins je sélectionne sans bug cependant quelque soit la valeur de Jours cela sélectionne que la dernière ligne.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    Dim Jours As Integer
     
    Nom = InputBox("Combien de jours concernés : ", "Jours")
    Dim FirstCel As Range
    Dim LastCel As Range
     
    Set LastCel = Range("E" & Range("A65536").End(xlUp).Row)
    Set FirstCel = LastCel.Offset(-Jours, -4)
     
    Range(FirstCel, LastCel).Select
    End Sub

  6. #6
    Rédacteur/Modérateur

    Avatar de Jean-Philippe André
    Homme Profil pro
    Developpeur VBA migrant tranquillement vers C# et VB.Net =]
    Inscrit en
    juillet 2007
    Messages
    11 665
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 33
    Localisation : Royaume-Uni

    Informations professionnelles :
    Activité : Developpeur VBA migrant tranquillement vers C# et VB.Net =]
    Secteur : Finance

    Informations forums :
    Inscription : juillet 2007
    Messages : 11 665
    Points : 25 846
    Points
    25 846

    Par défaut

    Encore faut il metter le resultat de ton inputbox dans la bonne variable



    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Jours = InputBox("Combien de jours concernés : ", "Jours")
    Pas de question technique par MP, je ne réponds pas

    Apprendre à programmer avec Access 2016

    Pensez à consulter la FAQ Excel et la FAQ Access

    Derniers tutos
    Excel et les paramètres régionaux
    Les fichiers Excel binaires : xlsb,

    Autres tutos

  7. #7
    Futur Membre du Club
    Homme Profil pro
    Responsable d'exploitation
    Inscrit en
    mars 2014
    Messages
    22
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 41
    Localisation : France

    Informations professionnelles :
    Activité : Responsable d'exploitation
    Secteur : Agroalimentaire - Agriculture

    Informations forums :
    Inscription : mars 2014
    Messages : 22
    Points : 9
    Points
    9

    Par défaut

    Bah oui c'est logique merci, je suis pas malin.

    Dernière question pourquoi cela prend une cellule de plus.

    Quand je mets 1 cela prend 2 lignes et ainsi de suite

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

Discussions similaires

  1. méthode select class range échoué
    Par PLH81 dans le forum Macros et VBA Excel
    Réponses: 9
    Dernier message: 25/08/2014, 17h03
  2. [e-00][debutant]probleme dans la selection de ranges
    Par cladsam dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 26/02/2009, 16h54
  3. [VBA-E] Erreur methode select classe range
    Par kdestine dans le forum Macros et VBA Excel
    Réponses: 15
    Dernier message: 17/09/2007, 11h05
  4. Pb selection - shapes - range
    Par abennis dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 27/07/2007, 19h05
  5. [VBA-E] incompatibité de type dans selection de rangées
    Par lucarno dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 07/05/2007, 08h01

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