Chercher et copier une cellule dans Excel

Question

Bonjour,
Je souhaiterais effectuer une macro qui irait lire les données sur une ligne et vérifierait si une 
valeur de la ligne est présente sur une cellule définie
Par exemple 

Ligne A : 01.2008  02.2008    03.2008    04.2008   etc ...
Montant  :50          75              80           90


Cellule H3 : 04.2008
Cellule H4 : 90 [Valeur que je souhaite récupérer avec la macro]

Je souhaite donc afficher en cellue H4 le montant correspondant à la valeur 04.2008, soit 90

Je ferais ceci :

Dim val as range
Val = ligne A.value where ligne A.value = range ("H3")

If ligne A.value = range ("H3").value
Then range("H4").value = Val . Row -1

Bon, je ne suis pas une pro d'Excel, je pense que cela n'est pas compliqué, mais je ne sais 
pas comment le faire !!

Merci d'avance pour votre aide
cath

Vaucluse · Accepted Answer

Bonsoir
Une macro peut paraitre superflue au premier abord:
Avez vous essayé d'utiliser la fonction recherche
Si vos codes sont en colonnes A et vos montants en colonne B:
En H4
=SI(H3="";"";RECHERCHEV(H3;A:B;2;0)
Ou pour éviter un affichage intempestif si la formule ne trouve pas de correspondance
=SI(H3="";"";SI(ESTNA(RECHERCHEV(H3;A:B;2;0));"";RECHERCHEV(H3;A:B;2;0)))
Crdlmnt

LePierre · Answer

Bonjour

Si tu veux vraiment une macro essaye ceci :
Sub test()
    Col = Cells(1, 1).End(xlToRight).Column 
    DatJour = Range("H3").Value
    For i = 1 To Col
        If Cells(1, i).Value = DatJour Then
            Valeur = Cells(2, i).Value
            Exit For
        End If
    Next i
    Range("H4").Value = Valeur
End Sub
à plus

Chercher et copier une cellule dans Excel

2 réponses

Votre réponse

Discussions similaires

Newsletters