valeur cellule en fonction de la selection

mromain

XLDnaute Barbatruc

• 6 Octobre 2010

• #2

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+

 

Vote positif 0 Vote négatif

miguelangelo

XLDnaute Occasionnel

• 6 Octobre 2010

• #3

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

 

Vote positif 0 Vote négatif

mromain

XLDnaute Barbatruc

• 6 Octobre 2010

• #4

Re : valeur cellule en fonction de la selection

Re,

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

a+

 

Vote positif 0 Vote négatif

miguelangelo

XLDnaute Occasionnel

• 6 Octobre 2010

• #5

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 !!

 

Vote positif 0 Vote négatif

mromain

XLDnaute Barbatruc

• 6 Octobre 2010

• #6

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) :

VB:

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"

Cliquez pour agrandir...

Pour cet exemple, voici le code :

VB:

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+

 

Dernière édition: 4 Janvier 2011

Vote positif 0 Vote négatif

miguelangelo

XLDnaute Occasionnel

• 6 Octobre 2010

• #7

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

 

Vote positif 0 Vote négatif

mromain

XLDnaute Barbatruc

• 6 Octobre 2010

• #8

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+

 

Vote positif 0 Vote négatif

miguelangelo

XLDnaute Occasionnel

• 6 Octobre 2010

• #9

Re : valeur cellule en fonction de la selection

fichier avec explications...

cross fingers

 

Pièces jointes

• test.xls

  20.5 KB · Affichages: 65
• test.xls

  20.5 KB · Affichages: 64
• test.xls

  20.5 KB · Affichages: 60

Vote positif 0 Vote négatif

mromain

XLDnaute Barbatruc

• 6 Octobre 2010

• #10

Re : valeur cellule en fonction de la selection

Re,

Voici un essai :

VB:

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+

 

Dernière édition: 4 Janvier 2011

Vote positif 0 Vote négatif

miguelangelo

XLDnaute Occasionnel

• 6 Octobre 2010

• #11

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

 

Vote positif 0 Vote négatif