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

Archivage sur plusieurs Feuilles

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Photosol
  • Date de début Date de début

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
P

Photosol

Guest
bonjour à tous,

J'ai un petit soucis avec de l'archivage,
J'ai créer un userform et des text box pour remplir des cases.

En Feuille 1, aucun soucis, mes trois text box inscrive bien en case voulu les infos,
si la case est vide, il passe à celle d'en dessous et ainsi de suite,

Je voudrais cependant qu'en Feuille 2 et 3 la textBox1 donne sa valeur à la première case de la colonne A qui est non vide.

Cela marche très bien dans la feuille 1,
Cependant en Feuille 2 et 3, La text box réécrit sur les cellules pleines,
en fait la formule ne prend pas en compte si la cellule est vide ou pas.

pouvez vous m'aider?

PS: en Pj le fichier, ce sera beaucoup plus simple pour comprendre mon problème.
 

Pièces jointes

Trier par date Trier par votes
Re : Archivage sur plusieurs Feuilles

Bonjour Photosol,

J'ai repris la macro différemment de manière plus simple car la dernière ligne générer par la texte box es réécrite dans les feuilles 2 3 et 4

Je ne sais pas si cela correspond mais c'est peut être un début

Si vous voulais une boucle je pense qu'il vaudrait mieux la construire différemment, je peux vous aider si vous souhaiter.

=====>>>>> J'ai un doute sur le code avec With / end With <<<<<< ============

Le Code :

Private Sub CommandButton1_Click()

Sheets("Feuil1").Activate

fin = Range("A65536").End(xlUp).Row

With Sheets("Feuil2")
Cells(fin + 1, 1) = UserForm1!TextBox1
finA = .Range("A65536").End(xlUp).Row + 1
.Cells(finA, 1).Value = UserForm1!TextBox1
End With

With Sheets("Feuil3")
Cells(fin + 1, 2) = UserForm1!TextBox2
finB = .Range("A65536").End(xlUp).Row + 1
.Cells(finB, 1).Value = UserForm1!TextBox2
End With

With Sheets("Feuil4")
Cells(fin + 1, 3) = UserForm1!TextBox3
finC = .Range("A65536").End(xlUp).Row + 1
.Cells(finC, 1).Value = UserForm1!TextBox3
End With

UserForm1!TextBox1 = ""
UserForm1!TextBox2 = ""
UserForm1!TextBox3 = ""

UserForm1.Hide

End Sub

Au plaisir

Laurent
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : Archivage sur plusieurs Feuilles

Bonsoir Photosol, Laurent,

Avec un code plus court :

VB: 
Private Sub CommandButton1_Click()
i = Feuil1.Cells(65536, 1).End(xlUp).Row + 1
j = Feuil2.Cells(65536, 1).End(xlUp).Row + 1
k = Feuil3.Cells(65536, 1).End(xlUp).Row + 1

Feuil1.Cells(i, 1) = TextBox1
Feuil2.Cells(j, 1) = TextBox1
Feuil3.Cells(k, 1) = TextBox1
Feuil1.Cells(i, 2) = TextBox2
Feuil1.Cells(i, 3) = TextBox3

TextBox1 = "": TextBox2 = "": TextBox3 = ""

Unload Me

End Sub

A+
 

Pièces jointes

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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

I
  • Question Question
XL 2016 Dupliquer des colonnes sur plusieurs feuilles
Réponses
2
Affichages
406
AtTheOne
  • Résolu(e)
Microsoft 365 Extraction d'informations sur différents onglets en partant d'une base de données
Réponses
7
Affichages
835
MBax
A
  • Question Question
Microsoft 365 Fichier de statistique et roulement
Réponses
0
Affichages
597
Aurel’Byylieve
A
B
  • Question Question
Microsoft 365 Archivage et enregistrement d'un fichier multi-feuilles
Réponses
1
Affichages
538
Blf57
B
Z
  • Résolu(e)
Microsoft 365 Problème de combinaison entre fonctions "If Then Else" et "SelectCase"
Réponses
11
Affichages
932
Zonmé
Z
C
  • Question Question
XL 2016 Création d'un tableau récapitulatif pour bon de commande
Réponses
7
Affichages
917
chris
D
  • Question Question
XL 2016 Automatisation copier coller
2
Réponses
16
Affichages
2 K
Djekill
D
T
  • Question Question
XL 2016 Ajout de données issues d'une macro en fin de tableau
Réponses
1
Affichages
520
st007
S
M
  • Résolu(e)
XL 2013 Gestion clic bouton UserForm
2
Réponses
23
Affichages
2 K
M.Ben
M
C
  • Résolu(e)
XL 2010 D'une userform transfert sur plusieurs feuilles en fonction
Réponses
4
Affichages
969
ccia
C
  • Question Question
XL 2016 Récupération d'infos "dynamiques" sur tableau perso
Réponses
4
Affichages
837
JKL_Style
S
  • Question Question
Microsoft 365 Mise à Jour dates
Réponses
0
Affichages
650
Stephane Mex
S
Office XLS : Fonction simplifiant l'utilisation de la fenêtre FileDialog
Réponses
6
Affichages
898
Lu76Fer
  • Question Question
XL 2019 BDD VBA - nombreux problèmes
Réponses
3
Affichages
946
fanfan38
A
  • Question Question
Microsoft 365 VBA - Save mail sur hard disk après envoi du mail
Réponses
0
Affichages
875
Azuveus
A
E
  • Question Question
Microsoft 365 VBA Calendrier, rien ne se passe.
Réponses
12
Affichages
1 K
fanch55
J
  • Question Question
XL 2019 Copier des lignes de plusieurs feuilles, avec 3 critères et 1 conditions textuelles sur 3 feuilles différentes correspondant aux 3 critères
Réponses
6
Affichages
1 K
Phil69970
T
  • Question Question
XL 2016 Problème de conditions
Réponses
1
Affichages
1 K
nat54
G
  • Résolu(e)
XL 2016 Définir Boucle pour afficher plusieurs tableaux dans des textbox sur une userform (ou sur une feuille Excel)
Réponses
6
Affichages
2 K
gaby.jvx
G
  • Question Question
XL 2013 listbox avec + de 11 colonnes (colonne A à colonne L)
Réponses
11
Affichages
3 K
patricktoulon
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…