Sujet Précédent Sujet Suivant

Chercher et copier une cellule dans Excel

Fermé
catsides Messages postés 3 Date d'inscription mercredi 16 juillet 2008 Statut Membre Dernière intervention 26 avril 2014 - 16 juil. 2008 à 17:54
catsides Messages postés 3 Date d'inscription mercredi 16 juillet 2008 Statut Membre Dernière intervention 26 avril 2014 - 17 juil. 2008 à 10:38
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
A voir également:

2 réponses

Réponse 1 / 2
Vaucluse Messages postés 26496 Date d'inscription lundi 23 juillet 2007 Statut Contributeur Dernière intervention 1 avril 2022 6 421
16 juil. 2008 à 18:09
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
2
Réponse 2 / 2
LePierre Messages postés 249 Date d'inscription samedi 8 mars 2008 Statut Membre Dernière intervention 2 août 2012 338
16 juil. 2008 à 18:22
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
0
catsides Messages postés 3 Date d'inscription mercredi 16 juillet 2008 Statut Membre Dernière intervention 26 avril 2014
17 juil. 2008 à 10:38
Bonjour,

Je te remercie beaucoup.
Cela fonctionne parfaitement.

Bonne journée
Cath
0