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 :

Do Loop Until


Sujet :

Macros et VBA Excel

  1. #1
    Nouveau candidat au Club
    Inscrit en
    Octobre 2009
    Messages
    2
    Détails du profil
    Informations forums :
    Inscription : Octobre 2009
    Messages : 2
    Par défaut Do Loop Until
    Bonjour.
    Cette partie de macro a pour but de comparer 2 codes articles en colonne N et P .

    Si les 2 codes sont differents , je voudrais que la macro coupe et colle les valeurs des cellules de la colonne P,Q et R et la reporte sur un autre onglet (en rouge sur l'image ).

    Suite à ça il faut supprimer les cellules et decaller vers le haut .
    Recomparer de nouveau les 2 codes , jusqu'a ce que les 2 codes soientt les mêmes et passer à la ligne suivante

    Nom : Sans titre.JPG
Affichages : 78
Taille : 19,0 Ko

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
     
    Do
    Range("P2:R2").Select
        Selection.Copy
        Sheets("Feuil1").Select
        Range("A1").Select
        ActiveSheet.Paste
        Sheets("Import Tiamp").Select
        Application.CutCopyMode = False
        Selection.Delete Shift:=xlUp
     
    Exit Do
    Loop Until ActiveCell.FormulaR1C1 = "RC[+2]"
    Cette partie de ma macro fonctionne de manière locale sur une ligne , je n'ai pas trouvé comment l'étendre.

    Merci d'avance de votre aide.

    Cdt

    Yoni

  2. #2
    Membre Expert Avatar de laetitia
    Profil pro
    Inscrit en
    Décembre 2002
    Messages
    1 281
    Détails du profil
    Informations personnelles :
    Âge : 35
    Localisation : France

    Informations forums :
    Inscription : Décembre 2002
    Messages : 1 281
    Par défaut
    bonjour Yoyo93220 le forum pour faire cela il faut faire une boucle avec conditions
    fait une recherche sur
    et

  3. #3
    Nouveau candidat au Club
    Inscrit en
    Octobre 2009
    Messages
    2
    Détails du profil
    Informations forums :
    Inscription : Octobre 2009
    Messages : 2
    Par défaut
    ça ne vas pas créer une rodondance avec la do loop until ?
    je ne vois pas trop comment tout mettre en place ( je suis sur vba depuis 1 semaine )

    Merci pour ton aide laetitia j'essaie de voir cet élément !

  4. #4
    Membre Expert Avatar de laetitia
    Profil pro
    Inscrit en
    Décembre 2002
    Messages
    1 281
    Détails du profil
    Informations personnelles :
    Âge : 35
    Localisation : France

    Informations forums :
    Inscription : Décembre 2002
    Messages : 1 281
    Par défaut
    bonjour Yoyo93220 le forum pas d'avoir bien compris!!!
    une approche copy en feuille2 a adapter

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    Option Explicit
    Sub es()
    Dim f As Range, c As Variant
    Application.ScreenUpdating = False
    Sheets("Feuil1").Activate
    For Each c In Sheets("Feuil1").Range("p1:p" & Range("p65536").End(xlUp).Row)
    Set f = Sheets("Feuil1").Range("n1:n" & Range("n65536").End(xlUp).Row).Find(c, LookIn:=xlValues, LookAt:=xlWhole)
    If f Is Nothing Then
    Range("p" & c.Row & ":r" & c.Row).Cut Destination:=Sheets("Feuil2").Range("p65536").End(xlUp)(2)
    End If: Next
    [p1:r65536].SpecialCells(xlCellTypeBlanks).Columns.Delete
    End Sub

Discussions similaires

  1. Nouveau problème à la boucle "Do-Loop Until"
    Par My_DiDi dans le forum Macros et VBA Excel
    Réponses: 8
    Dernier message: 29/05/2009, 14h47
  2. Problème avec la boucle "Do-Loop Until"
    Par My_DiDi dans le forum Macros et VBA Excel
    Réponses: 17
    Dernier message: 28/05/2009, 15h43
  3. [E-03] VBA Pb Do..Loop until + Offset
    Par Bastien06 dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 24/02/2009, 19h33
  4. Problème avec une boucle Do.. Loop Until
    Par gta126 dans le forum VB 6 et antérieur
    Réponses: 5
    Dernier message: 29/12/2007, 11h27
  5. Erreur dans "Loop Until"
    Par djudju2000 dans le forum VBA Access
    Réponses: 12
    Dernier message: 14/03/2007, 12h01

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