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
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
A voir également:
- Chercher valeur ds une colonne + valeur d'une autre cellule
- Déplacer une colonne excel - Guide
- 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
- Vba récupérer valeur cellule ✓ - Forum VB / VBA
- Vba rechercher une valeur dans une colonne - Astuces et Solutions
- [Vba] recherche d'une valeur EXACTE ✓ - Forum VB / VBA
3 réponses
michel_m
Messages postés
16593
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
7 mars 2023
3 291
12 déc. 2014 à 11:13
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")
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
12 déc. 2014 à 12:43
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
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
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
Au temps pour moi, j'avais oublié de changer le terme recherché, c'est donc ok
Merci beaucoup