un défi pour vous

T

ThomasR

XLDnaute Occasionnel

• 10 Juin 2005

• #2

bonjour le forum,

une question pourquoi copier le tout dans une feuille 2 si les lignes sont sup de la feuille 3.

si j'ai bien compris apres passage de la macro la feuille 2 est 3 sont egal puis dans la feuille 1 rien ne bouge?

@+
Thomas®

PS : passe lire la charte 🙂

 

Vote positif 0 Vote négatif

J

jean

Guest

• 10 Juin 2005

• #3

oui c'est vrai j'ai fait une erreur en fait il faudrait un bouton feuille 3 qui donne le resultat dans feuille 2, la suppression des lignes ne doit pas intervenir feuille 3 mais juste dans feuille 2

en tout cas merci de m'aider thomas

 

Vote positif 0 Vote négatif

T

ThomasR

XLDnaute Occasionnel

• 10 Juin 2005

• #4

re bonjour jean, le forum,

j'espere avoir bien compris

bon courage
Thomas® [file name=1_20050610093714.zip size=10337]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/1_20050610093714.zip[/file]

 

Pièces jointes

• 1_20050610093714.zip

  10.1 KB · Affichages: 27

Vote positif 0 Vote négatif

J

jean

Guest

• 10 Juin 2005

• #5

je pense que tu as parfaitement compris mais ca ne marche pas erreur 400
peux tu encore m'aider
un gd merci thom

 

Vote positif 0 Vote négatif

T

ThomasR

XLDnaute Occasionnel

• 10 Juin 2005

• #6

Oups!!

c'est ca de pas tester :silly:

c good now

@+
Thomas [file name=1_20050610095705.zip size=10430]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/1_20050610095705.zip[/file]

 

Pièces jointes

• 1_20050610095705.zip

  10.2 KB · Affichages: 31

Vote positif 0 Vote négatif

J

JEAN

Guest

• 10 Juin 2005

• #7

un tres tres grand merci c'est super thomas

 

Vote positif 0 Vote négatif

T

ThomasR

XLDnaute Occasionnel

• 10 Juin 2005

• #8

mais de rien

@+
Thomas®

 

Vote positif 0 Vote négatif

J

jean

Guest

• 13 Juin 2005

• #9

bonjour a tous le forum

petit probleme avec le fichier je ne sais pas comment modifier les pages. Que veut dire sheets(1) sheets(2) ce sont des numeros de pages ou autre chose. Je voudrais appliquer la meme formule a chaque fois decalée d'une page.


Sub thomas()
Dim u As Integer

Sheets('Sheet3').Select
Cells.Select
Selection.Copy
Sheets('Sheet2').Select
Cells(1, 1).Select
ActiveSheet.Paste


For i = 1 To Sheets(1).Range('A65000').End(xlUp).Row
For u = 1 To Sheets(2).Range('A65000').End(xlUp).Row
If Sheets(1).Range('A' & i) = Sheets(2).Range('A' & u) And Sheets(1).Range('B' & i) = Sheets(2).Range('B' & u) And Sheets(1).Range('C' & i) = Sheets(2).Range('C' & u) And Sheets(1).Range('D' & i) = Sheets(2).Range('D' & u) Then
Sheets(2).Range('A' & u).Select
ActiveCell.EntireRow.Delete
End If
Next u
Next i

End Sub

merci au forum

 

Vote positif 0 Vote négatif