zebanx
XLDnaute Accro
Bonsoir,
Cette méthode reste encore à largement travailler pour moi.
Ci-joint un petit exemple (récupéré partiellement) pour rechercher dans une BDD mais qui bloque à l'instruction marquée en rouge sans que je ne comprenne pourquoi.
Pourriez-vous SVP m'aider pour la ou les corrections apportées sur ce code ?
Par ailleurs, la recherche sur "find" donne beaucoup de résultats mais si vous avez des exemples (fichiers) ou liens vers des réponses qui seraient rapides à me communiquer et utiles sur le sujet , je suis preneur et vous en remercie aussi par avance.
Bonne soirée
thierry
------
Sub inserer_representants()
Dim numdep As String
Dim col As Variant
Sheets("rech_1").Select
Range("B2").Select
While ActiveCell.Value <> ""
numdep = Left(ActiveCell.Value, 2)
col = Sheets("bdd_1").Range("A2:E11").Find(What:=numdep, LookIn:=xlFormulas, LookAt:=xlWhole).Address
col = Range(col).Column
col = CInt(col)
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = Sheets(1).Cells(1, col).Value
Wend
Range("a2").Select
End Sub
Cette méthode reste encore à largement travailler pour moi.
Ci-joint un petit exemple (récupéré partiellement) pour rechercher dans une BDD mais qui bloque à l'instruction marquée en rouge sans que je ne comprenne pourquoi.
Pourriez-vous SVP m'aider pour la ou les corrections apportées sur ce code ?
Par ailleurs, la recherche sur "find" donne beaucoup de résultats mais si vous avez des exemples (fichiers) ou liens vers des réponses qui seraient rapides à me communiquer et utiles sur le sujet , je suis preneur et vous en remercie aussi par avance.
Bonne soirée
thierry
------
Sub inserer_representants()
Dim numdep As String
Dim col As Variant
Sheets("rech_1").Select
Range("B2").Select
While ActiveCell.Value <> ""
numdep = Left(ActiveCell.Value, 2)
col = Sheets("bdd_1").Range("A2:E11").Find(What:=numdep, LookIn:=xlFormulas, LookAt:=xlWhole).Address
col = Range(col).Column
col = CInt(col)
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = Sheets(1).Cells(1, col).Value
Wend
Range("a2").Select
End Sub
Pièces jointes
Dernière édition: