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 :

Calcul max et concaténation dans VBA Excel


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Inscrit en
    Novembre 2006
    Messages
    47
    Détails du profil
    Informations forums :
    Inscription : Novembre 2006
    Messages : 47
    Par défaut Calcul max et concaténation dans VBA Excel
    Bonjour,
    J'ai une erreur d'executin (1004) quand j'execute mon code (voir ci-dessous).
    En effet, je souhaiterais mettre en place une numérotaion automatique de factures de la façon suivante (en se basant sur la date facture):
    -1er car. : Dernier chiffre de l'année (pour 2008 ==> 8).
    - 2ème au 4ème car. : Compteur du nombre de factures
    - 5ème au 6ème car. : Mois d'émission de la facture (Aout ==> 08).
    Je le fais en 2 temps, je regarde d'abord dans les numros existants pour avoir le max du compteur (2 au 4 eme car), puis je le concatène avec l'année et le mois de la date facture comme suivant:

    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
    Sub Compteur()
        Dim F As Integer
     
        For F = 2 To 200
        If Cells(F, 5).Value = "" Then
            Cells(F, 6).Value = 0
     
        Else
             Cells(F, 6).Value = Mid(Cells(F, 5), 2, 3)
        End If
     
        Next F
    End Sub
     
    Sub NumFact_Auto()
     
    Dim K As String
    Dim M As String
    Dim N As String
    Dim myRange As Range
    Set myRange = Worksheets("Recettes").Range("F2:F200")
    K = Application.WorksheetFunction.Max(myRange)
    M = "=RIGHT(Year(I62),1)"
    N = Mid(Format(ActiveCell.Offset(0, 4).Value, "dd/mm/yyyy"), 4, 2)
    ActiveCell.Value = M & """" & K & """" & N
     
    End Sub
    Merci par avnace pour votre aide.

  2. #2
    Membre Expert
    Profil pro
    Inscrit en
    Juillet 2007
    Messages
    2 130
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2007
    Messages : 2 130
    Par défaut
    Salut pontoise et le forum
    Où est l'erreur ? Quelle ligne ? C'estb pas un site qui s'amuse à trouver des devinettes!!!
    Tu veux obtenir quelle formule pour ta cellule active ?
    A+

  3. #3
    Membre Expert
    Profil pro
    Inscrit en
    Novembre 2006
    Messages
    1 567
    Détails du profil
    Informations personnelles :
    Âge : 62
    Localisation : France

    Informations forums :
    Inscription : Novembre 2006
    Messages : 1 567
    Par défaut
    jour tout le monde
    essaye comme ça
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
     
    Sub test()
    Set myRange = Worksheets("Recettes").Range("F2:F200")
    K = Application.WorksheetFunction.Max(myRange)
    M = Right(Format(Year(Date), 0), 1)
    N = Format(Month(ActiveCell.Offset(0, 4).Value))
    MsgBox M & K & N
    End Sub
    . mais petits conseil :
    n'utilise pas activecell, qui sait ou sera le pointeur, et si la cellule offset 4 n'est pas une date, tu aura une erreur
    si tu ne prend que le dernier chiffre de l'année, en 2010, tu aura 0

  4. #4
    Membre confirmé
    Inscrit en
    Novembre 2006
    Messages
    47
    Détails du profil
    Informations forums :
    Inscription : Novembre 2006
    Messages : 47
    Par défaut
    Merci, ça marche.

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

Discussions similaires

  1. userform déconnecté dans vba excel
    Par PTIT FILOU dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 19/06/2008, 15h59
  2. Réponses: 5
    Dernier message: 27/05/2008, 18h43
  3. Liste des contrôles dans VBA-Excel
    Par CAFOUIN dans le forum Excel
    Réponses: 2
    Dernier message: 23/02/2007, 17h50
  4. Name et formula dans VBA Excel
    Par khadba dans le forum Windows
    Réponses: 1
    Dernier message: 20/02/2007, 11h37
  5. [VBA-E] Compatibilité de Date dans VBA Excel
    Par dorschner dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 21/05/2006, 19h25

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