Est-il possible de créer des macros à la chaîne ? Résolu

Question

Bonjour, 

Bernard, 40 ans et toutes mes dents ...

Je planche en ce moment au boulot sur un fichier excel qui est sensé nous faciliter la vie. Je préfère vous expliquer le contexte ainsi la réponse sera (peut-être) plus aisé. Je contrôle des Ethylotests d'Anti-Démarrage sur des bus, cette vérification se passe chaque année pour chaque bus. Pour cela, je dois tenir un registre et aussi fournir pour chaque véhicule (et il y en a beaucoup beaucoup), un Rapport de Vérification (pour moi) et une Attestation de vérification (pour le client).

Au début, j'ai créé 2 fichiers excel, 1 pour le registre et 1 pour le rapport/attestation. Mais devant le nombre conséquent d'intervention, j'ai pensé automatisé un maximum cette saisie de nombreuses données.

Je bute aujourd'hui sur plusieurs problèmes, mais le plus dur à résoudre pour moi, c'est Comment reproduire une macro pour plusieurs lignes ?
En fait, dans mon registre, à la fin de chaque ligne, j'ai créé un bouton associé à une macro qui me copie toutes les infos que j'ai renseigné dans cette ligne du registre et dont j'ai besoin dans le rapport/attestation. Quand je clique sur le bouton, ça envoie tout dans une autre feuille du fichier excel avec la mise en page qui va bien.
Je veux donc créer plusieurs macros (une pour chaque ligne). Ou alors est-il possible de créer une macro qui détecterai "automatiquement" la dernière ligne renseignée dans le registre afin d'en copier les données vers le rapport/attestation.

J'espère être clair :p

Voilà ma macro que j'ai appelé Rec1,
Sub Rec1()
    Range("A9,B9,C9,D9,E9,F9,G9,H9,I9,K9,M9").Select
    Range("M9").Activate
    Selection.Copy
    Sheets("RAPPORT VP").Select
    Range("BN1").Select
    ActiveSheet.Paste
    Range("V13:AC13").Select
End Sub


Félicitations à ceux qui ont réussi à venir à bout de mon petit pavé :)

Merci d'avance.

Configuration: Windows 7 / Chrome 49.0.2623.87

cvasse · Answer

Bonjour Bernard, 

Il te suffit d'associer la même macro à tous tes boutons.

Par contre, il te faudra peut tester la ligne du bouton sur lequel tu as appuyé avec l'instruction 

'Récuperation de l'adresse du bouton
cellule = ActiveSheet.Shapes(Application.Caller).TopLeftCell.Address

Attention, l'adresse sera de la forme $H$6 pour H6.

A toi ensuite d'adapter ta macro et de remplacer les cellules en dur par rapport à la ligne sur laquelle tu étais.

Pour récupérer le numéro de ligne à partir de l'adresse, tu peux faire :


'Détermination de la ligne à modifier
        For i = 1 To Len(cellule)
            If IsNumeric(Mid(cellule, i, 1)) Then
                nombre = Val(Mid(cellule, i, Len(cellule) - i + 1))
                num_ligne = nombre
                i = Len(cellule)
            End If
        Next

J'espère que cela répond à ton problème.

michel_m · Answer

Bonjour

tu peux faire ca avec un seul bouton qui transfèrera tout en 1 fois

c'est bien les cellules  colonne A à M (sauf J et L) que tu veux recopier ?

combien de lignes concernées ( 500, 1000, 10000...) ?

Si je regarde ta macro, il ne s'agit pas de 2 fichiers mais de 2 feuilles du même classeur


au besoin
Mettre le classeur (ou estrait) sans données confidentielles en pièce jointe sur https://www.cjoint.com/et coller le raccourci  par un clic droit sur le lien proposé dans le message de réponse 
Dans l’attente

f894009 · Answer

Bonjour,

Ou alors est-il possible de créer une macro qui détecterai "automatiquement" la dernière ligne renseignée dans le registre afin d'en copier les données vers le rapport/attestation. 
 Oui et avec un seul bouton a mettre sur la feuille rapport/attestation, dans format, propriete, decocher: Imprimer l'objet

nom de feuille et premiere ligne d'info (ici derlig=2) a adapter

Sub Bouton1_Cliquer()
    With Worksheets("Registre")
        derlig = .Range("A" & Rows.Count).End(xlUp).Row
        If derlig < 2 Then derlig = 2
        TInfos = .Range("A" & derlig & ":M" & derlig)
    End With
    With Sheets("RAPPORT VP")
        .Range("BN1").Resize(, 13) = TInfos
        .Range("V13:AC13").Select
    End With
End Sub

SOMUM · Answer

Oh purée !! Vous êtes payés pour répondre aussi vite et avec autant de solutions :p ?

J'entrevoie de belles pistes dans vos soluces, mais pour info je vous envoi quand même le fichier. C'est un p'tit peu mon "oeuvre d'art", car je suis vraiment néophyte sur Excel.

http://www.cjoint.com/c/FCqm7pGY4qu

Encore merci !!

ps : j'ai oublié de préciser que mes camarades de travail sont des "b**nes" en informatique. Et comme ils font pleins d'erreurs de saisie, voilà le pourquoi du comment.

f894009 · Answer

Re,

Votre ficher modifie: https://www.cjoint.com/c/FCqoC7Db4jf

Maurice · Answer

Bonjour
voila déjà une modife de ta macro

Sub Rec1()
   Range("A9,B9,C9,D9,E9,F9,G9,H9,I9,K9,M9").Copy
      Sheets("RAPPORT VP").Range("BN1").PasteSpecial xlPasteValues
   Application.CutCopyMode = False
End Sub

A+
Maurice

JvDo · Answer

Bonjour à tous,

Une petite alerte sur le contenu des fichiers échangés. 
Il y a des noms, des immatriculations, des modèles d'attestation avec cachet...
Ça ne me semble pas raisonnable de laisser ce genre de fichier en ligne.

Cordialement

Maurice · Answer

Bonjour 
pour copier la dernier ligne

Sub RecLigne()
   L = Sheets("REGISTRE").Cells(Rows.Count, 2).End(xlUp).Row
      Sheets("REGISTRE").Range("A" & L & ":I" & L & ",K" & L & ",M" & L).Copy
   Range("BN1").PasteSpecial xlPasteValues
   
   With Application
      .CutCopyMode = False
      .Goto [A1], True
   End With
End Sub

A+
Maurice

SOMUM · Answer

Merci beaucoup à tous pour vos réponses :)

Est-il possible de créer des macros à la chaîne ?

9 réponses

Newsletters