Microsoft 365 Vba formulaire en bogage avec les ongles masqués

[Laeti023]

Bonjour tout le monde,

Je travaille actuellement sur un fichier de gestion de stock sur Excel, mon premier onglet est un formulaire de saisie d'entrées et sorties du matériel qui avec une macro copie les données sur un deuxième onglet et se reinitialise pour les prochaines saisies.

Dans un soucis de confidentialité, il n'y a que l'onglet formulaire qui doit être visible.

J'ai utilisé un module pour cacher les autres onglets en veryhidden, sauf que ma macro d'enregistrement de lignes entrées et sorties de stock ne fonctionne pas quand les onglets sont cachés.

Quand je clique sur enregistrement j'ai une erreur et la proposition de debogage.

Avez-vous une idée de comment dire à Excel de transférer les données dans l'onglet caché sans qu'il bloque ?

Nb:je ne peux pas envoyer ce fichier mais si besoin j'en ferai un exemple ce week end.

D'avance merci si vous avez des idées parce que je sèche 😅..

Bonne journée !

 

[TooFatBoy]

Bonjour,

J'ai utilisé un module pour cacher les autres onglets en veryhidden, sauf que ma macro d'enregistrement de lignes entrées et sorties de stock ne fonctionne pas quand les onglets sont cachés.

Quand je clique sur enregistrement j'ai une erreur et la proposition de debogage.

À défaut de poster le classeur, tu peux commencer par poster ladite macro. 😉

Pense à entourer le code VBA de ta macro par la balise [ code=vb ] et [ /code ] pour qu'il soit plus lisible sur le forum.

 

[fanfan38]

Bonjour et bienvenue sur le forum
Tu peux aussi utiliser un userform de la taille de l'écran...

A+ François

 

[Laeti023]

Bonjour,


À défaut de poster le classeur, tu peux commencer par poster ladite macro. 😉

Pense à entourer le code VBA de ta macro par la balise [ code=vb ] et [ /code ] pour qu'il soit plus lisible sur le forum.

J'ai récupéré mes données :

Sub Import_Saisie()
'
' Import_Saisie Macro
'

'
    Range("B5:J14").Select
    Selection.Copy
    Sheets("EntréesSorties").Select
    Application.Goto Reference:="R1048576C1"
    Selection.End(xlUp).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Saisie").Select
    Application.CutCopyMode = False
    Range("B5").Select
End Sub

Celui-ci c'est pour l'enregistrement des entrées et sorties.

 

[Laeti023]

Bonjour et bienvenue sur le forum
Tu peux aussi utiliser un userform de la taille de l'écran...

A+ François

Merci 🙂
Je ne sais absolument pas comment utiliser et comment cela fonctionne, tu penses que ce serait plus judicieux ?

 

[TooFatBoy]

Celui-ci c'est pour l'enregistrement des entrées et sorties.

Et ça plante sur quelle ligne ? Sur le Select ?

 

[Laeti023]

Et ça plante sur quelle ligne ?

Sur la sélection de la feuille :

Sheets("EntréesSorties").Select

 

[TooFatBoy]

Sur la sélection de la feuille :

Sheets("EntréesSorties").Select

Bonne nouvelle : apparemment c'est normal, puisque la feuille est "très cachée".

 

[Laeti023]

Bonne nouvelle : apparemment c'est norma, puisque la feuille est "très cachée".

C'est ce que je me suis dit effectivement 🙂
Est-ce que j'ai une solution pour que ma macro fonctionne en ayant des onglets très cachés ?
Sinon un clic droit sur l'onglet et tout le monde à accès à tout, il y a peut être une autre solution ??
Merci en tout cas de te pencher sur mon problème 🙂

 

[TooFatBoy]

Essaye ceci :

Sub Import_Saisie()
' Import_Saisie Macro
Dim DerLig As Long

    Sheets("Saisie").Range("B5:J14").Copy
    With Sheets("EntréesSorties")
        DerLig = .Cells(.Rows.Count, 1).End(xlUp).Row
        .Cells(DerLig + 1, 1).PasteSpecial Paste:=xlPasteValues
    End With
    Application.CutCopyMode = False

End Sub

 

[Laeti023]

Essaye ceci :

Sub Import_Saisie()
' Import_Saisie Macro
Dim DerLig As Long

    Range("B5:J14").Copy
    With Sheets("EntréesSorties")
        DerLig = .Range("A" & .Rows.End(xlUp).Row).Row
        .Cells(DerLig + 1, 1).PasteSpecial Paste:=xlPasteValues
    End With
    Application.CutCopyMode = False

End Sub

Ca m'a enlevé le bug mais la copie ne se fait pas

 

[TooFatBoy]

Ca m'a enlevé le bug mais la copie ne se fait pas

Ben si.

Mais pour être sûr de la source, met plutôt ça :

Sheets("Saisie").Range("B5:J14").Copy

 

[Laeti023]

Ben si.

Mais pour être sûr de la source, met plutôt ça :

Sheets("Saisie").Range("B5:J14").Copy

Ca copie oui ca on est ok et je n'ai plus de message d'erreur, mais quand je revalide une saisie ça écrase ce que j'ai validé avant au lieu d'ajouter les lignes

 

[TooFatBoy]

Tu as raison : j'ai dû complètement me planter sur le calcul de la dernière ligne. Désolé 🙁

 

[fanfan38]

Re,
Il faudrait que je connaisse les textbox et combobox nécessaire à mettre dans le formulaire
Textbox =saisie de texte ou de nombre, combobox pour choisir des réponses
Ci joint un userform qui prend tout l'ecran

A+ François