Discussion :

[ballad oil]

J'ai fait exactement comme çà mais il me recopie toutes les ligne même celles qui sont pas concernées!!!!

En fait je souhaite faire un tri des valeur

Ma colonne A s'appelle tuteur
Ma colonne AB c'est une liste avec nom et prénom du tuteur dans chaque cellule

Donc si le nom du tuteur est dans la liste on touche pas à la ligne concernée
Supposons Donald en ligne A3 et il est présent dans AB23

La ligne A3 : W3 ne sera pas copiée
Par contre Martin ligne A10 n'est pas dans AB

Donc on copie la ligne dans "Restant"

Et là il parcours bien ma boucle mais il me copie quand même toutes les lignes A:W

Je vois pourtant pas ou est mon erreur


Exemple :

col A col B ........col W col AB

Donald freshyback cours1.......présent Liste

Matias Tagueule cours B.....présent Matias Tagueule

Jules Mytho coursC......Absent Donald freshyback


donc en comparaison les noms dans A et ceux de AB
On va recopier uniquement toute la ligne de Jules Mytho de A à W dans la feuille "Restant" et ainsi de suite

voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
   For i = 3 To 400
   If CStr(Sheets("LISTE").Range("A" & i).Value) <> CStr(Sheets("LISTE").Range("AB" & i).Value) Then
 
 
Sheets("LISTE").Range("A" & i & ":W" & i).Copy  'éviter les Select
 
Sheets("Restant").Range("A" & i).PasteSpecial
End If
 
 Next i

mais il me fait juste un copier coller global
Sans tenir compte de ma condition

Quelqu'un peut m'aider???

[Many31]

tel qu'il est écrit ton code compare la valeur de la colonne A ligne i à celle présente dans la colone AB ligne i également....

Donc soit tu fais une deuxième boucle pour chercher la valeur, soit tu utilise directement la méthode de recherche.

[fring]

Bonjour,

Comme l'a bien préciser Many, dans ton code tu vérifies si le tuteur A3 est le même que le tuteur AB3.

Essaye ceci, je l'ai fait à la volée et non testé:

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
Sub comparer()
With Sheets("LISTE")
For i = 3 To 400
x = 0
If .Range("A" & i).Value <> "" Then
    For j = 3 To 400
    If .Range("AB" & j).Value = .Range("A" & i).Value Then
    x = 1
    Exit For
    End If
    Next j
If x = 0 Then
.Range("A" & i & ":W" & i).Copy
Sheets("Restant").Range("A" & i).PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
End If
End If
Next i
End With
End Sub

@+

[Many31]

