Chercher et copier une cellule dans Excel

Fermé

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

Chercher et copier une cellule dans Excel
Aller à la ligne dans une cellule excel - Guide
Liste déroulante excel - Guide
Verrouiller cellule excel - Guide
Copier une vidéo youtube - Guide
Si et excel - Guide

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

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

catsides Messages postés 4 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

Discussions similaires

Dessiner avec son clavier et avec des lettres

Formule Excel : "SI" une cellule contient un mot, alors ?

Excel si cellule contient texte alors...

Discussions similaires

Newsletters