Faire selectionner une cellule en fonction de 2 valeurs

[klorane]

Bonjour à tous,

je suis en train de m'amuser à faire une petite appli pour ma fille. Faut bien s'occuper^^

Je bloque sur sur un truc.

J'aimerai qu'en fonction de 2 valeurs une cellule d'un tableau soit séléctionnée et qu'ensuite le contenu de cette cellule soit reporté dans une cellule.

je joins un fichier excel pour mieux me comprendre.

ex : E2 = 3 et F2 = 4.
Cela correspond dans le tableau à la cellule G10 (resultat : 30).

Lorsque je clique sur "Bouton 1", il s'inscrit alors dans la cellule H2 : 30.

merci pour votre aide.. (si c'est réalisable^^)

Klorane

 

[Robert]

Re : Faire selectionner une cellule en fonction de 2 valeurs

Bonsoir Klorane, bonsoir le forum,

en H2 la formule ci-dessous :

=INDEX($C$5:$I$11;EQUIV(F2;$C$5:$C$11);EQUIV(E2;$C$5:$I$5))

En macro essaie comme ça :

Sub Bouton1_Clic()
Dim col As Byte
Dim li As Byte
col = Range("E2").Value + 4
li = Range("F2").Value + 6
Cells(li, col).Select
Range("H2").Value = ActiveCell.Value
End Sub

 

[hoerwind]

Re : Faire selectionner une cellule en fonction de 2 valeurs

Bonjour, salut Robert,

Par macro je ne puis t'aider, mais bien avec une petite formule :
=DECALER(C5;F2+1;E2+1)

 

[klorane]

Re : Faire selectionner une cellule en fonction de 2 valeurs

merci à vous 2 pour la formule! j'aurai pas trouvé^^.

Les 2 fonctionnent parfaitement...

Pour etre encore un peu chi..t avant :

dans le meme principe est il possible de faire l'inverse pour compléter le tableau?

J'ai 2 valeurs en E2 et F2 qui détermine toujours la cellule du tableau mais cette fois c'est la valeur en H2 qui va se copier en G10.

Klorane

 

[Robert]

Re : Faire selectionner une cellule en fonction de 2 valeurs

Bonsoir le fil, bonsoir le forum,

Dans ce cas essaie comme ça :

Sub Bouton1_Clic()
Dim col As Byte
Dim li As Byte
col = Range("E2").Value + 4
li = Range("F2").Value + 6
Cells(li, col).Select
ActiveCell.Value = Range("H2").Value
End Sub

 

[klorane]

Re : Faire selectionner une cellule en fonction de 2 valeurs

C'est parfait^^ je vais jouer avec ça ce soir.

Merci de votre aide...

Klorane

 

[klorane]

Re : Faire selectionner une cellule en fonction de 2 valeurs

Re,

je travaille sur mon truc et pour des raison pratique je compte mettre le tableau sur la Feuil2.

Dans la macro ou faut il le préciser?
j'ai essayé feuil2.cells... mais ça ne fonctionne pas.

Sub Bouton1_Clic()
Dim col As Byte
Dim li As Byte
col = Range("E2").Value + 4
li = Range("F2").Value + 6
Cells(li, col).Select
ActiveCell.Value = Range("H2").Value
End Sub

klorane

 

[hoerwind]

Re : Faire selectionner une cellule en fonction de 2 valeurs

Re,

Une proposition par formule sous la pièce jointe.

D6 : =SI(ET(D$5=$E$2;$C6=$F$2);$H$2;"")
à copier vers le bas et vers la droite

 

[Robert]

Re : Faire selectionner une cellule en fonction de 2 valeurs

Bonjour Klorane, bonjour le forum,

Si tu lances la macro en étant déjà sur l'onglet Feuil2 pas besoin de changement. Sinon, essaie comme ça :

Sub Bouton1_Clic()
Dim col As Byte
Dim li As Byte
With Sheets("Feuil2")
     .Select     
     col = .Range("E2").Value + 4
     li = .Range("F2").Value + 6
     .Cells(li, col).Select
     ActiveCell.Value = .Range("H2").Value
End With
End Sub