Macro ac conditions

[PepT]

bonjour
besoin d'un coup de main, je vous explique, jai 2 fichiers TRA.xls et Class.xls, pr chaque feuille ds Class.xls j'aimerai recupérer une valeur ds TRA.xls. jusque là tout va bien

Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
Dim toto As String
Workbooks.Open Filename:="D:\xxxx\yyyyy\TRA.xls"
ws.Activate
For i = 1 To Range("c1").End(xlDown).Row
If Cells(i, 3).Value = "TRA08F" Then
Windows("TRA.xls").Activate
Sheets("TRA08F").Select
'le pb est ici, jaimerai sélectionner la ligne j où ds la colonne B le "nom" = la celluleB2 du Class.xls. ds cette ligne selectionnée la cellule Cj est la copier ds Class.xls\feuilleactive
Selection.Copy
Windows("Class.xls").Activate
Cells(i, 5).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

End If
Next i
Next ws

Pourriez vous m'aider? svp

 

[skoobi]

Re : Macro ac conditions

Bonjour,

Quelle ligne J? tu veux dire i je suppose.
En tout cas, c'est pas très clair.
On comprendra mieux avec un fichier exemple.

 

[PepT]

Re : Macro ac conditions

voila 2 fichiers
jaimerai ds class.xls remplir la colonne resultat grace aux fichier TRAV.xls pour cela il faut que une des cellules de la colonne B (ds TRAV)soit egal a B2(ds Class.xls) et si c le cas copier la cellule resultat correspondante
est ce plus clair?

 

[PepT]

Re : Macro ac conditions

re
mon msg est il comprehensible?
c'est envisageable de faire ça ou pas?
help please

 

[skoobi]

Re : Macro ac conditions

Re,

oui mais on est pas tenu de répondre dans l'heure si tu vois ce que je veux dire.....

Voici un bout de code que je te laisse adapté à ton code actuel:

Set Wb_TRAV = Workbooks("TRAV.xls")
For n = 2 To [B65536].End(xlUp).Row
  With Wb_TRAV.Sheets("TRA08E")
    Set nom = .Columns("B").Find(Range("B" & n).Value, LookIn:=xlValues, lookat:=xlWhole)
    If Not nom Is Nothing Then
      Range("D" & n).Value = nom.Offset(0, 1).Value
    End If
  End With
Next

 

[PepT]

Re : Macro ac conditions

MERCI BCP
dsl pr le harcelement et encore merci

 

[PepT]

Re : Macro ac conditions

bonjour
ce code fonctionne, j'ai reussi a l'adapter a ce que je voulai mais je ne parviens pas a mettre la valeur ds la bonne cellule.

Set Wb_TRAV = Workbooks("TRAV.xls")
For n = 2 To [B65536].End(xlUp).Row
With Wb_TRAV.Sheets("TRA08E")
Set nom = .Columns("B").Find(Range("B" & n).Value, LookIn:=xlValues, lookat:=xlWhole)
If Not nom Is Nothing Then
Range("D" & n).Value = nom.Offset(0, 1).Value
End If
End With
Next
en fait la macro va chercher la valeur correspondante ms apres ds le fichier class.xls elle ne la colle pas au bonne endroit. elle la met ds la 1ere cellule, alors que le code est 2ou 3 cellules plus bas.
faut il rajouter une condition?

 

[skoobi]

Re : Macro ac conditions

Bonsoir,

ce code fonctionne, j'ai reussi a l'adapter a ce que je voulai mais je ne parviens pas a mettre la valeur ds la bonne cellule.

Qu'est-ce qui permet de trouver la bonne cellule car le résultat ce met sur la même ligne que le nom trouvé, c'est pas ce que tu voulais?

 

[PepT]

Re : Macro ac conditions

en fait ds class.xls il faut que le resultat ce mette ds la cellule en colonne c en face de la cellule en colonneB qui a le code TRA08E, et en fait le resultat ce met automatiquement en C1 au lieu d'aller a la cellule correspondante.

 

[skoobi]

Re : Macro ac conditions

Re bojour,

Avec le fichier on verra mieux le problème.

 

[PepT]

Re : Macro ac conditions

Bonjour,
je renvois le fichier, jai mis les cellules en janue pr mieux comprendre, j'essaye de faire aller la cellule jaune de TRAV ds celle de class,

 

[skoobi]

Re : Macro ac conditions

Re,

Euhhh aucunes cellules est jaune, dans auncun des fichier, arfff c'est Lundi matin .

 

[PepT]

Re : Macro ac conditions

oups sorry

alors on va le re-faire

 

[PepT]

Re : Macro ac conditions

le vrai boulet
jai pas envoyé les bons

 

[PepT]

Re : Macro ac conditions

re
c encore moi, jai une tout autre question jai cherché sur le forum ms je nai pas trouvé exactement l'ecriture, comment fait-on pour ouvrir un fichier.xls qui a son nom ds une cellule?
ex en B1= TOTO et du coup ouvrir la fichier TOTO.xls
en l'appelant par la cellule "b1"&.xls ds ce genre la?