Bonjour à tout le forum !
Avant toute chose : très bonne année 2010 !
Alors voilà :
J´ai construit un devis de base utilisable par tout le monde dans l´entreprise de manière simple et j´essaie maintenant de créer un index mis à jour automatiquement de ces devis créés.
Mon index se compose ainsi :
Colonne A : numéro de devis (1 à 2000) – déjà remplis
Colonne B : date
Colonne C : Equipe
Colonne D : Description
J´aimerais qu´à chaque fois que je termine un devis sur un fichier source je puisse cliquer sur une macro qui prendrait directement les informations depuis le devis pour compléter la colonne B, C et D du numéro de devis correspondant.
J´ai déjà le bout de code pour l´ouverture du fichier index :
Workbooks.Open Filename:=" path ", local:=True
Et également celui pour attribuer un numéro unique de devis en allant chercher un numéro de devis libre :
Dim dn As Long
dn = CLng(Workbooks("fichier_index.xls").Sheets("Sheet1").Range("B65536").End(xlUp).Offset(1, -1))
Workbooks("fichier_devis.xls").ActiveSheet.Range("A1").Value = dn
Il me manque désormais un bout de code me permettant de :
- sélectionner une cellule (correspondant à la date) dans le devis et aller la copier dans la colonne B de l´index à coté de la valeur dn (colonne A).
- puis refaire l´opération avec une autre cellule pour l´équipe (colonne C) et la description (colonne D)
Je ne peux pas envoyer mon fichier original évidemment et ca me parait assez long et compliqué de faire un brouillon pour vous présenter alors j´espère que je suis assez clair.
Merci d´avance à tout le monde ! En espérant que ca serve à d´autres…
M1L1
Avant toute chose : très bonne année 2010 !
Alors voilà :
J´ai construit un devis de base utilisable par tout le monde dans l´entreprise de manière simple et j´essaie maintenant de créer un index mis à jour automatiquement de ces devis créés.
Mon index se compose ainsi :
Colonne A : numéro de devis (1 à 2000) – déjà remplis
Colonne B : date
Colonne C : Equipe
Colonne D : Description
J´aimerais qu´à chaque fois que je termine un devis sur un fichier source je puisse cliquer sur une macro qui prendrait directement les informations depuis le devis pour compléter la colonne B, C et D du numéro de devis correspondant.
J´ai déjà le bout de code pour l´ouverture du fichier index :
Workbooks.Open Filename:=" path ", local:=True
Et également celui pour attribuer un numéro unique de devis en allant chercher un numéro de devis libre :
Dim dn As Long
dn = CLng(Workbooks("fichier_index.xls").Sheets("Sheet1").Range("B65536").End(xlUp).Offset(1, -1))
Workbooks("fichier_devis.xls").ActiveSheet.Range("A1").Value = dn
Il me manque désormais un bout de code me permettant de :
- sélectionner une cellule (correspondant à la date) dans le devis et aller la copier dans la colonne B de l´index à coté de la valeur dn (colonne A).
- puis refaire l´opération avec une autre cellule pour l´équipe (colonne C) et la description (colonne D)
Je ne peux pas envoyer mon fichier original évidemment et ca me parait assez long et compliqué de faire un brouillon pour vous présenter alors j´espère que je suis assez clair.
Merci d´avance à tout le monde ! En espérant que ca serve à d´autres…
M1L1