Fonction Find vba

Résolu/Fermé

Biloute - 4 oct. 2019 à 17:14
Biloute - 4 oct. 2019 à 18:30

bonjour;
étant novice en VBA, je n'arrive pas à adapter la macro (Find) donnée en exemple, c'est dire :
ma valeur_cherchee = une colonne (plusieurs valeurs)
et ma PlagedeRecherche = une plage de 2 colonne
merci de me donner un petit coup de main

A voir également:

Vba find
Fonction si et - Guide
Fonction moyenne excel - Guide
Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA
Fonction filtre excel n'existe pas - Forum Excel
Vba attendre 1 seconde ✓ - Forum VB / VBA

1 réponse

Réponse 1 / 1

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
4 oct. 2019 à 17:20

Bonjour,

voir cela:

https://forums.commentcamarche.net/forum/affich-37621992-methode-find-dans-vba-recherche-de-donnees-sous-excel#top

Biloute
4 oct. 2019 à 17:30

merci pour votre réponse
je voudrai dans le premier exemple
remplacer le mot à trouver par plusieurs ( une colonne) et la plage de recherche sur 2 colonnes.
j'ai essayé de l'adapter ça ne marche pas

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
Modifié le 4 oct. 2019 à 18:04

comme ceci:

Sub recherche()
'on réinitialise
 Range("A1:C20").Interior.ColorIndex = xlNone 'a adapter
  Columns("E:E").ClearContents 'a adapter
  'on recherche
  For Each cel1 In Range("A1:A19") 'a adapter
    For Each cel2 In Range("B2:C20") 'a adapter
      If cel1 = cel2 Then
        li = li + 1
        Range("E" & cel1.Row) = cel1 & " Colonne A en ligne " & cel1.Row & "  avec Colonne B ou C en ligne " & cel2.Row
        cel1.Interior.ColorIndex = 3 + li
        cel2.Interior.ColorIndex = 3 + li
      End If
    Next
  Next
End Sub

@+ Le Pivert

Biloute
4 oct. 2019 à 18:30

merci beaucoup

Discussions similaires

Méthode find dans VBA - Recherche de données sous Excel

"L'indice n'appartient à la sélection" + VBA

linux : find & grep

Erreur d'exécution 13 Incompatibilité de type

commande find et option ctime