Voici la macro que je d=E9veloppe actuellement. Il semble qu'il y ait un
probl=E8me sur ma variable appli, lorsque je me sers de la fonction
.find.
Merci d'avance =E0 tous ceux qui me donneront de pr=E9cieux indices voire
une solution au probl=E8me que je rencontre.
Le script:
Sub moaappli()
'Pour chaque ligne qui a une colonne pr=E9cise qui prend la valeur appli
For Each c In Range("X1:X2909")
If c.Value =3D "appli" Then
'on r=E9cup=E8re le nom de l'appli en question sur la m=EAme ligne
appli =3D c.Offset(rowOffset:=3D0, columnOffset:=3D-5).Value
'On ouvre la table de correspondance appli-moa
Workbooks.Open Filename:=3D"monfichier.xls"
'On va chercher la MOA qui correspond =E0 l'appli en question
'on recherche d'abord l'appli concern=E9e dans la Table de
correspondance appli-moa
Sheets("Liste d=E9taill=E9e").Select
moa =3D Cells.Find(appli, Lookat:=3DxlWhole).Offset(rowOffset:=3D0,
columnOffset:=3D1).Activate
'Ensuite, on prend la MOA correspondante =E0 cette appli
moaadresse =3D ActiveCell.Offset(rowOffset:=3D0, columnOffset:=3D1).Address
moa =3D Range(moaadresse).Value
'On ferme la tc car plus besoin
ActiveWindow.Close
'On met le nom de la moa dans la bonne cellule
Workbook =3D "monfichier2.xls"
Sheets("Export controle gestion").c.Offset(rowOffset:=3D0,
columnOffset:=3D1).Activate
ActiveCell.Value =3D moa
AMHA, tu ne peut pas definir une valeur en activant le cellule :/ Enleve le .Activate de la fin de la ligne Remplace : .Offset(rowOffset:=0, columnOffset:=1) par Offset(0, 1) C'est la même chose, mais plus court à écrire ;-)
AMHA, tu ne peut pas definir une valeur en activant le cellule :/
Enleve le .Activate de la fin de la ligne
Remplace :
.Offset(rowOffset:=0, columnOffset:=1)
par
Offset(0, 1)
C'est la même chose, mais plus court à écrire ;-)
AMHA, tu ne peut pas definir une valeur en activant le cellule :/ Enleve le .Activate de la fin de la ligne Remplace : .Offset(rowOffset:=0, columnOffset:=1) par Offset(0, 1) C'est la même chose, mais plus court à écrire ;-)
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
remige_paralogique
Merci Jean-Luc pour tes bons conseils que je vais appliquer au plus vite.
AMHA, tu ne peut pas definir une valeur en activant le cellule :/ Enleve le .Activate de la fin de la ligne Remplace : .Offset(rowOffset:=0, columnOffset:=1) par Offset(0, 1) C'est la même chose, mais plus court à écrire ;-)
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
Merci Jean-Luc pour tes bons conseils que je vais appliquer au plus
vite.
AMHA, tu ne peut pas definir une valeur en activant le cellule :/
Enleve le .Activate de la fin de la ligne
Remplace :
.Offset(rowOffset:=0, columnOffset:=1)
par
Offset(0, 1)
C'est la même chose, mais plus court à écrire ;-)
AMHA, tu ne peut pas definir une valeur en activant le cellule :/ Enleve le .Activate de la fin de la ligne Remplace : .Offset(rowOffset:=0, columnOffset:=1) par Offset(0, 1) C'est la même chose, mais plus court à écrire ;-)