sinon par la méthode find ca devrait ressembler a ca (je connais pas tes hypothèses de départ donc j'ai fait sans vérifier)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
    i = 3
    Do while Sheets("LISTE").Cells(i, 1) <> ""
 
        If Sheets("LISTE").Columns("AB:AB").Find(What:=Sheets("LISTE").Cells(i, 1)) Is Nothing Then
            Sheets("LISTE").Range("A" & i & ":W" & i).Copy
            Sheets("Restant").Range("A" & i).PasteSpecial
        end if
 
        i = i+1
    Loop

edit une erreur de copié collé réctifiée

[ballad oil]

Merci les gars!!!

çà à l'air de marcher

Mais c'est juste qu'il copie et colle exactement à la initiale dans l'autre feuille
Comment je peux les disposer a partir de la ligne 3 par exemple et surtout les un à la suite des autre?

[Abed_H]

Bonjour
Plus simple à tester

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub Màjour()
Dim rngAB As Range, cell As Range
Set rngAB = Range("AB1:" & Cells(Rows.Count, 28).End(xlUp).Address)
  For Each cell In Range("titeur")
    If IsError(Application.Match(cell, rngAB, 0)) Then
       Range("AB65536").End(xlUp)(2).Resize(1, 33) = cell.Resize(1, 23).Value
       End If
   Next
End Sub

Abed_H

[ballad oil]

en fait il fait bien la copie dans la feuille ("restant")
Mais c'est diposé avec des décalages de lignes
Et j'aimerais les mettre les uns à suite des autres...

[ballad oil]

Je pense devoir rajouter à paste spécial une condition de mise en forme!!!

[Many31]

si tu relis ton code, il copie les cellule à la ligne i de ta premiere feuille à la ligne i de la deuxieme....

il faut que adapte... c'est ce que je te demandais tout a l'heure.... tu ne nous dit pas tes hypothèses de travail et on peut pas deviner.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    i = 3
    Do while Sheets("LISTE").Cells(i, 1) <> ""
 
        If Sheets("LISTE").Columns("AB:AB").Find(What:=Sheets("LISTE").Cells(i, 1)) Is Nothing Then
            Sheets("LISTE").Range("A" & i & ":W" & i).Copy
            h = 2
            Do while Sheets("Restant").Cells(h,1) <> ""
                h = h +1
            Loop
            Sheets("Restant").Range("A" & h+1).PasteSpecial
        end if
 
        i = i+1
    Loop

La boucle do while sur h devrait t'aider a trouver la derniere ligne non vide. Et donc tu n'as plus qu'a copier dans la cellule suivante (vide donc)

Voila la prochaine fois un peu plus d'information utiles seraient les bienvenues car quitte a tout faire autant tout donner

[ballad oil]

Oui dslé j'ai pas été très explicite!!!

Bon en fait je viens de tester mais apparrement il copier que la derniere ligne maintenant.
Donc le parcous se fait bien mais il colle que la derniere ligne passée en revue!!

[Many31]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 i = 3
    Do while Sheets("LISTE").Cells(i, 1) <> ""
 
        If Sheets("LISTE").Columns("AB:AB").Find(What:=Sheets("LISTE").Cells(i, 1)) Is Nothing Then
            Sheets("LISTE").Range("A" & i & ":W" & i).Copy
            h = 3
            Do while Sheets("Restant").Cells(h,1) <> ""
                h = h +1
            Loop
            Sheets("Restant").Range("A" & h).PasteSpecial
        end if
 
        i = i+1
    Loop

Corrections effectuées j'avais pas tout vérifié

par contre j'ai fixé arbitrairement la valeur de h de départ a 3... donc il commencera a vérifier la validité des cellules de ta page "restant" a partir de la 3eme ligne

[fring]

Re,

Il n'est pas vraiment nécessaire de refaire une boucle pour trouver la première ligne vide

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("Restant").Range("A65535").End(xlUp)(2).PasteSpecial

Donc si tu utilises la proposition de Many, ça donne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
i = 3
    Do while Sheets("LISTE").Cells(i, 1) <> ""
 
        If Sheets("LISTE").Columns("AB:AB").Find(What:=Sheets("LISTE").Cells(i, 1)) Is Nothing Then
            Sheets("LISTE").Range("A" & i & ":W" & i).Copy
            Sheets("Restant").Range("A65535").End(xlUp)(2).PasteSpecial
        end if
 
        i = i+1
    Loop

[Many31]

chui daccord avec fring

pis on peut meme aller plus loin pour simplifier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Macro1()
i = 3
    Do While Sheets("LISTE").Cells(i, 1) <> ""
 
        If Sheets("LISTE").Columns("C:C").Find(What:=Sheets("LISTE").Cells(i, 1)) Is Nothing Then
            Sheets("LISTE").Range("A" & i & ":B" & i).Copy
            Sheets("Restant").Columns("A:A").End(xlUp).Insert
        End If
 
        i = i + 1
    Loop
 
End Sub

nah

[Abed_H]

Bonjour
si j'ai bien compris je pense que ce code devrait faire l'affaire sans "Copy & Paste ect...."

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub Màjour()
Dim rngAB As Range, cell As Range
Set rngAB = Range("AB1:" & Cells(Rows.Count, 28).End(xlUp).Address)
  For Each cell In Range("titeur")
    If IsError(Application.Match(cell, rngAB, 0)) Then
       Sheets("Restant").Range("AB65536").End(xlUp)(2).Resize(1, 33) = cell.Resize(1, 23).Value
       End If
   Next
End Sub

Abed_H

[Many31]

ouaiiiiis un keupain qui veut jouer à "noyer un débutant dans des codes qui font tous la meme chose"....

keupain george

Cells(Rows.Count, 28) ca si tu regarde en pas a pas... ca vaut Cells(65536,28) en gros.... AB65536

Range("AB1:" & Cells(Rows.Count, 28).End(xlUp) ==> Range("AB1:AB65536").End(xlUp)

ca me rappel qq chose

heuuuu au final.... c'est moi ou tu test les 65536 cellules d'une collone pour au final ne pas faire un copié collé... mais juste faire un =
tit cachotier tu as un BlueGene à la maison

faut savoir s'adapter a la demande... ca sert a rien d'envoyer les char soviètique pour capturer un lapin

[ballad oil]

Oui çà m'a l'air niquel
Merci à tous
C'est excellent !!! ;-)

[Abed_H]

Ps :pour Many31 Mon petit c'est normal ,à l'age de 24 ans en dis n'importe quoi .! tu as oublier que c'est un forum d'echange d'idées
Bonne journée.
Abed_H