Discussion :

[yoyo3d]

Bonjour à tous
à partir d'une feuille ("données"), je récupère une valeur que je souhaite utiliser pour faire une recherche dans une autre feuille("données appels").colonne ("B") et récupérer le numéro de ligne correspondant
j'ai déjà utilisé ce code mais la recherche ce faisait sur la même feuille.
j'ai donc éssayé de "cibler" la feuille de recherche avec un with / end with, mais visiblement je n'ai pas capter l'intérêt du schmilblik, il me semblait que cela permettait de faire référence à un objet contenu dans une feuille sans répéter le nom complet

dans le code suivant, ecrit en bleu...

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 valeur As String

For i = 2 To Nb_lignes_appel
  
    cellule = Range("B" & i).Value
    
    With Sheets("données appels")
        Dim num_ligne As Range
        num_ligne = .Range("B:B").Find(what:=valeur, LookIn:=xlValues, lookat:=xlWhole).Row
    End With
    
    Range("L" & i) = num_ligne

Next

hors, je ne comprend pas pourquoi ma "variable objet ou bloc with" est non définie...

j'espere avoir été claire et précis... (c'est pas sure ) merci pour vos lumières .

[Phil Free]

Bonjour,

c'est un bug du gestionnaire d'erreur de l'editeur VBA. Mais cela ne veut pas dire qu'il n'y a pas d'erreur ! C'est juste qu'elle est mal interpretée ou retranscrite ou que sais-je.

l'erreur est ici :

Code :

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

Dim num_ligne As Range

cette variable attend un objet de type range

or

Code :

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

.Range("B:B").Find(what:=valeur, LookIn:=xlValues, lookat:=xlWhole).Row

renvois une valeur de type long !

soit tu ecris :

Code :

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

1
2
3
4
    With Sheets("données appels")
        Dim num_ligne As long
        num_ligne = .Range("B:B").Find(what:=valeur, LookIn:=xlValues, lookat:=xlWhole).Row
    End With

soit

Code :

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

1
2
3
4
5
6
    With Sheets("données appels")
        Dim num_ligne As Range
        Set num_ligne = .Range("B:B").Find(what:=valeur, LookIn:=xlValues, lookat:=xlWhole)
        'et le numero de ligne s'obtient alors par exemple :
        MsgBox num_ligne.Row
    End With

A+

[yoyo3d]

Rrhaaaa punaise...

ça m'apprendra à ressortir mes vieux codes....
j'ai tout vérifier sauf le type de retour...

merci, merci...merci