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 :

Copier / coller une cellule


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éclairé
    Profil pro
    Inscrit en
    Décembre 2005
    Messages
    593
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : Décembre 2005
    Messages : 593
    Par défaut Copier / coller une cellule
    Bonjour,

    J'ai un tableau dans la feuille "sheet2" avec ceci :

    Janvier
    Fevrier
    Mars
    ...
    ...
    ..
    TOTAL :
    Je voudrais récuper le mois de la dernière ligne avant TOTAL.
    Une fois récupérer je voudrais lui ajouter +1 donc,
    si je récupérer Avril, j'aurai Mai.

    Je voudrais copier Mai dans la feuille "sheet1" dans la cellule B8.


    Merci d'avance,

  2. #2
    Expert confirmé
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Mai 2013
    Messages
    3 609
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Canada

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Alimentation

    Informations forums :
    Inscription : Mai 2013
    Messages : 3 609
    Par défaut
    Bonjour,

    Est-ce que tes mois sont des dates au format "mmmm" ou seulement du texte ?

  3. #3
    Membre Expert
    Homme Profil pro
    retraité
    Inscrit en
    Mars 2013
    Messages
    885
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : retraité
    Secteur : Industrie

    Informations forums :
    Inscription : Mars 2013
    Messages : 885
    Par défaut copier/coller une cellule
    Bonjour,

    Avec des mois au format personnalisé mmmm javais pensé à cela:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
     
    Sub essai()
    Dim cellule As Variant
    cellule = Feuil1.Range("a65536").End(xlUp).Offset(-1)
    cellule = cellule + 31
    Feuil1.Range(cellule).Copy Feuil2.Range("bb")
    End Sub
    Malheureusement VBA me renvoie l'erreur 1004 sur la dernière ligne et je ne sais pourquoi.
    Rajouter .value après les range ne change rien à l'erreur.

    Quelqu'un pourra peut-être expliquer cette erreur qui revient très souvent chez les débutants.

    Cordialement.

  4. #4
    Expert confirmé
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Mai 2013
    Messages
    3 609
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Canada

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Alimentation

    Informations forums :
    Inscription : Mai 2013
    Messages : 3 609
    Par défaut
    Range("bb") devrait être Range("b8"), j'imagine...

  5. #5
    Membre Expert
    Homme Profil pro
    retraité
    Inscrit en
    Mars 2013
    Messages
    885
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : retraité
    Secteur : Industrie

    Informations forums :
    Inscription : Mars 2013
    Messages : 885
    Par défaut couper / coller une cellule
    Bonsoir parmi,

    Tu as raison. cela ne change de toute facon rien.
    Je crois de plus que mon code ne constitue pas une solution.
    en effet, l'écriture directe sur la feuille excel de 01/01/2013 donne bien "janvier".
    Les lignes en dessous avec la formule R[-1]C +31 donne bien les mois successifs mais le code lui cellule = 01/02/2013.

    Finalement plus j’apprends et essaie de comprendre VBA moins je le comprends.

    cordialement.

  6. #6
    Expert confirmé
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Mai 2013
    Messages
    3 609
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Canada

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Alimentation

    Informations forums :
    Inscription : Mai 2013
    Messages : 3 609
    Par défaut
    Comme les mois n'ont pas tous 31 jours, au début ta date sera bonne, mais un jour ou l'autre tu sauteras un mois.

    1er février + 31 = 4 mars et on finit l'année au 8 décembre...

    Peut-être devrais-tu regarder du côté des mots-clés Annee, Mois et Jour en Excel (et en anglais sous VBA)

    Chez moi, les dates s'écrivent au format aaaa-mm-jj
    Ce qui donne ceci comme formule

    date de départ 2013-01-01 en A1
    Pour augmenter d'un "vrai" mois, ma formule est
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    =DATEVAL(ANNEE(A1) & "-" & MOIS(A1)+1 & "-" & JOUR(A1))
    La tienne devrait être
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    =DATEVAL(JOUR(A1)) & "/" & MOIS(A1)+1 & "/" & ANNEE(A1)
    à tester en écrivant la 1ere date en A1

    Pour ce qui est de copier ta date en B8 sur Sheet1, tu peux simplement écrire
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Sheets("Sheet1").Range("B8") = Sheets("Sheet2").Range("ta cellule")

Discussions similaires

  1. [XL-2007] copier coller une cellule sur une ligne en fonction d'une valeur
    Par armina1978 dans le forum Excel
    Réponses: 3
    Dernier message: 17/11/2014, 09h43
  2. Copier coller une cellule dans la même cellule d'un autre classeur
    Par Tho69 dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 14/08/2013, 10h59
  3. Réponses: 6
    Dernier message: 24/05/2012, 11h53
  4. Copier/Coller une cellule en y ajoutant un lien hypertexte
    Par Benjycool dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 14/01/2009, 15h01
  5. Copier/coller une plage de cellules pleine de trous
    Par ouskel'n'or dans le forum Contribuez
    Réponses: 0
    Dernier message: 21/05/2008, 18h57

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