Autres transparence

[jalou]

Bonjour à tous,
J'ai créé une feuille FORMULAIRE - Les renseignements saisis vont remplir un tableau LISTE DES MOUVEMENTS.
Le transfert de l'une a l'autre se fait au moyen d'une macro - Lors de l’exécution de cette macro la feuille LISTE DES MOUVEMENTS apparait furtivement dans la feuille FORMULAIRE. Pouvez-vous expliquer ?
Merci
Cordialement
Jalou

 

[Phil69970]

Bonjour @jalou

Ajoute au début de ta macro

Sub SaisieMouvement()

Application.ScreenUpdating = False '<== ligne a ajouter

Merci de ton retour

 

[Jacky67]

Bonjour à tous,
J'ai créé une feuille FORMULAIRE - Les renseignements saisis vont remplir un tableau LISTE DES MOUVEMENTS.
Le transfert de l'une a l'autre se fait au moyen d'une macro - Lors de l’exécution de cette macro la feuille LISTE DES MOUVEMENTS apparait furtivement dans la feuille FORMULAIRE. Pouvez-vous expliquer ?
Merci
Cordialement
Jalou

Bonjour à tous,
Il serait peut-être sage d'utiliser l'userform présent dans ce classeur pour la saisie des données.
Des select.....des select....et encore des select inutiles.

 

[jalou]

Bonjour à tous,
Il serait peut-être sage d'utiliser l'userform présent dans ce classeur pour la saisie des données.
Des select.....des select....et encore des select inutiles.

 

[jalou]

Bonjour à tous,
Il serait peut-être sage d'utiliser l'userform présent dans ce classeur pour la saisie des données.
Des select.....des select....et encore des select inutiles.

 

[jalou]

"userform présent dans ce classeur"
Il n'y a pas d'userform - c'est un faux que j'ai créé !
Expliquez-moi !

 

[jalou]

Merci a tous ...

 

[Jacky67]

"userform présent dans ce classeur"
Il n'y a pas d'userform - c'est un faux que j'ai créé !
Expliquez-moi !

Re...
Et ceci c'est quoi?

 

[sylvanu]

Bonjour tout le monde,
Un essai en PJ plus court avec :

Sub Copie()
Dim F As Worksheet, Cell, N As Integer
Application.ScreenUpdating = False
Set F = Sheets("Formulaire")
With Worksheets("Liste des mouvements")
    .Rows("3:3").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    .Range("A4:K4").Copy
    .Range("A3:K3").PasteSpecial xlPasteFormats
    .Rows("3:3").EntireRow.AutoFit
    Application.CutCopyMode = False
    Cell = Array("C7", "E7", "E10", "C13", "C16", "C10", "E13", "E16")
    For N = 0 To 7
        .Cells(3, N + 1) = F.Range(Cell(N))
        F.Range(Cell(N)) = "" ' Si on veut effacer les données après archivage
    Next N
End With
End Sub

@jacky, l'userform n'est pas utilisé.

 

[jalou]

Merci à tous

Bonjour tout le monde,
Un essai en PJ plus court avec :

Sub Copie()
Dim F As Worksheet, Cell, N As Integer
Application.ScreenUpdating = False
Set F = Sheets("Formulaire")
With Worksheets("Liste des mouvements")
    .Rows("3:3").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    .Range("A4:K4").Copy
    .Range("A3:K3").PasteSpecial xlPasteFormats
    .Rows("3:3").EntireRow.AutoFit
    Application.CutCopyMode = False
    Cell = Array("C7", "E7", "E10", "C13", "C16", "C10", "E13", "E16")
    For N = 0 To 7
        .Cells(3, N + 1) = F.Range(Cell(N))
        F.Range(Cell(N)) = "" ' Si on veut effacer les données après archivage
    Next N
End With
End Sub

@jacky, l'userform n'est pas utilisé.

Re...
Et ceci c'est quoi?
Regarde la pièce jointe 1213791

OUI tu as raison, j'ai "dessiné" un userform, mais je ne sais pas comment l'activer,

 

[sylvanu]

Avez vous testé la PJ du post #9 ?
On peut aussi utiliser votre méthode dans la feuille, c'est peut être plus simple pour vous.

 

[jalou]

Avez vous testé la PJ du post #9 ?
On peut aussi utiliser votre méthode dans la feuille, c'est peut être plus simple pour vous.

J'ai bien vu qu'il y avait du code - mais comment démarrer le Userform ? (Je suis novice) ...

 

[sylvanu]

Vous ne répondez jamais aux questions ?

Avez vous testé la PJ du post #9 ?

mais comment démarrer le Userform ?

Avec ceci :

Sub Essai()
    UserForm1.Show
End Sub

Mais votre userform est incomplet, il ne comporte ni Rapprochement, ni Observations.

 

[sylvanu]

Re,
un essai en PJ.
Les macros sont sans le module CommandeUserform et évidemment dans l'userform;
L'userform se lance en appuyant sur le bouton violet.
Evidemment perfectible mais ça initialise la machine ... 😅

 

[jalou]

Vous ne répondez jamais aux questions ?



Avec ceci :

Sub Essai()
    UserForm1.Show
End Sub

Mais votre userform est incomplet, il ne comporte ni Rapprochement, ni Observations.

Vous avez remarqué que je suis un novice ... de 75 ans - Je fais du mieux que je peux pour comprendre et utiliser le site de EXCELDOWNLOAD. Je me suis peut être perdu dans tout ces tableaux. Pardon ! - Cependant EXCEL semble passionnant et c'est pour ça que je mets mon nez partout !