Macro genre des pages a la suite en fonction nbre donnée

[ordaz75]

Bonsoir,

Je recherche une fonction ou macro qui me permettrais sur mon fichier de :

J'ai un fichier avec un premier onglet "base" avec les données des véhicules.

Dans un deuxième onglet nommé "attestation" il y a une attestation kilométrique dans laquelle je voudrais a chaque insertion de ligne dans mon premier onglet "base" que les informations du châssis et du kilométrage s'additionne a mon attestation sur mon 2eme onglet dans la cellule B9 et E24 correspondant.

Et surtout j'aimerais que lorsque j'additionne plusieurs lignes dans ma "base" que la macro génère automatiquement a la suite plusieurs attestation dans ce même onglet "attestation" en gardant le même modèle.

Le résultat final étant que j'aurais juste a saisir les infos des différents véhicule dans ma base puis mes attestations ce génèrent automatiquement et il ne resterait qu'a les imprimer.

Merci de votre aide
Ci joint fichier excel (je peux pas joindre l'original cause confidentialité)

 

[JCGL]

Re : Macro genre des pages a la suite en fonction nbre donnée

Bonjour à tous,

Bienvenue sur XLD

Peux-tu essayer ceci dans un module et l'associer à un bouton :

Option Explicit
Sub Création()
Dim Derl&, Lig&
Derl = Feuil1.Range("A" & Rows.Count).End(xlUp).Row
For Lig = 2 To Derl
Feuil2.Range("B9") = Feuil1.Cells(Lig, 2)
Feuil2.Range("E24") = Feuil1.Cells(Lig, 3)
Feuil2.Range("F9") = Feuil1.Cells(Lig, 1)
Feuil2.PrintPreview
'Feuil2.PrintOut
Next Lig
End Sub

A+ à tous

 

[ordaz75]

Re : Macro genre des pages a la suite en fonction nbre donnée

merci de votre réponse



cela ne fonctionne pas, j'ai un message d'erreur

 

[JCGL]

Re : Macro genre des pages a la suite en fonction nbre donnée

Bonjour à tous,

Ta feuille "Base" n'est surement pas la Feuil1 dans ton véritable fichier.

Peux-tu tester ton fichier déposé avec le code préconisé dans le message #2 ?

A+ à tous

 

[ordaz75]

Re : Macro genre des pages a la suite en fonction nbre donnée

En effet j'ai réussi avec le code préconisé. Mais lors du lancement de la macro j'aimerais que toute les attestations ce suivent a la suite dans la feuille "attestation" car quand je lance la macro il me propose directement l'impression en mode "aperçu avant impression"
Serait il possible ?

 

[JCGL]

Re : Macro genre des pages a la suite en fonction nbre donnée

Bonjour à tous,

Enlève l’apostrophe devant 'Feuil2.PrintOut et met le devant Feuil2.PrintPreview
A+ à tous

 

[ordaz75]

Re : Macro genre des pages a la suite en fonction nbre donnée

Merci c'est exactement sa.

Mais lorsque j'applique la macro sur mon véritable fichier je rencontre des soucis.
Dans mon onglet SAISIE j'ai crée un bouton et insérer la macro mais lorsque je veux la modifier pour qu'elle appel des cellules et non une ligne entière de donnée je n'y parviens pas.

Ci joint mon véritable fichier, dans mon onglet SAISIE j'ai mis les colonnes en rouge dont j'ai besoin pour générer l'onglet attestation comme hier.

Merci de votre aide

 

[JCGL]

Re : Macro genre des pages a la suite en fonction nbre donnée

Bonjour à tous,

Peux-tu essayer avec :

Option Explicit
Sub Création()
Dim Derl&, Lig&
Derl = Sheets("Saisie").Range("A" & Rows.Count).End(xlUp).Row
For Lig = 4 To Derl
Sheets("Attestation").Range("B9") = Sheets("Saisie").Cells(Lig, 4)
Sheets("Attestation").Range("E24") = Sheets("Saisie").Cells(Lig, 6)
Sheets("Attestation").Range("F9") = Sheets("Saisie").Cells(Lig, 3)
'Sheets("Attestation").PrintPreview
Sheets("Attestation").PrintOut
Next Lig
End Sub

A+ à tous

 

[ordaz75]

Re : Macro genre des pages a la suite en fonction nbre donnée

Au top ! 😀 c'est parfait pour mon attestation !

J'ai une autre problématique sur mon fichier:

Toute les informations que je rentre dans l'onglet SAISIE sont enregistrer dans mon onglet HISTORIQ. via le bouton sauvegarde qui ce trouve dans l'onglet SAISIE.

Suite à sa j'aimerais sur mes onglets DECLARE RESTITUE GC/PC avoir une sorte de fonction qui permettrais lorsque je rentre une immatriculation dans ces onglets tout les autres champs ce génère automatiquement grâce aux données dans l'onglet HISTORIQ.

 

[JCGL]

Re : Macro genre des pages a la suite en fonction nbre donnée

Bonjour à tous,

Peux-tu essayer en B12 er vers le bas et la droite :

=SI(Historiq.!A2="";"";Historiq.!A2)

A+ à tous

 

[ordaz75]

Re : Macro genre des pages a la suite en fonction nbre donnée

J'ai trouvé une solution via des recherches vertical. J'ai juste a renseigner la colonne "immatriculation" de mon onglet déclaré restitué.


Par contre je n'arrive plus a générer l'attestation via votre macro, je ne comprends pas pour quoi.
En pièce jointe le véritable fichier, attention j'ai masqué certains onglets

 

[ordaz75]

Re : Macro genre des pages a la suite en fonction nbre donnée

ci joint le fichier

 

[JCGL]

Re : Macro genre des pages a la suite en fonction nbre donnée

Bonjour à tous,

Ta feuille "Saisie" ne contient pas de données.

A+ à tous

 

[ordaz75]

Re : Macro genre des pages a la suite en fonction nbre donnée

Ah oui en effet j'ai repris une mauvaise sauvegarde.

Je sollicite encore vos connaissance, lorsque dans mon onglet SAISIE je rentre une immatriculation j'aimerais que la ligne soit souligner ou notifier quand cette immatriculation figure dans l'onglet VH-reconv ci joint