Quelle formule VBA faut' il employer pour l'exemple suivant :
A1 cellule de recherche,
A6:A100 plage de cellules avec des nombres (sans doublons).
résultat : afficher la cellule à droite de la cellule identique à A1.
Sub Report()
Dim X As String, Plage As Range, R
With Sheets("Feuil1")
X = .Range("A1")
Set Plage = .Range("A6:A600")
Set R = Plage.Find(X)
If Not R Is Nothing Then
.Range("B1").Value = R.Offset(0, 1).Value
End If
End With
End Sub
Bonjour à vous tous,
Victor 21, j'ai appliqué ta formule que je fais fonctionner par F5 sur le module, mais quand je change la valeur de A1 rien ne se passe. Etant novice dans le VBA, comment faire fonctionner, chaque fois que je change la valeur de A1, par la touche validation.
Merci encore à tous
A+ Redgs
Super Victor21
Merci encore à toi ainsi que tous les autres pour vos apports de connaissances.
Ca me permet de comprendre un peu plus le VBA.
Cordialement
Redgs