valeur cellule en fonction de la selection

[miguelangelo]

Bonjour,

je voudrais dans une cellule avoir une information en fonction de la cellule selectionnée.

en imagé, si je selectionne la cellule f2, que la cellule h2 me rapatrie les informations qui concernent f2 (dans la zone b13:c16)

un fichier joint

j'espere avoir été clair.

Merci

 

[mromain]

Re : valeur cellule en fonction de la selection

Bonjour miguelangelo,

Dans ton exemple, où sont les informations qui concernent f2 (6, 7, 8 et 9 en C13:C16) ?

a+

 

[miguelangelo]

Re : valeur cellule en fonction de la selection

oui c'est juste un exemple..

ca ressemblerait a une recherchev, mais si y a mieux !!!

merci

 

[mromain]

Re : valeur cellule en fonction de la selection

Re,

D'accord, mais quelles sont les données à recopier ???

a+

 

[miguelangelo]

Re : valeur cellule en fonction de la selection

Dans l'exemple, si je selectionne donc la cellule f4, je voudrais que la cellule h2 m'affiche "8"

si je selectionne f2, ca m'afficherai "6"

merci d'avance !!

 

[mromain]

Re : valeur cellule en fonction de la selection

Re,

Par macro :
Voici un code à mettre sur la feuille (clic droit sur l'onglet, puis Visualiser le code) :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$F$4" Then
        Range("B13").Value = 6
        Range("B14").Value = 7
        Range("B15").Value = 8
        Range("B16").Value = 9
    End If
End Sub

Dans l'exemple, si je selectionne donc la cellule f4, je voudrais que la cellule h2 m'affiche "8"

si je selectionne f2, ca m'afficherai "6"

Pour cet exemple, voici le code :

Private Sub  Worksheet_SelectionChange(ByVal Target  As Range)
    If Target.Address = "$F$4" Then
        Range("H2").Value = 8
    ElseIf Target.Address = "$F$2" Then
        Range("H2").Value = 6
    End If
End Sub

a+

 

[miguelangelo]

Re : valeur cellule en fonction de la selection

arrghhh

mromain, je te remerci pour le temps que tu donnes à mon soucis, mais en fait ca reponds pas à mon soucis.

en fait, si tu veux, quelque soit la valeur que je selectionne, ca devrait me donner l'information qui se trouve en offset(0,1)...et non pas une valeur fixe comme j'ai du te l'indiquer..😱


dis en mieux :
dans mon onglet Z
si je selectionne la cellule f4, dans cette cellule il y a une information X.
dans une base B, X.offset(0,1) represente un complement d'informations Y

je veux donc que dans l'onglet Z, cellule h2, l'information Y soit reportée
le tout au simple fait d'avoir selectionné une cellule pleine dans la colonne F.

Encore merci

 

[mromain]

Re : valeur cellule en fonction de la selection

Mmmmmm 🙄...


Bon du coup, peux-tu renvoyer un fichier avec toutes les données et expliquer clairement (à partir de ces données) ce que tu veux.

a+

 

[miguelangelo]

Re : valeur cellule en fonction de la selection

fichier avec explications...

cross fingers

 

[mromain]

Re : valeur cellule en fonction de la selection

Re,

Voici un essai :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim zoneRecherche As Excel.Range, laCell As Excel.Range
    If Target.Column <> 6 Or Target.Row < 2 Then Exit Sub
    Set zoneRecherche = ThisWorkbook.Sheets("Feuil1").Range("B13:B16")
    Set laCell = zoneRecherche.Find(Target.Value, , xlValues, xlWhole)
    If Not laCell Is Nothing Then Range("H2").Value = laCell.Offset(0, 1)
End Sub

a+

 

[miguelangelo]

Re : valeur cellule en fonction de la selection

en tout cas merci bcp mromain !!

😕je ne sais pas si excel 2000 comprend pas un target, tjs est il que j'ai légèrement modifié tes qq lignes et que ca marche...

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

Dim recherche As Excel.Range
If selection.Column <> 6 Or Target.Row < 8 Then Exit Sub
Set recherche = Range("details").Find(selection.Value, , xlValues, xlWhole)
If Not recherche Is Nothing Then Range("H8").Value = recherche.Offset(0, 1)

End Sub