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

CheckBox1 / ComboBox1 depuis un USERFORM sur les cellules DUR DUR

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

stef371967

Guest
😎 Bonjour a vous tous
Novice avec Excel je vous joint mon fichier TEST 3 "préparé"
avec plus d'explication.
parce-que la c très dur pour moi .... # A Excel #
1* ajouts des lignes depuis USERFORM 1 EN COURT
2* ajout une touche macro pour ouvrir une autre fenêtre de saisie FAIT a 50%
3* effectuer un trie automatique par date en ordre croisant

Un grand merci a vous tous d'avance. 😱
😱 Je joint mon nouveaux fichier avec USERFORM 1 en court
 
Dernière modification par un modérateur:
Trier par date Trier par votes
Re : Rajout de ligne par touche, avec un trie par date. DUR DUR

Salut stef371967 et le forum
Pour la première question, une macro de ce type :
Code: 
Sub test()
Dim Cel As Range, Plage As Range
Dim H As Integer, Lig As Long

'Protection de la feuille
ActiveSheet.Unprotect
'Calcul de la Hauteur d'un enregistrement
H = Range("A33").MergeArea.Rows.Count
'Calcul de la dernière ligne
'---------------------------------------------------------------
'For Lig = Cells(Rows.Count, "A").End(xlUp).Row To 33 Step -1
'    If IsNumeric(Cells(Lig, "A")) Then
'        Lig = Lig + 1 + H
'        Exit For
'    End If
'Next Lig
'Possibilité de calcul en fonction du dernier n° d'ordre
'---------------------------------------------------------------
Lig = Cells(Rows.Count, "A").End(xlUp).Row - 11
'copie de l'enregistement
[A33:N37].Copy
Range("A" & Lig).Insert Shift:=xlDown
'Formatage des ligne
Range("A" & Lig).MergeArea.Rows.RowHeight = [A33].RowHeight
'RAZ
Range("A" & Lig).MergeArea.ClearContents
Range("B" & Lig + 4).MergeArea.ClearContents
Range("C" & Lig).MergeArea.ClearContents
Range("C" & Lig + 1).MergeArea.ClearContents
Range("C" & Lig + 2).MergeArea.ClearContents
Range("C" & Lig + 3).MergeArea.ClearContents
Range("K" & Lig + 1).MergeArea.ClearContents
Range("G" & Lig + 2).MergeArea.ClearContents
Range("N" & Lig + 2).MergeArea.ClearContents
'Numéro d'ordre
Range("A" & Lig).MergeArea = WorksheetFunction.Max(Columns(1)) + 1
Range("K" & Lig + 9).MergeArea.Value = Range("A" & Lig).MergeArea.Value
Range("C" & Lig).Activate
'protection de la feuille
ActiveSheet.Protect
End Sub
Pourrait être une réponse. Attention : elle est faite sous une version 2003, et les versions suivantes peuvent présenter des instructions qui seraient plus adaptées.

Pour la seconde, c'est fait 😉 ouf
Pour la troisième, quelle date ?
Une idée : créer une colonne avec les couples N°d'ordre et Valeur de tri, faire un tri dessus, puis réorganiser la liste en copiant les blocs, d'abord sur des colonnes tampons, puis sur la liste originale, dans l'ordre, en se fiant au numéro d'ordre trié.
A+
 
Vote positif 0 Vote négatif
Re : Rajout de ligne par touche, avec un trie par date. DUR DUR

😱 Merci Gorfael très rapide

Bon la macro impeccable mais pour remplir mais cellule en page 1 avec le bouton USERFORM 1 voir mon fichier
et de lais ajouté sur la page 1 automatiquement avec la touche validation.

en trois effectuer un trie automatique croissant en fonction de la date saisie et non du n° d'ordre sur la page 1

Merci car la , un grand boulot 😎
 
Vote positif 0 Vote négatif
Re : Rajout de ligne par touche, avec un trie par date. DUR DUR

