Afficher la cellule

[REDGS]

Bonjour le forum,

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.

Merci de votre aide.
Redgs

 

[CBernardT]

Re : Afficher la cellule

Bonjour à tous,

Une syntaxe possible :

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

 

[job75]

Re : Afficher la cellule

Bonjour REDGS,

résultat : afficher la cellule (...)

Qu'entendez-vous par afficher ??

S'il s'agit de trouver la valeur, utilisez RECHERCHEV (en anglais VLOOKUP).

Edit : salut Bernard

A+

 

[Victor21]

Re : Afficher la cellule

Bonjour, REDGS

Alt+F11, et dans un module :

Sub chercheA1()
    With [a1:a500]
        Set c = .Find([A1].Value, LookIn:=xlValues)
        If Not c Is Nothing Then
            c.Offset(0, 1).Select
        End If
    End With
End Sub

Edit : Bonsoir CBernardT, job75.
Re edit : C.Offset(0,1) pour la celule à droite...

 

[job75]

Re : Afficher la cellule

Re, salut Victor21,

Bon, alors j'affiche...

Sub a()
On Error Resume Next
MsgBox "Résultat : " & Application.VLookup([A1], [A6:B100], 2, 0)
If Err Then MsgBox "Pas de résultat..."
End Sub

A+

 

[Victor21]

Re : Afficher la cellule

RE,

Double clic sur A1 :

 

[REDGS]

Re : Afficher la cellule

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

 

[Victor21]

Re : Afficher la cellule

Re,

Vois l'exemple joint en #6
Le code est dans le module de la feuille.

 

[REDGS]

Re : Afficher la cellule

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