Chercher valeur ds une colonne + valeur d'une autre cellule
Résolu
jpub
Messages postés
43
Date d'inscription
Statut
Membre
Dernière intervention
-
jpub Messages postés 43 Date d'inscription Statut Membre Dernière intervention -
jpub Messages postés 43 Date d'inscription Statut Membre Dernière intervention -
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
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
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
3 réponses
-
Bonjour
Dim Lig As Long
Lig = Columns("B").Find("KO", Range("B" & Cells.Rows.Count), xlValues).Row
MsgBox Cells(Lig, "A")
-
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 -
Bonsoir,
Au temps pour moi, j'avais oublié de changer le terme recherché, c'est donc ok
Merci beaucoup
