Discussion :

[idir.17]

Bonjour, j'essaie en gros de faire:
Classeur A Feuille 1:.................Classeur B Feuille 1:
A............. B...........................A.............B
Dubois.......12.......................Dubois
Dupont......14.......................Duboi
Durant.......16.......................Dupont
etc......................................Durand
...........................................Durant
J'essaie donc de prendre la premiere cellule(A) du classeur A de la comparer avec les cellules (A) du classeur B et une fois qu'il a trouvé le nom correspondant de recopier la cellule B du classeur A sur la cellule B du classeur B correspondant. Alors je suis dsl j ai essayer de faire au plus clair.Voila ce que j ai mis et il ne veut pas le faire:

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
Dim Cel As Range
Set Cel = Workbooks(Nom_Classeur_VAB).Worksheets("Feuil1").Range("B1")
Dim Cel2 As Range, Compteur2 As Integer
Set Cel2 = Workbooks(Nom_Classeur_VarPN).Worksheets(Nom_Feuille_VarPN).Range("B1")
Compteur2 = 1
 
For i = 3 To 206
Do Until IsEmpty(Cel2.Offset(Compteur2))
    If Mid(Cel2.Offset(Compteur2), 1, 13) Like "Mid(Cel.Offset(i), 1, 13)" Then
        'Copier la valeur de la cellule
        Cel.Offset(i, 1).Copy (Cel2.Offset(Compteur2, 21))
        Exit Do
    End If
    Compteur2 = Compteur2 + 1
Loop
Next

[doringen]

euh, sans être obligé d´utiliser un code VBA, tu peux le faire "en dur" dans la feuille B et utiliser la formule "VLOOKUP" qui donne exactement le résultat souhaité...
Sinon, j´utilise souvent une combinaison "INDEX(...;EQUIV(...), qui fait le m^me boulot mais est plus flexible d´utilisation

[helios77]

ton code ne réagit pas comme tu veux ?
Il plante ??
Il compile pas ???

Essaie cette solution

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
 
dim i,j as integer
dim test as boolean
i=1
j=1
While workbooks(ClasseurA).Sheets(Feuil1).Cells(i,1).value <> ""
  test=true
   while test
       if(workbooks(ClasseurA).Sheets(Feuil1).Cells(i,1).value = workbooks(ClasseurB).Sheets(Feuil1).Cells(j,1).value or workbooks(Classeurb).Sheets(Feuil1).Cells(i,1).value == "") Then 
                test = false
        else
               j=j+1
       end if
   wend
if(workbooks(ClasseurA).Sheets(Feuil1).Cells(i,1).value = workbooks(ClasseurB).Sheets(Feuil1).Cells(j,1).value then workbooks(ClasseurB).Sheets(Feuil1).Cells(j,2).value = workbooks(ClasseurA).Sheets(Feuil1).Cells(i,2).value 
j=j+1
    i=i+1
Wend

je suppose

[idir.17]

Il compile.

Il ne comprend pas la ligne:
If Mid(Cel2.Offset(Compteur2), 1, 13) Like "Mid(Cel.Offset(i), 1, 13)"

Je n'arrive pas a lui faire comprendre de comparer la chaine des caracteres des deux cellules et si elle est la meme la condition if est verifiée

[illight]

T'a essayé de faire un instr avec ?

Regarde dans l'aide pour voir comment elle fonctionne..

Le deuxième Mid, tu as vraiment des guillemets ?

[idir.17]

T'a essayé de faire un instr avec ?

Regarde dans l'aide pour voir comment elle fonctionne..

Le deuxième Mid, tu as vraiment des guillemets ?

Je ne veux pas utiliser Instr car cela m obligerait a determiner la chaine de caractere voulue. Or je ne le souhaite pas je veux qu il le fasse pour toutes les chaines de caractere presentes sur la colonne.

Et oui c bien des guillemets. Qu ils y soient ou pas ca ne change rien.

Merci en tout cas mais c NON RESOLU

[illight]

Merci en tout cas mais c NON RESOLU

J'ai presque pas envie de répondre quand je vois ça..


Essaye d'écrire ça :

Code :

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

1
2
 
if instr(1,Mid(Cel2.Offset(Compteur2), 1, 13),Mid(Cel.Offset(i), 1, 13),vbtextcompare)<> 0 then

[idir.17]

Le probleme HELIOS est que la cellule n'affiche aucune valeur c'est une chaine de caractère et donc j ai essayer tes lignes elle me mette un message d'erreur.