Se connecter avec
S'enregistrer | Connectez-vous

[EXCEL] Variable ligne dans une macro

Dernière réponse : dans Programmation

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

Autres pages sur : excel variable ligne macro

Lassé par la pub ? Créez un compte

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]
Lassé par la pub ? Créez un compte