Besoin d'aide

[picronte]

Besoin d'aide problème VBA

Bonjour le fil
je voudrais créer un fichier mais je ne connais pas grand chose en macro.
J'aimerai que dans le masque de saisie, quand je clic sur le bouton "feuille suivante" les données se mettent automatiquement dans l'onglet RECAP et qu'en même temps sa efface les données du masque de saisie afin de remettre d'autre données
merci de votre aide
Cdlt
picronte

 

[13GIBE59]

Re : Besoin d'aide

Bonjour Picronte.

Un peu de mal pour t'aider, car les données présentes dans ton masque de saisie ne correspondent pas toutes à celles de l'onglet RECAP.

Dans le fichier joint, le code est bon pour la date, c'est à dire la cellule D6 du masque de saisie, qui va dans la colonne B de RECAP.

Inspire toi du code...

A +

 

[picronte]

Re : Besoin d'aide problème VBA

bonsoir 13GIBE59
merci d'avoir répondu aussi vite
je doit avoir un erreur dans la macro, les cellules qui n'a pas de formule ça fonctionne, mais pas les autres.
peux tu m'aider
merci

 

[13GIBE59]

Re : Besoin d'aide

Bonjour Picronte.

J'ai regardé en vitesse, sans tout comprendre. Mais les erreurs dans tes formules viennent du fait que tu divises un nombre par un intitulé de colonne.

Par ailleurs, dans ta macro, un seul "Application.ScreenUpdating = False" suffit au début du code.

Cette ligne de code sert à éviter que l'écran "bouge" quand Excel passe d'un onglet à l'autre.

 

[picronte]

Re : Besoin d'aide

bonjour
je ne comprend pas pourquoi il me transfert les formules et les bandes déroulantes dans l'onglet recap aux lieux des données des cellules
pouvez-vous m'aider et m'expliquer
Cdlt

Picronte

 

[13GIBE59]

Re : Besoin d'aide

Quand tu copie le contenu d'une cellule vers une autre cellule, en vba ou pas, Excel copie la formule et pas le résultat ! En plus, il l'"adapte" au numéro de ligne et à la colonne.

Ex :
Range("E8").Select
ActiveCell.Copy
Sheets("RECAP").Select
Range("H65536").End(xlUp).Offset(1, 0).Select
En E8 (onglet masque de saisie) il y a = D7+D8 (somme de la colonne qui est à sa gauche (D est à gauche de E)

Excel copie ça dans la colonne H et le transforme
en somme de la colonne G (la colonne qui est à sa gauche).
D'où l'erreur.

Utilise l'enregistreur de macro pour "écrire" que dans la colonne H, il doit placer : =masquedesaisie!D7+D8.

Continue, tu es sur la bonne voie.

A plus.

 

[picronte]

Re : Besoin d'aide

j'ai bien compris mais je ne sais pas ou écrire =masquedesaisie!d7+d8 dans la macro. si j'ai bien compris l'écriture,c'est choisir dans l'onglet masque de saisie la cellule E8 et la copie dans l'onglet recap dans la colonne H
j'ai essayé beaucoup de solution mais ca ne fonctionne pas
je bloque peux tu m'aider plus
Cdlt
picronte

Sheets("masque de saisie").Select
Range("E8").Select
ActiveCell.Copy
Sheets("RECAP").Select
Range("H65536").End(xlUp).Offset(1, 0).Select
ActiveCell.PasteSpecial

 

[Staple1600]

Re : Besoin d'aide

Bonsoir à tous


Voici une façon de faire

Sub a()
Dim t
With Sheets("masque de saisie")
    t = .Range("D4").Resize(8)
    Sheets("RECAP").[A65536].End(xlUp)(2).Resize(, 8) = Application.Transpose(t)
    .[D4:D12].ClearContents
End With
End Sub

Mais avec cette macro, il faut que tes entêtes soient ainsi:

 

[picronte]

Re : Besoin d'aide

Bonsoir staple1600
j'ai essayé ta macro mais sa ne copie pas tous
je te joint en pièce jointe le dernier fichier
Merci de ton aide

picronte

 

[Staple1600]

Re : Besoin d'aide

Re

Tu as vu ma copie d'écran 😕😕 (dans mon précédent message)

Tu n'as pas changé les entêtes comme je te l'indiquais dans mon précédent message.

La macro en l'état ne copie que la plage D4😀11.

 

[picronte]

Re : Besoin d'aide

Bonjour Spale1600
j'avais bien compris, mais dans ta macro il ne copie pas E4 (noms du chauffeur)
E8 (km total); E9 (conso réelle); E10 (conso ordinateur deux tour).
j'ai rajouté des macros pour qu'il copie les cellules données ci dessus. mais sa ne fonctionne pas
Donc effectivement ta macro est plus court en écriture mais j'ai le même résultat
Ci joint le fichier corrigé
Cdlt

Picronte