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 :

Petit soucis application formule sur une colone [XL-MAC 2011]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Homme Profil pro
    Osteopathe
    Inscrit en
    Juin 2013
    Messages
    18
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Osteopathe
    Secteur : Santé

    Informations forums :
    Inscription : Juin 2013
    Messages : 18
    Par défaut Petit soucis application formule sur une colone
    Bonjour à tous,

    je pense avoir commis une petit erreur dans le code ci-dessous. Je souhaite créer une colonne (reprise à la colonne T) appliquant year() à tous les éléments de la colonne R.

    Hors lors de la première exécution de ma macro, seul le nom repris en T1 et T2=year(R2) sont exécutés. Si je réexécute la macro, toutes les rangées sont effectuées mais une en trop (c'est moins gênant mais bon....)

    ou est mon erreur?????

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    Dim LastRow As Long
    LastRow = Workbooks("DOSSIER-SPIROMETRIE.xlsm").Worksheets("DATA").Cells(Rows.Count, "A").End(xlUp).Row + 1
     
    With Workbooks("DOSSIER-SPIROMETRIE.xlsm").Worksheets("DATA")
    .Range("T1").Value = "Annee"
    .Range("T2").FormulaR1C1 = "= year(RC18)"
    Range("T2").Select
    Selection.AutoFill Destination:=Range("T2:T" & LastRow), Type:=xlFillDefault
    End With

  2. #2
    Expert éminent Avatar de mercatog
    Homme Profil pro
    Inscrit en
    Juillet 2008
    Messages
    9 435
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Autre

    Informations forums :
    Inscription : Juillet 2008
    Messages : 9 435
    Par défaut
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    Dim LastRow As Long
     
    With Workbooks("DOSSIER-SPIROMETRIE.xlsm").Worksheets("DATA")
        LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
        .Range("T1").Value = "Année"
        .Range("T2").FormulaR1C1 = "=YEAR(RC18)"
        .Range("T2").AutoFill Destination:=.Range("T2:T" & LastRow), Type:=xlFillDefault
    End With
    Remarque les points partout devant les Range.


    Le code suivant fait la même chose
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    Dim LastRow As Long
     
    With Workbooks("DOSSIER-SPIROMETRIE.xlsm").Worksheets("DATA")
        LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
        .Range("T1").Value = "Année"
        .Range("T2:T" & LastRow).FormulaR1C1 = "=YEAR(RC18)"
    End With

  3. #3
    Membre averti
    Homme Profil pro
    Osteopathe
    Inscrit en
    Juin 2013
    Messages
    18
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Osteopathe
    Secteur : Santé

    Informations forums :
    Inscription : Juin 2013
    Messages : 18
    Par défaut
    Magnifique ! MERCI

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

Discussions similaires

  1. [XL-2007] Petit soucis de combinaison d'une macro sur deux feuilles
    Par INFINITY100 dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 01/05/2015, 14h44
  2. Réponses: 4
    Dernier message: 10/07/2007, 11h24
  3. petit soucis pour lire sur un port usb le createfile n'accep
    Par anthonycosson dans le forum Windows
    Réponses: 5
    Dernier message: 14/02/2006, 09h34
  4. Affecter une valleur sur une colone d'un DBGRID
    Par richard038 dans le forum Bases de données
    Réponses: 4
    Dernier message: 03/09/2005, 15h20

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