Merci
je joint un nouveaux fichier modifier en Test 3 plus haut
Car la je sèche pour la suite .
Avec toujours les explications
Merci a vous d'avence
Stef..............
 
Vote positif 0 Vote négatif
Re : Rajout de ligne par touche, avec un trie par date. DUR DUR

Merci
je joint un nouveaux fichier modifier en Test 4 plus haut
Car la je sèche pour la suite .
Avec toujours les explications
Merci a vous d'avence
Stef..............
 
Vote positif 0 Vote négatif
Re : Rajout de ligne par touche, avec un trie par date. DUR DUR

Merci
je joint un nouveaux fichier modifier en Test 5 plus haut
Car la je sèche pour la suite .

Reste un CheckBox1 / ComboBox1 "déclarée dans le code mais ne fonctionne pas"

depuis mon USERFORM sur les cellules .

Plus un trie automatique par date en ordre croissant sur la feuil1

Avec toujours les explications
Merci a vous d'avance
Stef..............
 
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

  • Question Question
XL 2019 Copier et coller automatiquement une nouvelle donnée par un bouton, ListView décallée à la sur la page (Multipage) et vibration du Userform
2
Réponses
16
Affichages
954
TooFatBoy
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
986
Dock91
D
G
  • Question Question
XL 2019 Répondre à des conditions d'une feuille pour un affichage dans un Userforms
Réponses
3
Affichages
1 K
cp4
M
  • Résolu(e)
XL 2013 Copier un Userform d'un fichier Excel vers un autre avec en l'adaptant avec les nouvelles feuilles
Réponses
10
Affichages
2 K
metalbarzotti
M
T
  • Question Question
XL 2016 Modification de données sur 2 feuilles différentes via UserForm
Réponses
14
Affichages
2 K
tontonboulii
T
M
  • Question Question
Microsoft 365 VBA : Listes déroulantes en cascade dans un UserForm
Réponses
8
Affichages
3 K
MathisC
M
D
  • Question Question
XL 2016 [RESOLU] plusieurs demandes VBA sur fichier de suivi de téléphones
Réponses
3
Affichages
1 K
dupuy.mathias
D
C
  • Question Question
XL 2016 Génération "n° chrono" et ajout de données n'existant pas dans RowSource de ComboBox
Réponses
5
Affichages
1 K
CaptainMerlux
C
F
  • Question Question
Problème avec page qui défile sur VBA
Réponses
5
Affichages
2 K
Fariri
F
F
  • Question Question
re-Modification à partir d'une ComboBox dans un tableau dynamique
Réponses
9
Affichages
4 K
Staple1600
T
  • Question Question
Trier les informations d'une liste déroulante
Réponses
3
Affichages
2 K
Toubabou
T
V
  • Question Question
Problème correspondance Valeur et Textbo d'un userform
Réponses
2
Affichages
2 K
VOILLOT
V
O
  • Question Question
Ajouter un commentaire en fonction de la cellule choisie via Userform
Réponses
4
Affichages
3 K
OOLIVE
O
  • Question Question
Coder mon UserForm (Glups) [Résolu]
2
Réponses
22
Affichages
3 K
BLACKHAYES
S
  • Question Question
Appel d'une UserForm
Réponses
6
Affichages
1 K
Sly le globe trotter
S
G
  • Question Question
[RÉSOLU] [VBA] - Ttraitement des données importées depuis un CSV
Réponses
11
Affichages
2 K
Dranreb
X
  • Question Question
Afficher Résultats Macro (boucle If) dans Listbox sur feuille (non userform)
Réponses
9
Affichages
2 K
Xenors
X
M
  • Question Question
faire évoluer code userform choix
Réponses
3
Affichages
1 K
MarcTer
M
A
  • Question Question
Graphique sur Chartspace - UserForm - Problème tracé plage de données
Réponses
6
Affichages
2 K
Modeste geedee
S
  • Question Question
Afficher dans texbox2 les données suite a un choix dans combobox1 (je suis débutant)
Réponses
12
Affichages
7 K
sayfher
S
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…