Macro ac conditions

PepT · 25 Avril 2008

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 · 25 Avril 2008

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 · 25 Avril 2008

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 · 25 Avril 2008

Re : Macro ac conditions

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

skoobi · 25 Avril 2008

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:

Code:

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 · 25 Avril 2008

Re : Macro ac conditions

MERCI BCP
dsl pr le harcelement et encore merci

PepT · 27 Avril 2008

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 · 27 Avril 2008

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 · 27 Avril 2008

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 · 28 Avril 2008

Re : Macro ac conditions

Re bojour,

Avec le fichier on verra mieux le problème.

PepT · 28 Avril 2008

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 · 28 Avril 2008

Re : Macro ac conditions

Re,

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

PepT · 28 Avril 2008

Re : Macro ac conditions

oups sorry

alors on va le re-faire

PepT · 28 Avril 2008

Re : Macro ac conditions

le vrai boulet
jai pas envoyé les bons

PepT · 28 Avril 2008

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?

Macro ac conditions

PepT

XLDnaute Nouveau

skoobi

XLDnaute Barbatruc

PepT

XLDnaute Nouveau

Pièces jointes

PepT

XLDnaute Nouveau

skoobi

XLDnaute Barbatruc

PepT

XLDnaute Nouveau

PepT

XLDnaute Nouveau

skoobi

XLDnaute Barbatruc

PepT

XLDnaute Nouveau

skoobi

XLDnaute Barbatruc

PepT

XLDnaute Nouveau

Pièces jointes

skoobi

XLDnaute Barbatruc

PepT

XLDnaute Nouveau

Pièces jointes

PepT

XLDnaute Nouveau

Pièces jointes

PepT

XLDnaute Nouveau

Discussions similaires