S
simon.bardoux
Guest
Bonjour,
après m'être cassé la tête sur les boucles etc, j'ai ravalé mon orgueil et
cherche à savoir comment répéter une macro que j'ai enregistrée manuellement et qui consiste à:
partir d'une cellul en contenant un login,
trouver son équivalent dans un autre classeur( qui possède une case vide 12 colonnes à droite et destinée à contenir une date),
revenir dans le premier classeur pour trouver la date correspondante au login et la coller dans la case vide..
En enregistrant le code donne ca :
Sub Macro1()
Application.CutCopyMode = False
Selection.Copy
Windows("eRoom_monitor.xls").Activate
Cells.Find(What:="L243927", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Range("S1479").Select
Windows("alluserSECOP.xls").Activate
Range("C2").Select
Application.CutCopyMode = False
Selection.Copy
Windows("eRoom_monitor.xls").Activate
ActiveSheet.Paste
Windows("alluserSECOP.xls").Activate
Range("B3").Select
End Sub
B2 étant la première case copiée, B3 la deuxième a partir de laquelle jaimerai faire la même opération.
Je n'arrive pas à stocker les valeurs de mes logins et identifiants, ce qui éviterai les aller/retour de copier/coller...
Si vous pouviez m'aider... merci d'avance
après m'être cassé la tête sur les boucles etc, j'ai ravalé mon orgueil et
cherche à savoir comment répéter une macro que j'ai enregistrée manuellement et qui consiste à:
partir d'une cellul en contenant un login,
trouver son équivalent dans un autre classeur( qui possède une case vide 12 colonnes à droite et destinée à contenir une date),
revenir dans le premier classeur pour trouver la date correspondante au login et la coller dans la case vide..
En enregistrant le code donne ca :
Sub Macro1()
Application.CutCopyMode = False
Selection.Copy
Windows("eRoom_monitor.xls").Activate
Cells.Find(What:="L243927", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Range("S1479").Select
Windows("alluserSECOP.xls").Activate
Range("C2").Select
Application.CutCopyMode = False
Selection.Copy
Windows("eRoom_monitor.xls").Activate
ActiveSheet.Paste
Windows("alluserSECOP.xls").Activate
Range("B3").Select
End Sub
B2 étant la première case copiée, B3 la deuxième a partir de laquelle jaimerai faire la même opération.
Je n'arrive pas à stocker les valeurs de mes logins et identifiants, ce qui éviterai les aller/retour de copier/coller...
Si vous pouviez m'aider... merci d'avance