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 :

bug sur nom de feuille ? [XL-2010]


Sujet :

Macros et VBA Excel

  1. #1
    Membre très actif Avatar de pilounet54
    Homme Profil pro
    retraité
    Inscrit en
    Février 2008
    Messages
    489
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 72
    Localisation : France, Meurthe et Moselle (Lorraine)

    Informations professionnelles :
    Activité : retraité
    Secteur : Service public

    Informations forums :
    Inscription : Février 2008
    Messages : 489
    Par défaut bug sur nom de feuille ?
    bonjour
    j'ai c'est ligne de code je souhaiterai quelle fonctionne sur feuille "bilan"
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Cells(ActiveSheet.UsedRange.Rows.Count + 1, ActiveSheet.UsedRange.Columns.Count - 7).Select
    j'ai essayé plein de chose Worksheets Sheets mais il toujours des bug
    es que vous pouvez m'aider ?

    "il y a qu'une seul ligne de code uniquement"
    merci
    fichier joint

  2. #2
    Expert confirmé Avatar de jfontaine
    Homme Profil pro
    Contrôleur de Gestion
    Inscrit en
    Juin 2006
    Messages
    4 756
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 52
    Localisation : France, Sarthe (Pays de la Loire)

    Informations professionnelles :
    Activité : Contrôleur de Gestion

    Informations forums :
    Inscription : Juin 2006
    Messages : 4 756
    Par défaut
    Bonjour,

    Es tu sur que la ligne ci dessous ne sort pas du cadre ?
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    ActiveSheet.UsedRange.Columns.Count - 7

  3. #3
    Membre très actif Avatar de pilounet54
    Homme Profil pro
    retraité
    Inscrit en
    Février 2008
    Messages
    489
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 72
    Localisation : France, Meurthe et Moselle (Lorraine)

    Informations professionnelles :
    Activité : retraité
    Secteur : Service public

    Informations forums :
    Inscription : Février 2008
    Messages : 489
    Par défaut usedrange
    c'est toujours pareil ? bug

  4. #4
    Expert confirmé
    Avatar de fring
    Homme Profil pro
    Engineering
    Inscrit en
    Février 2008
    Messages
    3 900
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 62
    Localisation : Belgique

    Informations professionnelles :
    Activité : Engineering

    Informations forums :
    Inscription : Février 2008
    Messages : 3 900
    Par défaut
    Citation Envoyé par pilounet54 Voir le message
    je souhaiterai quelle fonctionne sur feuille "bilan"
    Bonjour,

    On ne peut pas sélectionner une cellule d'une feuille si cette feuille n'est pas active.
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    Sheets("xxx").Activate
    Cells(....).Select
    mais dans la plupart des cas, on peut se passer des "Select"
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Sheets("feuil1").Activate
    Cells(1, 1).Select
    X = ActiveCell.Value
    correspond à

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    X = Sheets("feuil1").Cells(1, 1).Value

  5. #5
    Expert confirmé Avatar de jfontaine
    Homme Profil pro
    Contrôleur de Gestion
    Inscrit en
    Juin 2006
    Messages
    4 756
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 52
    Localisation : France, Sarthe (Pays de la Loire)

    Informations professionnelles :
    Activité : Contrôleur de Gestion

    Informations forums :
    Inscription : Juin 2006
    Messages : 4 756
    Par défaut
    c'est toujours pareil ? bug
    Peux tu être plus précis.
    Quelle est la valeur de :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    ActiveSheet.UsedRange.Columns.Count

  6. #6
    Membre très actif Avatar de pilounet54
    Homme Profil pro
    retraité
    Inscrit en
    Février 2008
    Messages
    489
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 72
    Localisation : France, Meurthe et Moselle (Lorraine)

    Informations professionnelles :
    Activité : retraité
    Secteur : Service public

    Informations forums :
    Inscription : Février 2008
    Messages : 489
    Par défaut
    si cela te fais rien regarde le fichier joint
    il qu'un bouton et qu'une ligne de code et normalement ça devrai etre bon
    mais des l'instant que tu mets un nom de la feuille "bilan"
    j'essaye de plein de façon bug

    si tu veus bien regarde meme avec
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    Sheets("bilan").Activate
    Cells(ActiveSheet.UsedRange.Rows.Count + 1, ActiveSheet.UsedRange.Columns.Count - 7).Select
    bug ? dur dur

  7. #7
    Inactif  

    Homme Profil pro
    cuisiniste
    Inscrit en
    Avril 2009
    Messages
    15 374
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : cuisiniste
    Secteur : Bâtiment

    Informations forums :
    Inscription : Avril 2009
    Messages : 15 374
    Billets dans le blog
    8
    Par défaut heu
    bonjour a tous

    pilounet:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Cells(ActiveSheet.UsedRange.Rows.Count + 1, ActiveSheet.UsedRange.Columns.Count - 7).Select
    question1:
    le "-7" sur les colonne utilisée te donne quoi en dur est ce bien utile?
    Sheets("bilan").Activate
    mes fichiers dans les contributions:
    mail avec CDO en vba et mail avec CDO en vbs dans un HTA
    survol des bouton dans userform
    prendre un cliché d'un range

    si ton problème est résolu n'oublie pas de pointer : : ça peut servir aux autres
    et n'oublie pas de voter

  8. #8
    Membre très actif Avatar de pilounet54
    Homme Profil pro
    retraité
    Inscrit en
    Février 2008
    Messages
    489
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 72
    Localisation : France, Meurthe et Moselle (Lorraine)

    Informations professionnelles :
    Activité : retraité
    Secteur : Service public

    Informations forums :
    Inscription : Février 2008
    Messages : 489
    Par défaut fonctionne sur la feuille Feuil1
    le code c'est exatement ce que j'ai besoin (je selectionne une cellule en bas de mon tableau un ligne en dessous tous simplement )

    la ligne elle fonctionne sur la feuille Feuil1 mais si tu mais un nom sur la feuille cela ne fonctionne plus la meme ligne

    il ya une astuce mais laquelle
    essaye si veux bien sur le fichier joint

  9. #9
    Expert éminent


    Profil pro
    Inscrit en
    Juin 2003
    Messages
    14 008
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2003
    Messages : 14 008
    Par défaut
    Bonjour,

    pourquoi ne pas répondre aux questions que l'on vous pose pour vous aider ?

    comment se manifeste votre "bug" ?

    Que voulez-vous faire ? est-ce vraiment sélectionner une cellule ? ou modifier son contenu ?

    Comment déterminez vous la cellule à modifier ?


    Citation Envoyé par pilounet54 Voir le message
    ...
    j'ai c'est ligne de code je souhaiterai quelle fonctionne sur feuille "bilan"
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Cells(ActiveSheet.UsedRange.Rows.Count + 1, ActiveSheet.UsedRange.Columns.Count - 7).Select
    ...
    Et donc si vous voulez modifier la feuille bilan .. que vient faire "ActiveSheet" dans votre code ?



    Pour finir :
    Fichier joint dans vos discussions

  10. #10
    Membre Expert
    Homme Profil pro
    Retraité
    Inscrit en
    Avril 2011
    Messages
    1 858
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Retraité

    Informations forums :
    Inscription : Avril 2011
    Messages : 1 858
    Par défaut
    Bonjour,

    Ta plage utilisée comporte 7 lignes et 4 colonnes.
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    ActiveSheet.UsedRange.Rows.Count  + 1 = 7 + 1 = 8
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    ActiveSheet.UsedRange.Columns.Count – 7 = 47 = - 3
    Tu ne peux pas sélectionner la cellule Cells(8,-3)

    Pour sélectionner la première cellule sous la plage utilisée, tu peux coder
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    Private Sub CommandButton1_Click()
        ActiveSheet.UsedRange.Select
        ActiveCell.Offset(ActiveSheet.UsedRange.Rows.Count, 0).Select
    End Sub
    Cordialement.

  11. #11
    Membre très actif Avatar de pilounet54
    Homme Profil pro
    retraité
    Inscrit en
    Février 2008
    Messages
    489
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 72
    Localisation : France, Meurthe et Moselle (Lorraine)

    Informations professionnelles :
    Activité : retraité
    Secteur : Service public

    Informations forums :
    Inscription : Février 2008
    Messages : 489
    Par défaut reponse aux remarques
    comment se manifeste votre "bug" ?
    le bug est completement explicite d'une part il ya un fichier joint

    je souhaite simplement avoir une cellule en bas d'une usedrange

    Que voulez-vous faire ? est-ce vraiment sélectionner une cellule ? ou modifier son contenu ?
    donc selectionne une cellule
    Comment déterminez vous la cellule à modifier ?
    une ligne en dessous de usedrange

    Et donc si vous voulez modifier la feuille bilan .. que vient faire "ActiveSheet" dans votre code ?
    ques que je mets svp a la place ?
    j'espere avoir repondu ,et je rapelle qu'il y a un fichier joint

  12. #12
    Membre très actif Avatar de pilounet54
    Homme Profil pro
    retraité
    Inscrit en
    Février 2008
    Messages
    489
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 72
    Localisation : France, Meurthe et Moselle (Lorraine)

    Informations professionnelles :
    Activité : retraité
    Secteur : Service public

    Informations forums :
    Inscription : Février 2008
    Messages : 489
    Par défaut ok cela fonctionne
    bonjour je te remercie tu a trouver ce que je cherchais avec beaucoup de difficulte pas toujours facile

    ++

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

Discussions similaires

  1. Réponses: 3
    Dernier message: 04/02/2014, 20h11
  2. Réponses: 1
    Dernier message: 20/01/2014, 02h24
  3. [XL-2007] Test sur un nom de feuille
    Par Excel_man dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 20/01/2013, 22h15
  4. Boucler sur le nom des feuilles pour récupérer des données
    Par Vincent32 dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 29/02/2012, 18h11
  5. Réponses: 2
    Dernier message: 29/10/2008, 13h16

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