Sujet Précédent Sujet Suivant

For each et Find VBA

Fermé
Biloute - Modifié le 6 oct. 2019 à 20:02
 Biloute - 8 oct. 2019 à 12:31
bonsoir
Voici une petite mocro que j'essaies de perfectionner, je l'ai créé en collants des brides récupérées sur le forum, mais dans cette écriture elle ne marche pas, l'idée finale est: j'ai 2 colonnes en feuil1, ici valeur_cherchee et une colonne en feuil2 plage_ de_recherche
je dois comparer les valeurs de plage_ de recherche avec avec les 2 colonnes de valeur_chercher et si ça match afficher la valeur à coté
Dans ce code toute les colonnes sont dans le même feuille
Merci d'avance pour un petit coup de main 

 Sub rule_number_6()
    Dim ws As Worksheet
    Dim DerLigne As Long
    Dim i As Long
    Dim PlageDeRecherche As Range
    Dim trouve As Range
    
    Dim Valeur_Cherchee As String

    Set ws = Sheets("feuil1")
    Set PlageDeRecherche = ws.Columns(8) 'colonne liste des valeur cherchee
    
   DerLigne = ws.Cells(65536, 3).End(xlUp).Row 'compteur nombre de ligne
    For i = 2 To DerLigne

        Valeur_Cherchee = ws.Range(Cells(i, 3), Cells(i, 4)) 'plage ou chercher
          For Each cel In Valeur_Cherchee
        Set trouve = PlageDeRecherche.Cells.Find(what:=Valeur_Cherchee, LookIn:=xlFormulas, _
         LookAt:=xlWhole)
        If Not trouve Is Nothing Then
            ws.Cells(i, 1).Value = trouve.Offset(0, -1).Value 'valeur à coté
            
                   End If
        
    Next i
    Next
End Sub


EDIT : Ajout des balises de code
A voir également:

1 réponse

Réponse 1 / 1
eriiic Messages postés 24603 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 15 décembre 2024 7 256
6 oct. 2019 à 23:52
Bonjour,

indente proprement et correctement ton code, une erreur t'apparaitra au niveau des Next.
Ce qui ne veut pas dire qu'il n'y en a pas d'autres...
Un fichier de travail avec qq lignes de données motivera plus de helpers.
eric
1
Biloute
8 oct. 2019 à 12:31
merci pour votre réponse, je suis novice, je ne sais pas encore faire ce que vous demander.
0

Discussions similaires

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

Document initial créé par Pijaku

Cette fiche pratique est essentiellement tirée de l'aide Excel. L'exemple d'utilisation est un conseil basé sur ma propre petite expérience.

Introduction Méthode via Excel Code VBA correspondant Syntaxe Valeur renvoyée A savoir Exemple d'utilisation Recherche multiple FindNext - FindPrevious Une variante : Find_Next FindAll


Introduction La méthode find permet de trouver la première occurrence d'une information spécifique, dans un range. En clair, cette méthode permet d'aller chercher dans une feuille ou une partie d'une feuille Excel, une information, une donnée ou une partie de cette donnée. ...

0 réponse
"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

Bonjour,
Nous avons un problème dans la programmation de notre VBA. Voici notre programme:

Sub Bloucle1Bull()
Dim a, k As Integer

k = 2
Do While Worksheets("formulaire").Cells(2, 2) Worksheets("formulaire").Cells(k, 4)
k = k + 1
Loop


a = 2
Do While Worksheets("formulaire").Cells(k + 1, 4) Worksheets("BDD Call").Cells(a, 1) Or (Worksheets("BDD Call").Cells(a, 4) = (Worksheets("Bullspread").Cells(2, 3) + 100)) Or Worksheets("BDD Call").Cells(a, 7) Worksheets("bullspread").Cells(2, 7)
a = a + 1
Loop

''''''''''''on recopie la ligne du premier call trouvé pour le jour 2 ...

2 réponses
linux : find & grep
2009 -
Gavroche -

Bonjour,

il faut a la question suivante en utilisant grep et find :
affichier les noms de fichiers qui contient le mot "premier" a partir de votre dossier "home"

j'aii essayé avec : find ~ -name * -print -exec grep "premier"

mais j'arrive que a afficher les lignes ... comment faire pour afficher le nom de fichier ?

15 réponses
Erreur d'exécution 13 Incompatibilité de type
grace -
pijaku -

Bonjour,

Je ne comprend pas pourquoi j'ai une erreur d'execution 13 : incompatibilité de type car mon code marchait très bien avant...Je met en gras la ligne où il y a l'erreur


'affichage des feuilles concernées et vérification des champs Sheets("Recap").Visible = True If Cathégories = "" Then MsgBox "Sélectionnez une catégorie de défauts dans la liste déroulante" ElseIf défauts = "" Then MsgBox "Sélectionnez un défauts qualité dans la liste déroulante" Exit Sub End If Dim i As Integer Dim n As Integer n = 3 i = 2 MsgBox "Veuillez patienter pendant le traitement..." Application.Cursor = xlWait 'affiche le sablier 'Suppression des don...

5 réponses
ouverture d'un fichier excel à partir d'un code VBA
TraderAS -
pijaku -

Bonjour,

je souhaite ouvrir un fichier excel à partir du code suivant:

Sub Ouvrir()
Workbooks.Open Filename:="C:\Documents and Settings\Administrateur\Bureau\TRADING\Action.xlsx"
End Sub

sauf que lors de l'exécution j'ai cette erreur
==> Instruction incorrecte à l'extérieur d'une procédure et il met en bleu cette partie :
C:\Documents and Settings\Administrateur\Bureau\TRADING\Action.xlsx

merci

3 réponses