macro sous excel : besoin d'aide Résolu/Fermé

Question

Bonjour,

Je souhaite réaliser une macro sous excel me permettant de récupérer
 des donnees renseignées par des opérateurs dans une fiche de travail pour le recuperer et 
remplir une feuille excel récapitulative de tous les bons de travaux créés par opés.
Problématique :
Les opé renseignent :

Une feuille avec nom de la machine a arrêter (choix dans une liste box /
 ils peuvent en arreter 4 maxi par bon de travail).
Pour ? : Nom
Consigné le : date de consignation
Numero de bon : numero 

Ces données doivent ensuite être recopiées a l'aide d'une macro dans une autre feuille excel ou se trouve toute les machines de l'usine dans une colonne
En face de chaque machine se trouve 4 colonnes a remplir : 4 colonnes avec les infos Pour ?, Numéro de bon,Consigné le, Heure (que l'ope vient de renseigner dans l'autre feuille).

LE but de la macro serait de recuperer les données : Pour ?, Numéro de bon,Consigné le, Heure et de les coller dans la ligne qui correspond a ou aux machines concernées.
Subtilitée : Il y a 7 groupes de 4 colonnes avec les infos :  Pour ?, Numéro de bon,Consigné le, Heure .
LA macro doit aller coller les infos la ou les cellules sont vides.

J'ai eu comme probleme :
Coller des données a une position données qui depend de la recherche faite juste avant.
Rêcherche de cellule vide pour coller les données.

Pourriez vous m'aider ?
Mrci beaucoup

michel_m · Answer

bonsoir,

1/ tu peux trouver la ligne par une fonction "FIND"

par ex: liste dans colonne A

lig=columns(1).find(nomdelamachine,range("A65536")).row

2/ 1°colonne vide dans la ligne "lig"

col=cells(lig,100).end(xltoleft).column

mais il faut que tu t'assures que la saisie des 4 renseignements à reporter soit effective

Michel

caribou38 · Answer

bonjour 

j'utilise cette macro pour rechercher une valeur dans un tableau et reporter la valeur de la cellule a coté dans une liste 
 que lorsque la macro sort du champ (A11,A16) elle envoie un message et ne plante pas comme elle fait actuellement
j'ai l'écran qui passe d'une feuille a l'autre pendant l'exécution de la macro comment l'éviter ou placer la commande

Application.ScreenUpdating = True

ou placer activesheet.protect et unprotect dans mes macro

merci de votre aide

With Sheets("bon consignation")


.Cells(28, 1) = tablo(1, 1)
.Cells(9, 2) = tablo(1, 2)
.Cells(5, 4) = Range("num_bon")
.Cells(7, 5) = tablo(1, 3)

Sheets("bon consignation").Activate
    Range("A11:A16").Select
    Selection.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
        ActiveCell = Cells(28, 1)
        Range("A12").Select
        
        
        'inscrit le local électrique dans le bon

    With Sheets("bon consignation")
    Columns("J:J").Select
    Selection.Find(What:=Range("A28"), After:=ActiveCell, LookIn:= _
        xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
        xlNext, MatchCase:=False, SearchFormat:=False).Activate
           ActiveCell.Offset(0, 1).Select
           
          ActiveCell.Copy
          
     Range("A12:A16").Select
    Selection.Find(What:=Range("A28"), After:=ActiveCell, LookIn:= _
        xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
        xlNext, MatchCase:=False, SearchFormat:=False).Activate
           ActiveCell.Offset(0, 2).Select
                    
    ActiveSheet.Paste
    
    
    Columns("J:J").Select
    Selection.Find(What:=Range("A28"), After:=ActiveCell, LookIn:= _
        xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
        xlNext, MatchCase:=False, SearchFormat:=False).Activate
           ActiveCell.Offset(0, 2).Select
           
          ActiveCell.Copy
          
     Range("A12:A16").Select
    Selection.Find(What:=Range("A28"), After:=ActiveCell, LookIn:= _
        xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
        xlNext, MatchCase:=False, SearchFormat:=False).Activate
           ActiveCell.Offset(0, 3).Select
           
           ActiveSheet.Paste
           
      Sheets("Liste moteur").Select
    Selection.AutoFilter Field:=20, Criteria1:="1"
   
   Sheets("feuille de saisie").Activate

End With

End With

End With

souris · Answer

Hello caribou,


Application.ScreenUpdating = False --> Au tout debut de la macro juste apres Sub recuperer ()
Application.ScreenUpdating = True -> A la fin de la macro juste avant End Sub

Pareil pour activesheet.unprotect  --> Au debut
activesheet.protect --> A la fin ..

Pour le reste, il faudrait que tu charges la dernieres version excel de ta macro, ca sera plus simple pour reproduire le plantage.

Bon courage .

Macro sous excel : besoin d'aide

3 réponses

Discussions similaires