Function RecupPartielle(typeAnalyse As String, formeAnalyse As Integer, varAnalyse As String, valAnalyse As String) Dim recupVar As String Dim recupVal As String recupVar = "" recupVal = "" Call Ouvre Windows("exemple.xls").Activate Range("A2").Select 'Boucle pour se positionner sur la première cellule vide Do While Not (IsEmpty(ActiveCell)) NbLigne = NbLigne + 1 Selection.Offset(1, 0).Select Loop ActiveCell.Value = formeAnalyse ActiveCell.Offset(0, 1).Range("A1").Select Call RecupNumLot ActiveCell.Interior.Color = RGB(255, 255, 255) 'Cellule suivante On récupère le type d'analyse ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = typeAnalyse 'Cellule suivante On récupère la variable d'analyse ActiveCell.Offset(0, 1).Range("A1").Select Windows("analyses.xls").Activate recupVar = Range(varAnalyse).Value Windows("exemple.xls").Activate ActiveCell.Value = recupVar ActiveCell.Offset(0, 1).Range("A1").Select Windows("analyses.xls").Activate recupVal = Range(valAnalyse).Value Windows("exemple.xls").Activate ActiveCell.Value = recupVal ActiveCell.Interior.Color = RGB(255, 255, 255) 'Sauvegarde et fermeture du fichier "exemple.xls" Windows("exemple.xls").Activate ActiveWorkbook.Save ActiveWorkbook.Close End Function
Function RecupPartielle(typeAnalyse As String, formeAnalyse As Integer, varAnalyse As String, valAnalyse As String) Call Ouvre Windows("exemple.xls").Activate Range("A2").Select 'Boucle pour se positionner sur la première cellule vide Do While Not (IsEmpty(ActiveCell)) NbLigne = NbLigne + 1 Selection.Offset(1, 0).Select Loop ActiveCell.Value = formeAnalyse ActiveCell.Offset(0, 1).Range("A1").Select Call RecupNumLot ActiveCell.Interior.Color = RGB(255, 255, 255) ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Value = typeA ActiveCell.Offset(0, 1).Range("A1").Select Windows("analyses.xls").Activate Range(varAnalyse).Select Selection.Copy ** Windows("exemple.xls").Activate ActiveSheet.Paste ** ActiveCell.Offset(0, 1).Range("A1").Select Windows("analyses.xls").Activate Range(valAnalyse).Select Selection.Copy ** Windows("exemple.xls").Activate ActiveSheet.Paste ** ActiveCell.Interior.Color = RGB(255, 255, 255) 'Sauvegarde et fermeture du fichier "exemple.xls" Windows("exemple.xls").Activate ActiveWorkbook.Save ActiveWorkbook.Close End Function
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionQue veux tu dire par désactiver la mise à jour de l'affichage pendant l'éxécution de ma macro
application.ScreenUpdating = falseau début de ton code permet de demander à ton programme de ne pas afficher ces "mouvements" pendant le traitement.
Derniere_Ligne = Activesheet.Cells.Find("*", Range("A1"), , , xlByRows, xlPrevious).Row 'pour les lignes
Derniere_Ligne = Activesheet.Cells.Find("*", Range("A1"), , , xlByRows, xlPrevious).Row 'pour les lignes