Discussion :

[art_bras_cames]

Bonjour à tous,
j'ai besoin de votre aide pour résoudre un problème concernant l'acquisition d'une valeur dans une cellule.
J'ai une macro qui me permet de trouver l'adresse d'une cellule contenant une valeur déterminée par une combobox. Je souhaiterais récupérer dans le tableau où se trouve cette cellule, la valeur de la cellule sur le même ligne mais de la colonne précédente. Pour le copier ensuite en B7.
Merci de votre aide

Voici le code qui me permet de déterminer l'adresse de la cellule.


Dim plage As Range

Set plage = Sheets("BDD").Range("a1:b18")
Nom = Regulateur.Value
For Each cell In plage
If cell.Value = Nom Then

Range("b6") = cell.Address
End If
Next

[Invité]

Bonjour,

Pensez à mettre votre code entre balises #

Comment voulez-vous récupérer le contenu de la cellule précédente si Cell teste la première colonne de votre Plage dont la première colonne est la colonne A de l'onglet ?

Cordialement.

[art_bras_cames]

Merci pour la réponse rapide.
la valeur NOM est une valeur qui se trouve dans la colonne B de mon tableau et je souhaiterais pouvoir écrire ce qu'il y a dans la colonne A.
Donc la Cell.address est $B$...
A+

[art_bras_cames]

Je peux sans problème échanger la position des deux colonnes pour que la valeur de la cellule recherchée se trouve dans la colonne B.

[Invité]

Il vous faut utiliser la propriété Offset pour récupérer cette valeur.
Je ne sais pas si ma réponse correspond tout à fait à votre demande.

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
16
17
18
19
20
21
22
23
24
25
 
Sub Essai()
 
Dim Plage As Range
Dim Cell As Range
Dim Regulateur As Range
 
 
    Set Regulateur = Sheets("Feuil1").Range("B2") ' Par exemple
    Set Plage = Sheets("BDD").Range("B1:B18")
 
    Regulateur.Offset(0, -1) = ""
    For Each Cell In Plage
        If Cell = Regulateur Then
            Regulateur.Offset(0, -1) = Cell.Offset(0, -1)
            ' La cellule "A2" de la feuille "Feuil1" contiendra la valeur
            ' de la cellule précédent la cellule trouvée dans la plage
            Exit For
        End If
    Next
 
    Set Regulateur = Nothing
    Set Plage = Nothing
 
End Sub

Cordialement.

[art_bras_cames]

Merci Eric,
cela fonction bien
Bonne soirée