find en vba aide

[BIGOKOU]

bonjour je voudrais ecrire un code vba avec find :

cela me rechercherais la valeur dans un premier onglet en colonne a, sur l onglet numero deux et tout cela en boucle !!!

 

[VDAVID]

Re : find en vba aide

Bonjour BIGOKOU,

Pas très clair ta demande,

Tu peux tester:

Sub chercher()

Dim Valeur As Variant
Dim c As Range
Dim i As Integer

Valeur = "Lol" 'Valeur recherchée

    For i = 1 To Sheets.Count
    
        With Sheets(i).Columns("A:A").Cells
            
            Set c = .Find(Valeur, , xlValues, xlWhole)
            
                If Not c Is Nothing Then
                    
                    MsgBox Valeur & " trouvée en cellule " & c.Address & " de la feuille " & Sheets(i).Name
                    
                End If
                
        End With
        
    Next i
            
        
End Sub


Sub cherchertout()

Dim Valeur As Variant
Dim c As Range
Dim i As Integer

Valeur = "Lol" 'Valeur recherchée

    For i = 1 To Sheets.Count
    
        With Sheets(i).Columns("A:A").Cells
            
            Set c = .Find(Valeur, , xlValues, xlWhole)
            
                If Not c Is Nothing Then
                    firstAddress = c.Address
            
                    Do
                    MsgBox Valeur & " trouvée en cellule " & c.Address & " de la feuille " & Sheets(i).Name
                    Set c = .FindNext(c)
                    Loop While Not c Is Nothing And c.Address <> firstAddress

                End If
                
        End With
        
    Next i
            
        
End Sub

A insérer dans un module

La première renvoie la première valeur trouvée en colonne A de chaque onglet.
La deuxième (cherchertout) renvoie toutes les valeurs trouvées en colonne "A" pour chaque onglet

 

[BIGOKOU]

Re : find en vba aide

merci je te joins un fichier qui explique un peu plus ma demande désolé pas facile d expliquer mes valeur dans l onglet global en colonne a je voudrais les comparers avec les valeurs de l onglet 2 fev2012 et mettre en colonne n si il trouve la meme valeur mettre ok s il trouve rien ne rien mettre !!