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

XL 2019 Use forme a modifier

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion berru76
  • 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
B

berru76

XLDnaute Occasionnel
Bonjour
J'ai un Use forme utile qui fonctionnait dans mes petits programmes club
La structure est la même
Mais dans le nouveau projet la présentation se fait en tableaux donc cela ne s'affiche plus au bon endroit
Si vous voyer la solution
ci-joint un exemple
Merci de votre aide
 

Pièces jointes

Solution
Bonjour Berru, Nain Porte Quoi,
Dans un TDS, comme votre Tabel1, on ne peut accéder à la dernière ligne avec L = .Range("C" & Rows.Count).End(xlUp).Row + 1 car pour XL un TDS est un objet.
Cette ligne de code vous donnera la première ligne vide après votre TDS. C'est pour ça que vos entrées se mettent à la fin du tableau.

il faut passer par l'examen du TDS lui même.
En PJ j'ai remplacé :
VB: 
L = .Range("C" & Rows.Count).End(xlUp).Row + 1
par
L = 1 + Application.CountIf([Tabel1[Noms]], "*")

.Range("C" & L) = Me.ComboBox1.Value
par
[Tabel1[Noms]].Item(L) = Me.ComboBox1.Value

.Range("D" & L) = "Payé"
par
[Tabel1[Payé]].Item(L) = "Payé"

.Range("D" & L) = "Non"
par
[Tabel1[Payé]].Item(L) = "Non"
Trier par date Trier par votes
Hello,

quand on utilise des tableaux (structurées, bien que MS n'utilise plus ce terme) il ne faut pas ajouter de lignes vides. En clair, réduisez votre tableau à sa partie congrues et laissez faire le reste

Ceci dit, la macro n'est plus vraiment adapté aux TS, je pense que quelques autres contributeurs pourront vous arranger ça
 
Vote positif 0 Vote négatif
Bonjour Berru, Nain Porte Quoi,
Dans un TDS, comme votre Tabel1, on ne peut accéder à la dernière ligne avec L = .Range("C" & Rows.Count).End(xlUp).Row + 1 car pour XL un TDS est un objet.
Cette ligne de code vous donnera la première ligne vide après votre TDS. C'est pour ça que vos entrées se mettent à la fin du tableau.

il faut passer par l'examen du TDS lui même.
En PJ j'ai remplacé :
VB: 
L = .Range("C" & Rows.Count).End(xlUp).Row + 1
par
L = 1 + Application.CountIf([Tabel1[Noms]], "*")

.Range("C" & L) = Me.ComboBox1.Value
par
[Tabel1[Noms]].Item(L) = Me.ComboBox1.Value

.Range("D" & L) = "Payé"
par
[Tabel1[Payé]].Item(L) = "Payé"

.Range("D" & L) = "Non"
par
[Tabel1[Payé]].Item(L) = "Non"
 

Pièces jointes

Vote positif 0 Vote négatif
Solution
Merci a vous
Fonctionne très bien
 
Vote positif 0 Vote négatif
Re,
En fait c'est la dernière cellule écrite en colonne C qui est sélectionnée.
Mais si vous voulez sélectionner une cellule précise en sortie d' USF, faites par ex :
VB: 
Private Sub CommandButton2_Click()
  Unload Me
  Range("F5").Select
End Sub
Remplacez le "F5" pa ce que vous voulez.
et vous pouvez rajoutez dans l'usf :
Code: 
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
  If CloseMode = vbFormControlMenu Then   ' Fermeture usf qui vient de la croix
    Cancel = True
  End If
End Sub
pour empêcher la fermeture de l'usf par la croix mais uniquement par le bouton "Quitter"
 

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

Discussions similaires

B
  • Résolu(e)
XL 2016 Régler la hauteur des lignes de 10 a 25 d'une feuille soit par "use-forme / combo / bouton + ou - / macro
Réponses
12
Affichages
654
TooFatBoy
B
  • Résolu(e)
XL 2016 Concours/ Adapter ou modifier le fonctionnement de deux boutons dans un use forme
Réponses
10
Affichages
604
Oneida
L
  • Question Question
Microsoft 365 mise en forme fichier excel power query
Réponses
1
Affichages
266
vgendron
W
  • Résolu(e)
XL 2016 Par clic·droit en colonne A modifier le contenu de colonne R
Réponses
9
Affichages
294
TooFatBoy
S
  • Question Question
Autres Recette de pâtisserie
Réponses
4
Affichages
474
Slavko.R
S
B
  • Résolu(e)
XL 2016 Concours/modifier un use forme
Réponses
6
Affichages
419
berru76
B
  • Résolu(e)
XL 2010 soustraction ou addition date et heure
Réponses
2
Affichages
319
jeanmi
  • Résolu(e)
XL 2016 Construction du jeu de modus
2
Réponses
25
Affichages
702
papychat1
  • Résolu(e)
XL 2021 Export d'un Userform au format Docx;
3 4 5
Réponses
60
Affichages
551
job75
P
  • Question Question
XL 2019 Mise en forme conditionnelle sur plusieurs feuilles
Réponses
6
Affichages
944
JHA
J
  • Résolu(e)
Microsoft 365 Tri liste - répartition égale
Réponses
12
Affichages
535
La_Mouette
A
  • Question Question
XL 2021 Automatiser la génération de documents Word à partir d’Excel avec VBA
Réponses
12
Affichages
1 K
ali591
A
A
  • Résolu(e)
XL 2013 Nombre stocké Sous forme de texte
Réponses
2
Affichages
484
Appo1985
A
  • Question Question
XL 2021 Comment supprimer des noms du gestionnaire de noms dans un classeur
Réponses
7
Affichages
823
jeff1494
C
  • Question Question
Microsoft 365 garder uniquement les lignes avec critères
Réponses
2
Affichages
538
sousou
P
  • Question Question
Autres Finalisation de projet VBA pour planning quotidien
2
Réponses
15
Affichages
779
vgendron
  • Question Question
XL 2016 XLS - Comment déterminer les zones présentent au niveau d'une cellule ?
Réponses
2
Affichages
679
Lu76Fer
  • Question Question
XL 2019 RESOLU Classeur a données croisées
Réponses
11
Affichages
650
Frederic14
A
  • Résolu(e)
Microsoft 365 Suppression d'une ligne d'un tableau avec une macro
Réponses
13
Affichages
998
Alain 79
A
P
  • Résolu(e)
XL 2016 VBA Insérer une date dans le nom de fichiers PDF publipostés via WORD à partir d"excel
Réponses
3
Affichages
624
PHIL37
P
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…