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 :

Une boucle horizontale à décaler sur des colonnes


Sujet :

Macros et VBA Excel

  1. #1
    Membre à l'essai
    Homme Profil pro
    agent de maitrise
    Inscrit en
    Avril 2014
    Messages
    23
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 62
    Localisation : France, Haute Vienne (Limousin)

    Informations professionnelles :
    Activité : agent de maitrise
    Secteur : Industrie

    Informations forums :
    Inscription : Avril 2014
    Messages : 23
    Points : 24
    Points
    24
    Par défaut Une boucle horizontale à décaler sur des colonnes
    bonjour
    je suis nouveau et débutant en vba, j'ai essayé de créer une macro avec une boucle horizontal qui fonctionne très bien sur les 4 premières colonnes, par contre je ne sais pas comment faire pour la décaler de 4 colonnes afin quelle s'exécute de nouveau.
    merci de votre aide par avance

    si joint la macro, et le fichier
    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
    28
    29
    30
    31
    32
    33
    34
    Sub macro1()
    Dim ligne As String
    Dim ligne1 As String
    Dim col As String
     
    ligne = 7
    ligne1 = 5
    col = 2
     
    'Do While Cells(ligne1, col + 2) <> "23"
     
    Do While Cells(ligne, 3) <> "15"
     
     
    If Cells(ligne, 3) = "1" Then
         With Cells(ligne, col + 3)
        .Formula = "=VLOOKUP(R3C[-1],'feuille inventaire'!R3C1:r100c4,4,FALSE)"
        .Value = .Value
        End With
     Cells(ligne, col + 5) = Cells(ligne, col + 2) + Cells(ligne, col + 3) - Cells(ligne, col + 4)
    Else
     
    If Cells(ligne, 3) > "1" Then
     
    Cells(ligne, col + 3) = Cells(ligne - 1, col + 5)
    Cells(ligne, col + 5) = Cells(ligne, col + 2) + Cells(ligne, col + 3) - Cells(ligne, col + 4)
    End If
    End If
    ligne = ligne + 1
    Loop
    'col = col + 4
    'Loop
     
    End Sub
    Fichiers attachés Fichiers attachés

  2. #2
    Expert éminent sénior Avatar de Menhir
    Homme Profil pro
    Ingénieur
    Inscrit en
    Juin 2007
    Messages
    16 037
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : Ingénieur
    Secteur : Industrie

    Informations forums :
    Inscription : Juin 2007
    Messages : 16 037
    Points : 32 866
    Points
    32 866
    Par défaut
    Ca dépend de ce que tu veux faire exactement.

    Est-ce que tu veux que tes tests se fassent toujours sur la colonne 3 ou qu'ils se fasse sur la troisième colonne de ton groupe de 4 colonnes ?

    Tu veux faire des sauts de 4 colonnes mais jusqu'où ? Je veux dire, quelle est la condition qui est supposée arrêter la boucle ?

    Ce que tu as mis en commentaire pourrait marcher.
    Peut-être que ton erreur vient du placement de "ligne = 7" que tu aurais du placer entre les deux "Do While" pour que cette valeur soit réinitialisée.
    Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion.

  3. #3
    Membre à l'essai
    Homme Profil pro
    agent de maitrise
    Inscrit en
    Avril 2014
    Messages
    23
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 62
    Localisation : France, Haute Vienne (Limousin)

    Informations professionnelles :
    Activité : agent de maitrise
    Secteur : Industrie

    Informations forums :
    Inscription : Avril 2014
    Messages : 23
    Points : 24
    Points
    24
    Par défaut une boucle horizontale à décaler sur des colonnes
    bonsoir Menhir,

    merci pour ton aide

    je souhaite mettre à jour la E et G sur les 14 lignes , puis une fois les 14 lignes à jour je souhaite passer i et k soit +4 colonnes par rapport E et G ainsi de suite...

    donc si tu as une solution je suis preneur

    cordialement

    Philippe

  4. #4
    Expert éminent sénior Avatar de Menhir
    Homme Profil pro
    Ingénieur
    Inscrit en
    Juin 2007
    Messages
    16 037
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : Ingénieur
    Secteur : Industrie

    Informations forums :
    Inscription : Juin 2007
    Messages : 16 037
    Points : 32 866
    Points
    32 866
    Par défaut
    Citation Envoyé par Philippe87420 Voir le message
    donc si tu as une solution je suis preneur
    Bin... est-ce que, déjà, tu as essayé celle que je t'ai proposée ?
    Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion.

  5. #5
    Membre à l'essai
    Homme Profil pro
    agent de maitrise
    Inscrit en
    Avril 2014
    Messages
    23
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 62
    Localisation : France, Haute Vienne (Limousin)

    Informations professionnelles :
    Activité : agent de maitrise
    Secteur : Industrie

    Informations forums :
    Inscription : Avril 2014
    Messages : 23
    Points : 24
    Points
    24
    Par défaut
    bonjour Menhir,

    ok ça marche cette fois, je n'avait activer l'autre loop

    merci pour ton aide

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

Discussions similaires

  1. Réponses: 0
    Dernier message: 17/03/2015, 13h40
  2. répartition des enregistrements d'une colonne sur des colonnes
    Par YOUSSEFALAOUIA dans le forum Requêtes et SQL.
    Réponses: 2
    Dernier message: 14/12/2013, 22h15
  3. Réponses: 7
    Dernier message: 18/06/2012, 12h30
  4. faire une boucle for..next sur des textbox
    Par Actarusdu60 dans le forum VB.NET
    Réponses: 1
    Dernier message: 28/11/2008, 22h51
  5. Réponses: 5
    Dernier message: 29/09/2005, 10h35

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