Chercher valeur ds une colonne + valeur d'une autre cellule
Résolu
jpub
Messages postés
53
Statut
Membre
-
jpub Messages postés 53 Statut Membre -
jpub Messages postés 53 Statut Membre -
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
A voir également:
- Chercher valeur ds une colonne + valeur d'une autre cellule
- Déplacer une colonne excel - Guide
- Trier une colonne excel - Guide
- Attribuer une valeur à une cellule texte excel - Forum Excel
- Faites afficher avec un fond coloré les cellules qui contiennent une valeur comprise entre 250 et 350. - Forum VB / VBA
- Mise en forme conditionnelle "compris entre" ✓ - Forum Excel
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 :
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
