Boucle copier coller ligne vers une feuille si condition valeur

khaliente Messages postés 5 Date d'inscription Statut Membre Dernière intervention -
Polux31 Messages postés 6917 Date d'inscription Statut Membre Dernière intervention - 17 nov. 2013 à 19:29

bonjour,
je suis novice en vba et je suis entrain de faire une macro qui me permettra de reaffecter les données dans chaque feuille selon une condition.
par exemple mon fichier s'appelle "implant" et il se presente dans un tableau tel que celui-ci

colonne A colonne b colonne c
CODE INTERNE LIBELLE PRODUIT CODE GEO
3675201 DONORMYL 1101105
3611738 PREDNISOLONE 4101110
3939775 TEMERIT 1101115
3194631 CORRECTOL 2101120
3780808 RILMENIDINE 1101125
3290381 RULID 1101130
3592254 ARIXTRA 1101135
3447463 HUMEX RHUME 21101140

je souhaiterais copier sur la feuille 2 toutes les lignes dont la valeur de la colonne C est >= 1101105 et inferieur ou egale à 1122750
et je souhaiterais copier sur la feuille 3 toutes les lignes dont la valeur de la colonne C est >= 2101105 et inferieur ou egale à 4124750
et je souhaiterais copier sur la feuille 4 toutes les lignes dont la valeur de la colonne C est >= 21101105 et inferieur ou egale à 28001100
svp quelqu'un pourrait -il m'aider ?
j'ai fais cette macro mais cela ne focntionne pas

With Sheets("implant")

Set plage = .Range("C2:C" & .Range("C65000").End(xlUp).Row)

Dim range as plage

For Each c In plage

If c.Value >= "1101105" And c.Value <= "1122750" Then
x = Sheets("feuille2").Range("C65000").End(xlUp).Row + 1
c.EntireRow.Copy Sheets("feuille2").Rows(x)

ElseIf c.Value >= "2101105" And c.Value <= "4124750" Then
x = Sheets("feuille3").Range("c65000").End(xlUp).Row + 1
c.EntireRow.Copy Sheets("feuille3").Rows(x)

ElseIf c.Value >= "21101105" And c.Value <= "28001100" Then
x = Sheets("feuille4").Range("c65000").End(xlUp).Row + 1
c.EntireRow.Copy Sheets("feuille4").Rows(x)

End If

Next c

A voir également:

Macro excel copier ligne sous condition
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Excel cellule couleur si condition texte - Guide
Aller à la ligne excel - Guide
Liste déroulante excel - Guide
Partager photos en ligne - Guide

2 réponses

Réponse 1 / 2

Polux31 Messages postés 6917 Date d'inscription Statut Membre Dernière intervention 1 204

Bonjour,

Après quelques petites modifs :

Sub Tri()

Dim plage As range

Dim x As Long

Dim c



With Sheets("implant")

    Set plage = .range("C2:C" & .range("C65000").End(xlUp).Row)

    For Each c In plage

        If c.Value >= "1101105" And c.Value <= "1122750" Then

            x = Sheets("feuil2").range("C65000").End(xlUp).Row + 1

            c.EntireRow.Copy Sheets("feuil2").Rows(x)

        ElseIf c.Value >= "2101105" And c.Value <= "4124750" Then

            x = Sheets("feuil3").range("c65000").End(xlUp).Row + 1

            c.EntireRow.Copy Sheets("feuil3").Rows(x)

        ElseIf c.Value >= "21101105" And c.Value <= "28001100" Then

            x = Sheets("feuil4").range("c65000").End(xlUp).Row + 1

            c.EntireRow.Copy Sheets("feuil4").Rows(x)

        End If

    Next c

End With



End Sub

J'ai testé avec les données de l'exemple. La 3ème condition n'apparaît pas dans le jeu de test.

;o)

Réponse 2 / 2

khaliente Messages postés 5 Date d'inscription Statut Membre Dernière intervention

justement c'est mon probleme, la troisieme condition ne s'execute pas et cela même lorsque la condition est remplie.
Que dois-je faire?
A votre avis cela vient de quoi

Polux31 Messages postés 6917 Date d'inscription Statut Membre Dernière intervention 1 204

Bsr,

Il faut enlever les double-côtes dans les conditions ... j'ai zappé ça en collant le code ...

Sub Tri()

Dim plage As Range

Dim x As Long

Dim c



With Sheets("implant")

    Set plage = .Range("C2:C" & .Range("C65000").End(xlUp).Row)

    For Each c In plage

        If c.Value >= 1101105 And c.Value <= 1122750 Then

            x = Sheets("feuil2").Range("C65000").End(xlUp).Row + 1

            c.EntireRow.Copy Sheets("feuil2").Rows(x)

        ElseIf c.Value >= 2101105 And c.Value <= 4124750 Then

            x = Sheets("feuil3").Range("c65000").End(xlUp).Row + 1

            c.EntireRow.Copy Sheets("feuil3").Rows(x)

        ElseIf c.Value >= 21101105 And c.Value <= 28001100 Then

            x = Sheets("feuil4").Range("c65000").End(xlUp).Row + 1

            c.EntireRow.Copy Sheets("feuil4").Rows(x)

        End If

    Next c

End With



End Sub

Discussions similaires

Copier ligne(s) sous condition dans une autre feuille

vba excel copier lignes avec condition

Boucle copie-colle ligne avec condition de valeur d'une cellule

macro copier ligne dans autre onglet si condition

Renommer une feuille excel avec une cellule

Formule pour copier une ligne sous condition??

Votre réponse

Discussions similaires