Chercher valeur ds une colonne + valeur d'une autre cellule

Résolu/Fermé

jpub Messages postés 43 Date d'inscription mardi 10 mai 2011 Statut Membre Dernière intervention 19 janvier 2016 - 12 déc. 2014 à 10:25
jpub Messages postés 43 Date d'inscription mardi 10 mai 2011 Statut Membre Dernière intervention 19 janvier 2016 - 16 déc. 2014 à 17:12

Bonjour,

Je me permet de vous demander un conseil pour commencer un bout de macro.

je voudrais rechercher une valeur dans une colonne B et récupérer la valeur sur la même ligne en colonne A

ex

- ------A------- B
1 - ETAPE 1 OK
2 - ETAPE 2 OK
3 - ETAPE 3 KO

Je voudrais donc parcourir la colonne B et au premier KO (B3) récupérer la valeur sur la ligne correspondante (A3)

j'arrive à trouver la valeur avec ce bout de code

Sub Macro2()

'
    Range("Activités[OK]").Select
    Selection.Find(What:="faux", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
End Sub

amis je n'ai pas de piste pour continuer et je ne serais pas contre un peu d'aide pour me mettre sur la voie.

Merci

A voir également:

Chercher valeur ds une colonne + valeur d'une autre cellule
Déplacer une colonne excel - Guide
Aller à la ligne dans une cellule excel - Guide
Logiciel gratuit calcul valeur nutritionnelle - Télécharger - Santé & Bien-être
Excel renvoyer la valeur d'une cellule en fonction d'une autre - Forum Excel
Le fichier contient le nombre de voyageurs dans 3 gares. dans la cellule b5, saisissez une formule qui calcule le total et se met à jour si on change une valeur du tableau. quel total obtenez-vous ? quelle formule avez-vous saisie ? ✓ - Forum Excel

3 réponses

Réponse 1 / 3

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
12 déc. 2014 à 11:13

Bonjour

Dim Lig As Long
    Lig = Columns("B").Find("KO", Range("B" & Cells.Rows.Count), xlValues).Row
    MsgBox Cells(Lig, "A")

Réponse 2 / 3

jpub Messages postés 43 Date d'inscription mardi 10 mai 2011 Statut Membre Dernière intervention 19 janvier 2016 1
12 déc. 2014 à 12:43

Bonjour Michel,

Merci de ton aide par contre je n'arrive pa sà l'adapter :

Sub Snamelist()

With Sheets("DASHBOARD").ListObjects("Devoirs")
    If Not .DataBodyRange Is Nothing Then .DataBodyRange.Delete
End With

Sheets("DASHBOARD").Select

Dim LastR As Long
Dim subAss As String
Dim valCell As String

For I = 4 To Sheets.Count


subAdd = Sheets(I).Name & "!N2"
valCell = Sheets(I).Range("N2").Value
LastR = Derniere_Ligne(ActiveSheet) + 1
    ActiveSheet.Hyperlinks.Add Anchor:=Range("C" & LastR), Address:="", SubAddress:=subAdd, TextToDisplay:=valCell 'nom de page + lien



Range("S" & LastR).Value = Sheets(I).Columns("F").Find("KO", Range("F" & Cells.Rows.Count), xlValues).Row



Next 'Feuille Suivante



End Sub

Function Derniere_Ligne(Sh As Worksheet) As Long
Derniere_Ligne = Sh.Cells.Find("*", Range("A1"), , , xlByRows, xlPrevious).Row
End Function

Réponse 3 / 3

jpub Messages postés 43 Date d'inscription mardi 10 mai 2011 Statut Membre Dernière intervention 19 janvier 2016 1
16 déc. 2014 à 17:12

Bonsoir,

Au temps pour moi, j'avais oublié de changer le terme recherché, c'est donc ok

Merci beaucoup

Discussions similaires

Problème de restrictions

Excel:récupérer le contenu d'une cellule en fonction d'une autre

Excel VBA : Récupérer la valeur d'une cellule

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

Renseigner cellule en fonction de la valeur d'une autre cellule

Discussions similaires

Newsletters