Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
L

Laeti023

XLDnaute Nouveau
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 !
 
Solution
Alors essaye ceci :
VB: 
Sub Import_Saisie()
' Import_Saisie Macro
Dim DerLig As Long

    With Sheets("Saisie")
        DerLig = .Cells(.Rows.Count, 2).End(xlUp).Row
        .Range("B5:J" & DerLig).Copy
    End With

    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

Il faudrait peaufiner le code, au cas où la 1re cellule de la dernière ligne saisie soit vide.
Trier par date Trier par votes
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.
 
Dernière édition:
Vote positif 0 Vote négatif
TooFatBoy à dit:
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.
Cliquez pour agrandir...

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

VB: 
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.
 
Vote positif 0 Vote négatif
TooFatBoy à dit:
Bonne nouvelle : apparemment c'est norma, puisque la feuille est "très cachée".
Cliquez pour agrandir...
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 🙂
 
Vote positif 0 Vote négatif
Essaye ceci :
VB: 
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
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Résolu(e)
XL 2016 Taille Userform & saisie formulaire
Réponses
11
Affichages
1 K
patricktoulon
D
  • Question Question
Microsoft 365 Cas réel - avec problème complexe sur de la prevision de match en evitant les doublons
Réponses
1
Affichages
921
Dock91
D
C
  • Résolu(e)
Microsoft 365 Amélioration de mon code VBA
Réponses
9
Affichages
748
Cherrylie
C
M
  • Question Question
Microsoft 365 Gestion d'une refacturation en fonction d'un inventaire
Réponses
1
Affichages
648
MUGMRG
M
  • Question Question
Microsoft 365 Création d'un fichier entier par rapport à des entrées via UserForm
Réponses
1
Affichages
725
job75
A
  • Question Question
Microsoft 365 Copie VBA d'un tableau présent et identique sur 12 onglets dans un autre onglet dont seules les lignes complétées sont copiées
Réponses
4
Affichages
765
AlexiaC
A
L
  • Question Question
Microsoft 365 Conversion d'heures en chiffres : problème d'équivalence ?
Réponses
4
Affichages
617
TooFatBoy
J
  • Question Question
Microsoft 365 Excel 2022 Formulaire VBA - Filtre Multi-Critères en Simultané
Réponses
1
Affichages
2 K
cp4
P
  • Question Question
XL 2010 faire apparaitre ligne et onglet sous condition en vba
2
Réponses
16
Affichages
3 K
polyteis
P
T
  • Question Question
Microsoft 365 Planning de réservation de matériel (avec gestion des stocks) - Formules utiles ?
Réponses
7
Affichages
2 K
vgendron
E
  • Résolu(e)
XL 2016 vérifier entre deux fichiers que les valeurs d'une colonne correspondent en vba
Réponses
8
Affichages
753
Excellerateur
E
C
  • Résolu(e)
Microsoft 365 Transposition de données automatiquement selon critères, c'est possible ?
Réponses
14
Affichages
1 K
job75
E
  • Question Question
Microsoft 365 Problème MàJ des données par formulaire
Réponses
0
Affichages
985
ERN
E
  • Question Question
Microsoft 365 Excel : Récuperer les données de différents tableaux dans un seul tableau avec liste déroulante.
Réponses
5
Affichages
1 K
Hugo_CAN
A
  • Question Question
XL 2013 Création d'une liste déroulante avec les noms des onglets
Réponses
13
Affichages
5 K
Eric C
M
  • Résolu(e)
XL 2013 actualiser le nom des onglets en automatique à l'ouverture du fichier et ou VBA
Réponses
3
Affichages
2 K
mrdo
M
O
  • Résolu(e)
XL 2013 VBA qui copie les données d'un onglet dans un autre onglet en fonction de certains critères
Réponses
5
Affichages
1 K
onyirimba
O
T
  • Question Question
XL 2016 VBA pour compiler les résultats de deux tableaux en 1 avec id unique
Réponses
8
Affichages
2 K
Tomas82
T
  • Question Question
Microsoft 365 Macro provoque rafraichissement (avec Screenupdating false)
2
Réponses
15
Affichages
3 K
Lisette
  • Résolu(e)
XL 2013 Afficher les colonnes de plusieurs onglets en même temps par vba
Réponses
4
Affichages
2 K
Roseline
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…