G
G
Guest
Salut a tous,
j'ai un petit Pb avec les Row sous Excel.
Je suis en trainde faire une macro ous excel, voila comment cela se presente:
For Each Row In Selection
Set MonModele = Workbooks.Open(Filename:="G:\test\modele\xv.xlt")
For Each Item In Row
Item.Value = Row
MonClasseur.ActiveSheet.Activate
Item.Select
Set Name_Poste = Selection.Offset(0, 0)
Set Name_Appareil = Selection.Offset(0, 1)
Set Shema_TI = Selection.Offset(0, 2)
MonModele.ActiveSheet.Activate
Range("Name_Poste").Value = Name_Poste
Range("Name_Appareil").Value = Name_Appareil
Range("Shema_TI").Value = Shema_TI
Next Item
Application.Run "Save", Name_Poste
Next Row
la macro save marche nickel. Le Pb C que si je selectionne un tableau 3x3
Cette macro va me consideré comme ligne :
A1:C1
A2:C2
A3:C3
et C ce qui suis le Pb:
B1:C1
B2:C2
B3:C3
C1
C2
C3
je ne souhaite garder que les lignes completes
Quelqu'un aurait il une solution (un argument a rajouté a Row du style CompleteRow par Ex....)
Merci à tous
j'ai un petit Pb avec les Row sous Excel.
Je suis en trainde faire une macro ous excel, voila comment cela se presente:
For Each Row In Selection
Set MonModele = Workbooks.Open(Filename:="G:\test\modele\xv.xlt")
For Each Item In Row
Item.Value = Row
MonClasseur.ActiveSheet.Activate
Item.Select
Set Name_Poste = Selection.Offset(0, 0)
Set Name_Appareil = Selection.Offset(0, 1)
Set Shema_TI = Selection.Offset(0, 2)
MonModele.ActiveSheet.Activate
Range("Name_Poste").Value = Name_Poste
Range("Name_Appareil").Value = Name_Appareil
Range("Shema_TI").Value = Shema_TI
Next Item
Application.Run "Save", Name_Poste
Next Row
la macro save marche nickel. Le Pb C que si je selectionne un tableau 3x3
Cette macro va me consideré comme ligne :
A1:C1
A2:C2
A3:C3
et C ce qui suis le Pb:
B1:C1
B2:C2
B3:C3
C1
C2
C3
je ne souhaite garder que les lignes completes
Quelqu'un aurait il une solution (un argument a rajouté a Row du style CompleteRow par Ex....)
Merci à tous