Discussion :

[gregounnet]

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

[Plateforme3]

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 :

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

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

[Plateforme3]

qq erreurs de frappe dans mon code

Code :

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

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

[zazaraignée]

Ce serait chouette de mettre les balises code autour de vos listings. C'est le bouton de l'éditeur.

[gregounnet]

Salut

Merci beacoup de ton aide Plateform3

J'ai un peu corrige et ca marche

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
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