Discussion :

[steeeve34]

Merci beaucoup ça fonctionne maintenant. J'aurais cependant une autre conditions à respecter pour rendre la macro encore plus efficace.

Présentement la macro recopie sur la feuille Recap, les lignes de la Feuil1 selon le numéro de modèle inscrit à la case I23 de la feuille Acceuil. Jusque là tout va bien mais j'aimerais que les items dont l'état sur la feuille Acceuil indique "N/R" ne soit pas recopiés. J'avais pensé rajouté seulement un And sur ma ligne If, mais le problème est que les items sont les même sur la feuil1 et sur la feuille Acceuil (seulement si l'on utilise le modèle 400) mais ils ne sont pas placés dans le même ordre.

[steeeve34]

Problème résolu. Voici ma macro pour enlever certain bouton.

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
Sub comparaison()
'Comparer les valeurs de la TABLEMAT et de la ROUTINE pour enlever les N/R
Dim VALEURA As String, VALEURB As String
 
For i = 1 To 150
VALEURA = Sheets("TABLEMAT").Range("C" & i).Value
 
For j = 1 To 150
VALEURB = Sheets("ROUTINE").Range("B" & j).Value
 
    If VALEURA = VALEURB And Sheets("TABLEMAT").Range("B" & i).Value = "N/R" Then
    Sheets("ROUTINE").Rows(j).Delete
 
End If
Next j
Next i
 
End Sub