Recherche ligne variable via macro

Le 12/07/2016 à 15:48

Bonjour à tous,

J'aurais besoin d'un peu d'aide pour une macro.

Il s'agit d'effectuer une recherche dans la feuil1 à partir d'éléments renseignés sur une feuil2.

Je vous joint le fichier.

Il faut : afficher dans la cellule H8 et H9 le N° Qualif en fonction de la NORME et de la machines renseignée.

Le N° QUALIF est à aller chercher dans la Feuil1.

J'ai déjà un début de macro qui filtre mon tableau en Feuil1 en fonction de ce que j'ai renseigné pour la NORME et la machine en feuil2, il copie ensuite le N°QUALIF et le colle dans la cellule dédiée : H8 en Feuil2.

Mon problème est que les 2 tableaux son plus grand et que la NORME et la machine change toujours en fonction de ce que l'on renseigne, mon copier /coller ne fonctionne alors plus puisque la ligne n'est plus fixe en fonction des critères, seulement la colonne N°QUALIF.

Je ne sais pas si j'ai été assez claire, j'espère que le fichier sera plus parlant.

Merci pour votre aide.

11macro-recherche.xlsx (15.05 Ko)

Le 12/07/2016 à 15:50

Bonjour.

Une machine a-t-elle toujours la même norme ? Ou inversement.

Bonne journée.

Le 12/07/2016 à 15:51

Bonjour,

je pense que la fonction "RECHERCHEV" pourrai vous aider voici un exemple :

15macro-recherche.xlsx (15.40 Ko)

Le 12/07/2016 à 15:58

Merci d'être aussi rapide.

La norme n'est pas toujours la même selon les machines.

Pour la fonction recherche c'est ce que je faisais au départ mais là je voudrais vraiment une macro car comme j' lai dis j'ai déjà un début de macro avec des userform qui demande les informations du type : NORME et machines pour qu'ensuite soit lancé là recherche (là où je sèche justement).

Le 12/07/2016 à 16:09

on peut avoir le userForm ?

Le 12/07/2016 à 16:14

Je voulais le mettre mais je ne voulais pas divulguer certaines info, je vais donc le modifier et je poste ça de suite!

Private Sub UserForm_Initialize()

With Me.ComboBox1

.AddItem "Opération"

End With

End Sub

Private Sub CommandButton1_Click()

Range("A8") = ComboBox1.Value

UserForm2.Show

End Sub

Private Sub UserForm_Initialize()

With Me.ComboBox2

.AddItem "ABC000-001"

.AddItem "ABC000-002"

.AddItem "ABC000-003"

.AddItem "ABC000-004"

End With

End Sub

Private Sub CommandButton1_Click()

Range("B8") = ComboBox2.Value

UserForm3.Show

End Sub

Private Sub UserForm_Initialize()

With Me.ComboBox3

.AddItem "x"

End With

End Sub

Private Sub CommandButton1_Click()

Range("C8") = ComboBox3.Value

UserForm4.Show

End Sub

Private Sub UserForm_Initialize()

With Me.ComboBox4

.AddItem "Alpha"

.AddItem "Beta"

.AddItem "Gamma"

.AddItem ""

End With

End Sub

Private Sub CommandButton1_Click()

Range("J8") = ComboBox4.Value

End Sub

CODE :

Sub Ellipse_Clic()

Dim var1 As Integer

While var1 < 1

Rows("8:8").Select

Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

var1 = var1 + 1

Wend

UserForm1.Show

Sheets("Feuil1").Select

ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=2, Criteria1:=Range("J8")

ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=5, Criteria1:=Range("B8")

Range("") 'Mon pb est à ce niveau là

Selection.Copy

Sheets("Feuil2").Select

Range("").Select 'Et là aussi !

ActiveSheet.Paste

End Sub

VOILA VOILA