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

balise [code]...

KangOl : Je ne comprends pas ce que tu veux

http://forum.presence-pc.com/prese [...] 1356-1.htm

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"  
 
[CODE]
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]

va lire l'aide http://forum.presence-pc.com/documentation/index.html