Discussion :

[melodyyy]

comment fait on pour utiliser la méthode FIND ? du style trouver un code dans une feuille A, qu'on doit retrouver dans la feuille B, si on trouve pas on doit écrire le code de B de la ligne correspondante dans un fichier C...

Pour ça que je voudrais find, a moins que vous ayez d'autres idées...

[cafeine]

Bonjour aussi,

si certains ont compris ta question, bravo !

comment fait on pour utiliser la méthode FIND ? du style trouver un code dans une feuille A, qu'on doit retrouver dans la feuille B, si on trouve pas on doit écrire le code de B de la ligne correspondante dans un fichier C...

Pour ça que je voudrais find, a moins que vous ayez d'autres idées...

[megapacman]

salut,

je dirai parcours ta feuille A et prends le 1er code ensuite parcours ta feuille B
et si feuilleA.cellule.value=feuilleB.cellule.value alors il te retourne vrai...

en fin voila l'idee generale

[megapacman]

ou alors dans visual basic editor tu vas dans l'aide et tu tapes find

alors tu as ca qui apparait :

Find méthode
Recherche la chaîne spécifiée dans le module actif.

Syntaxe

object.Find(target, startline, startcol, endline, endcol [,*wholeword] [,*matchcase] [, patternsearch]) As Boolean

La syntaxe de la méthode Find comprend les éléments suivants*:

Élément Description
object Expression d'objet qui prend la valeur d'un objet figurant dans la rubrique Application.
target Variable de type String contenant le texte ou le modèle à trouver.
startline Variable de type Long spécifiant la ligne à laquelle vous souhaitez commencer la recherche*; elle prendra la valeur de la ligne de l'occurrence, le cas échéant.
startcol Variable de type Long spécifiant la colonne à laquelle vous souhaitez commencer la recherche*; elle prendra la valeur de la colonne contenant l'occurrence, le cas échéant.
endline Variable de type Long spécifiant la dernière ligne de l'occurrence, le cas échéant.
endcol Variable de type Long spécifiant la dernière colonne de l'occurrence, le cas échéant.
wholeword Facultatif. Valeur de type Boolean indiquant s'il faut limiter la recherche aux mots complets. Si cette valeur est True, seuls les mots complets seront trouvés. La valeur False est prise par défaut.
matchcase Facultatif. Valeur de type Boolean indiquant s'il faut différencier les majuscules des minuscules. Si cette valeur est True, la recherche respecte la casse. La valeur False est prise par défaut.
patternsearch Facultatif. Valeur Boolean indiquant si la chaîne cible est un modèle d'expression régulier. Si cette valeur est True, la chaîne cible est un modèle d'expression régulier. False est la valeur par défaut.
Remarques

Find renvoie la valeur True si une correspondance est trouvée, False dans le cas contraire.
Les arguments matchcase et patternmatch s'excluent mutuellement. Si les deux arguments renvoient une valeur True, une erreur se produit.
Le contenu de la boîte de dialogue Rechercher n'est pas modifié par la méthode Find.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
For Each c In [A1:C5]
    If c.Font.Name Like "Cour*" Then
        c.Font.Name = "Times New Roman"
    End If
Next

Example
This example finds all cells in the range A1:A500 on worksheet one that contain the value 2 and changes it to 5.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
With Worksheets(1).Range("a1:a500")
    Set c = .Find(2, lookin:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            c.Value = 5
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With

[melodyyy]

ouah ! je vais essayer de m'en sortir mais en fait c'est juste comparer fichier A et fichier B, et je dois retrouver les même valeurs sinon ben dans C je marque la valeur de la colonne A et 0 dans les autres

[cafeine]

Si tes "codes" à retrouver sont en colonne A ...
Tu peux mettre ça en B1 et recopier vers le bas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SI(NB.SI(Feuil1!A:A; Feuil2!A1)>0; "C"; 0)

ouah ! je vais essayer de m'en sortir mais en fait c'est juste comparer fichier A et fichier B, et je dois retrouver les même valeurs sinon ben dans C je marque la valeur de la colonne A et 0 dans les autres

[melodyyy]

Mon problème si tu veux c'est qu'en A2 je peux avoir 12345 dans le fichier A et B la ok, et en A3 avoir 12874 dans le fichier A et B tu vois ce que je veux dire ?
A chaque ligne j'ai un code différent...et la je te met des chiffre en réalité c'est des chiffres mélangé avec des lettres....

[cafeine]

Non ...

la formule que je t'ai donnée permet juste de savoir si le code existe dans la colonne A de l'autre feuille ...

Mon problème si tu veux c'est qu'en A2 je peux avoir 12345 dans le fichier A et B la ok, et en A3 avoir 12874 dans le fichier A et B tu vois ce que je veux dire ?
A chaque ligne j'ai un code différent...et la je te met des chiffre en réalité c'est des chiffres mélangé avec des lettres....

[tazmania]

Voila ce que j'aurais fait, par contre je n'ai pas testé ce bout de code. Il est sans doute à modifier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Dim i,j as integer
dim flag as boolean
 
i = 1
j = 1 
flag = false
 
'Tant que la celulle n'est pas vide, je continue
Do While (Range("A" & i).Value <> "")
 
        Call Navigation_fichier("fichier B")
        Set c = Worksheets("feuil1").Cells.Find(Range("A" & i).Value )
 
        Call Navigation_fichier("fichier C")
 
        'Si la la valeur existe, je la mets dans le fichier C
        If Not c Is Nothing Then
            With c
                  Range("A" & j).Value = Range("A" & i).Value
 
                'Je mets mon flag à true
                flag = true
            End With
        End If
        if flag = false then
             Range("A" & j).Value = 0
        end if
 
       'J'incrémente j et i pour les prochaines valeurs
       j = j + 1
       i = i + 1
 
       'Je retourne sur le bon fichier
      Call Navigation_fichier("fichier A")
Loop
 
 
'Procédure Navigation_fichier
Sub Navigation_fichier(fichier)
    Windows(fichier).Activate
End Sub