Discussion :

[heavenly]

Bonjour à tous,

Je galère depuis se matin sur un petit truc mais pas moyen de trouver.

J'ai un grand tableau, 65 colonnes et x lignes.
Il y a deux colonnes (7et8) qui sont rayon et référence.
J'ai fait un userform qui permette à un individu de rentrer le rayon et la référence afin que la macro la trouve dans la tableau.
J'ai réussi à faire la macro pour trouver les lignes, j'ai même le nombre de ligne ou se trouve cette réf et ce rayon.
Mais mon but c'est de sélectionner qu'une ligne afin de prendre quelque donnée qui se trouve sur ces lignes.

Si quelqu'un me m'aider svp

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
'Permet de trouver le nombre de ligne à partir de la colonne 7
 
Cells(2, 7).Select
Ligne = Range(Selection, Selection.End(xlDown)).Rows.Count + 1
 
'Cherche dans le tableau dans la colonne 7 et 8 le rayon et la référence
 
compteur = 0
For i = 2 To Ligne
 
If Cells(i, 7).Value & Cells(i, 8).Value = RechercheRef.Ray.Value & RechercheRef.Ref.Value Then
compteur = compteur + 1
 
End If
 
Next

[gruget]

Bonjour,
alors perso j'ai pas tout compris
Ton utilisateur entre une valeur pour le rayon et la référence, et ensuite tu veux trouver La ligne qui a le mm rayon et la meme référence? ou il peut yen avoir plusieurs et peu importe celle que tu sélectionnes
Si je comprend bien en fait ce que tu veux c'est faire la copie une seule fois et non pas à chaque fois qu'il trouve la paire de valeur choisie
J'imagine que par contre tu souhaites garder le compteur.
Je te conseillerais donc de rajouter un test à l'intérieur de ton test sur ton compteur du style:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
compteur = 0
For i = 2 To Ligne
 
If Cells(i, 7).Value & Cells(i, 8).Value = RechercheRef.Ray.Value & RechercheRef.Ref.Value Then
    If compteur=0 then
       'la les actions que tu veux effectuer (copie de cellule...)
    end if
compteur = compteur + 1
 
End If
 
Next

est-ce ca que tu voulais ou suis-je à coté de la plaque
rémi

[heavenly]

merci de m'aider

Si t'as bien compris ce que je voulais faire!!!
Mais le compteur j'en ai pas besoin je l'avais utilisé pour faire un essai.
Mon but c'est que si ma recherche me trouve plusieurs lignes (elles seront pareil), je veux juste le numéro de ligne d'une d'elle.

[gruget]

OK
alors dans ce cas je te propose de ne pas faire une boucle for mais une boucle While:

Code :

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

1
2
3
4
i = 1
While Cells(i, 7).Value & Cells(i, 8).Value <> RechercheRef.Ray.Value & RechercheRef.Ref.Value
    i = i + 1
Wend

La boucle s'arrete dès qu'elle trouve ton doublet et la valeur de taligne est alors stockée dans i
rémi

[heavenly]

En faite j'ai réussi avec le compteur comme tu m'as expliqué.
Car ça me suffit d'en trouver qu'une.

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
19
20
'Permet de trouver le nombre de ligne à partir de la colonne 7
 
Cells(2, 7).Select
Ligne = Range(Selection, Selection.End(xlDown)).Rows.Count + 1
 
'Cherche dans le tableau dans la colonne 7 et 8 le rayon et la référence
 
compteur = 0
For i = 2 To Ligne
 
If Cells(i, 7).Value & Cells(i, 8).Value = RechercheRef.Ray.Value & RechercheRef.Ref.Value Then
compteur = compteur + 1
    If compteur = 1 Then
    pays = Cells(i, 10).Value
    End If
End If
 
Next
 
MsgBox (pays)

[gruget]

oui je sais bien que ca marche mais avec la boucle while tu vas plus vite parceque tu t'arretes dès que tu as trouvé une ligne qui marche et tu parcours plus tous le tableau
en plus ca te permet d'enlenver ta ligne

Code :

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

Ligne = Range(Selection, Selection.End(xlDown)).Rows.Count + 1

il faut juste que tu mettes une petite sécu pour pouvoir sortir de ta boucle au cas ou elle trouverais pas de ligne du style:

Code :

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

1
2
3
4
5
i = 1
While Cells(i, 7).Value<>RechercheRef.Ray.Value  and Cells(i, 8).Value & i <> RechercheRef.Ref.Value and i<>5000
    i = i + 1
Wend
if i=5000 then msgbox("La recherche a échouée")

par ailleur attention au & dans ton code c'est dangereux
utilise plus des And en énumérant les conditions
rémi

[gruget]

attention erreur dans mon test de sécu:

Code :

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

1
2
3
4
5
i = 1
While Cells(i, 7).Value<>RechercheRef.Ray.Value  and Cells(i, 8).Value & i <> RechercheRef.Ref.Value or i<>5000
    i = i + 1
Wend
if i=5000 then msgbox("La recherche a échouée")

avec un or et pas un And pour la dernière condition
dsl