[EXCEL] Variable ligne dans une macro

[Cacasse]

Bonjour

Je voudrais modifier une macro afin de remplir automatiquement une réquisition de matériel. Les info à inscrire sont dans le Fichier "En_Cours.xls" et je dois les copier dans le fichier "Réquisition de matériel.xls"

Je prends les info toujours sur la même ligne (dans l'example 3078 pour les copier sur la ligne 10) mais dans différente colonne. Je voudrais ajouter un Inputbox au début pour choisir la ligne et le mettre en variable. Donc j'aurais juste a changer Range("B3078").select par Range("B"&ligne&).Select. J'ai essayer et sa me donne toujours des bug "91 variable objet ou variable de bloc With non définie"

===================================
Sub Remplir_Requisition

Windows("En_Cours.xls").Activate
Range("B3078").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Réquisition de matériel.xls").Activate
Range("B10").Select
ActiveSheet.Paste
Windows("En_Cours.xls").Activate
Range("H3078").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Réquisition de matériel.xls").Activate
Range("D10").Select
ActiveSheet.Paste

End Sub

 

[KangOl]

balise

...

 

[Cacasse]

KangOl : Je ne comprends pas ce que tu veux

 

[frodon1]

Vous devez être connecté pour voir les liens.

 

[Cacasse]

Bonjour

Je voudrais modifier une macro afin de remplir automatiquement une réquisition de matériel. Les info à inscrire sont dans le Fichier "En_Cours.xls" et je dois les copier dans le fichier "Réquisition de matériel.xls"

Je prends les info toujours sur la même ligne (dans l'example 3078 pour les copier sur la ligne 10) mais dans différente colonne. Je voudrais ajouter un Inputbox au début pour choisir la ligne et le mettre en variable. Donc j'aurais juste a changer Range("B3078").select par Range("B"&ligne& ).Select. J'ai essayer et sa me donne toujours des bug "91 variable objet ou variable de bloc With non définie"

Sub Remplir_Requisition
 
Windows("En_Cours.xls").Activate
    Range("B3078").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("Réquisition de matériel.xls").Activate
    Range("B10").Select
    ActiveSheet.Paste
    Windows("En_Cours.xls").Activate
    Range("H3078").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("Réquisition de matériel.xls").Activate
    Range("D10").Select
    ActiveSheet.Paste
 
End Sub
[/FINCODE]

 

[KangOl]

va lire l'aide

Vous devez être connecté pour voir les liens.