B
Baboune
Guest
Bonjour tous le monde,
J’ai un classeur (pneu.xls) que je veux mettre à jour de tarif. Pour ce faire, je dispose de plusieurs classeurs de plusieurs marques de pneumatiques, contenant plusieurs feuilles avec références et tarifs.
J'arrive, grâce a un code emprunté à myDearFriend! (Merci à lui), à retrouver une référence dans le bon classeur et la bonne feuille des marques de pneus.
Mon problème est que je n'arrive pas connaître le numéro de ligne et de colonne pour cette référence.
J'en ai besoin pour récupérer le prix qui ce trouve X colonnes plus loin et qui est la seule ayant une couleur de remplissage.
Voici le code utilisé :
'Rechercher la valeur dans chaque classeur
For N = 1 To ListeClasseurs.Count
Application.EnableEvents = False
Workbooks.Open Chemin & '\\' & ListeClasseurs(N)
Application.EnableEvents = True
F = Sheets.Count
With ActiveWorkbook
For R = 1 To F
Set C = .Sheets(R).Columns(1).Find(MaValeur, LookIn:=xlValues)
If Not C Is Nothing Then
MsgBox 'trouvé dans ' + ListeClasseurs(N)
Flag = 1
Exit For 'Valeur trouvée, on sort de la boucle
End If
Next R
End With
If Flag = 1 Then Exit For
Next N
Merci pour votre aide
P.S.
Il est génial ce forum. IL contient des montagnes d'information et dans une ambiance très conviviale.
J’ai un classeur (pneu.xls) que je veux mettre à jour de tarif. Pour ce faire, je dispose de plusieurs classeurs de plusieurs marques de pneumatiques, contenant plusieurs feuilles avec références et tarifs.
J'arrive, grâce a un code emprunté à myDearFriend! (Merci à lui), à retrouver une référence dans le bon classeur et la bonne feuille des marques de pneus.
Mon problème est que je n'arrive pas connaître le numéro de ligne et de colonne pour cette référence.
J'en ai besoin pour récupérer le prix qui ce trouve X colonnes plus loin et qui est la seule ayant une couleur de remplissage.
Voici le code utilisé :
'Rechercher la valeur dans chaque classeur
For N = 1 To ListeClasseurs.Count
Application.EnableEvents = False
Workbooks.Open Chemin & '\\' & ListeClasseurs(N)
Application.EnableEvents = True
F = Sheets.Count
With ActiveWorkbook
For R = 1 To F
Set C = .Sheets(R).Columns(1).Find(MaValeur, LookIn:=xlValues)
If Not C Is Nothing Then
MsgBox 'trouvé dans ' + ListeClasseurs(N)
Flag = 1
Exit For 'Valeur trouvée, on sort de la boucle
End If
Next R
End With
If Flag = 1 Then Exit For
Next N
Merci pour votre aide
P.S.
Il est génial ce forum. IL contient des montagnes d'information et dans une ambiance très conviviale.