Creer une macro de comparaison ?

Version imprimable

20/07/2007, 17h30
gregounnet

Creer une macro de comparaison ?

Bonjour a toutes et a tous!!!

J’ai a disposition plusieurs feuilles qui correspondent chacune a une marque differente. Dans chacunes d’elles, j’ai un tableau ou figure a chaque ligne un produit different avec ses caracteristiques classe par les differentes colonnes.

J’aimerais pouvoir faire un outil (macro) qui me permettrait de comparer differents produits . Je voudrais creer devant chaque produit une case a cocher. Une fois la case cochee, toute la ligne du produit serait alors copier dans une feuille vierge (seulement le titre des colonnes), et en cochant un autre produit (autre marque aussi) ce dernier apparaitrait a la suite. Bien evidemment en les decochant, il disparaitrait de cette feuille.

Merci de votre aide

Bonjour
Le problème que tu vas rencontrer est que les cases à cocher ne sont pas directement liées à ta feuille, donc impossible, ou du moins difficile, de lier une case à une ligne
Le mieux est de simplement cocher la première (ou dernière cellule) de ta ligne
puis:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 dim ws1 as worksheet dim ws2 as worksheet set ws1=worksheets("Feuil1") set ws2=worksheets("Feuil2") i=2 Do while ws.cells(i,2)<>"" if cells(i,1)="X" then Cells(i, 1).EntireRow.Select Selection.Copy ws2.Select Range("A2").Select 'ou cells(2,1).select Selection.Insert Shift:=xlDown end if loop
en admettant que tu mette ta croix dans la première colonne
on teste la deuxième pour savoir si il y a un article
Slts

20/07/2007, 22h02
Plateforme3

Oups
qq erreurs de frappe dans mon code
Code:

1 2 3 Do while ws1.cells(i,2)<>"" if ws1.cells(i,1)="X" then ws1.Cells(i, 1).EntireRow.Select
C'est mieux comme ça
20/07/2007, 23h15
zazaraignée

Ce serait chouette de mettre les balises code autour de vos listings. C'est le bouton http://www.developpez.net/forums/images/editor/code.gif de l'éditeur.

Salut

Merci beacoup de ton aide Plateform3

J'ai un peu corrige et ca marche

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
dim ws1 as worksheet
dim ws2 as worksheet
set ws1=worksheets("Feuil1")
set ws2=worksheets("Feuil2")
 
i=2
Do while ws1.cells(i,2)<>"" 
   if ws1.cells(i,1)="X" then 
        ws1.select
        Cells(i, 1).EntireRow.Select
        Selection.Copy
        ws2.Select
        Range("A2").Select 'ou cells(2,1).select
        Selection.Insert Shift:=xlDown
   end if
   i = i + 1
loop

Encore merci