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 :

Copie d'une référence avec incrémentation x fois suivant variables


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Profil pro
    Inscrit en
    Mars 2006
    Messages
    21
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mars 2006
    Messages : 21
    Par défaut Copie d'une référence avec incrémentation x fois suivant variables
    Bonjour à tous,
    J'essaye de faire un classeur pour gérer un petit stock, je butte sur ma macro car certain produit sont livré en carton de 10 ou cinq.Le code des produits ce présente comme celui-ci C12SA445050 la lettre C défini un conditionnement de 10, I12SA445050 la lettre I un conditionnement par 5 ainsi que la lettre D.
    Ce que je n'arrive pas à trouver c'est de dire à la macro si C alors recopie sur les cellules en dessous 10 fois en incrémentant de 1.
    C12SA445050, C12SA445051, C12SA445052 etc.. et la même chose pour les lettres I et D.
    J'ai la formule pour isoler la lettre mais je ne vois pas comment mettre ça en variable.
    Si quelqu’un peut m'éclairer
    Merci d'avance

  2. #2
    Membre chevronné Avatar de Bear the french
    Homme Profil pro
    Inscrit en
    Mai 2012
    Messages
    352
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Saône et Loire (Bourgogne)

    Informations forums :
    Inscription : Mai 2012
    Messages : 352
    Par défaut
    Bonsoir,

    Plusieurs "if ... then" ou un select case pour définir l'incrémentation maxi en fonction de la référence.

    Puis faire une boucle "for i = 1 to incrément_maxi"

    Bertrand

  3. #3
    Membre chevronné
    Homme Profil pro
    Inscrit en
    Juin 2011
    Messages
    181
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Secteur : Industrie

    Informations forums :
    Inscription : Juin 2011
    Messages : 181
    Par défaut
    Bonsoir à tous,

    A adapter
    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
    Option Explicit
    Public Sub Test()
    Dim Nbre As Byte
    Dim Article As String
    Dim i  As Long
    Dim Découpage As Boolean
    i = 1
    Do
        Article = Range("A" & i).Value
        Découpage = False
        If Left(Article, 1) = "C" Then Nbre = 10 Else Nbre = 5
        If Right(Article, 1) = "0" Then
            If Right(Range("A" & i).Offset(1, 0), 1) <> 1 Then
                Rows(i + 1 & ":" & i + Nbre - 1).Select
                Selection.Insert Shift:=xlDown
                Range("A" & i).Select
                Selection.AutoFill Destination:=Range("A" & i & ":A" & i + Nbre - 1), Type:=xlFillDefault
                i = i + Nbre
                Découpage = True
            End If
        End If
        If Not Découpage Then i = i + 1
    Loop While Range("A" & i) <> ""
    End Sub
    Ceci en admettant que les références sont dans la colonne A.
    Cordialement.

  4. #4
    Membre averti
    Profil pro
    Inscrit en
    Mars 2006
    Messages
    21
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mars 2006
    Messages : 21
    Par défaut
    Bonjour à Bear the french et HopPopPop

    Merci à vous deux pour vos réponses, pour les if....then j'avais commencé par cette solutions dans mon code mais je buttais sur l'incrémentation.
    Le code de HopPopPop fonctionne bien j'ai rajouté quelque if.....then car en cas d'autre lettre autre que C,D et I le code continuais à incrémenter de 5.
    Encore merci
    Thierry

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

Discussions similaires

  1. Réponses: 4
    Dernier message: 03/10/2008, 14h29
  2. Réponses: 12
    Dernier message: 22/08/2007, 12h18
  3. copie d'une struct avec pointeur
    Par Thor Tillas dans le forum C++
    Réponses: 5
    Dernier message: 18/10/2006, 02h41
  4. copie d'une arborescence avec excel vb
    Par kernel57 dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 18/11/2005, 08h31
  5. [VBA] Copie d'une feuille (avec graphique)
    Par ed_dexia dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 06/10/2005, 09h56

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