Problème insertion données tableau

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion thafabed
  • 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
T

thafabed

XLDnaute Nouveau
Bonjour, et merci d'avance pour votre aide, j'aimerai réaliser un tableau à partir d'un userform afin de pouvoir rentrer toutes les données de transport de l'entreprise ou j'effectue mon stage et les archiver. Jusque la ca marche plutot pas mal mais j'aimerai, sur la base d'un des fichiers qu'on peut télécharger sur votre site, afficher les données par mois grace a la date d'envoie située dans la colonne H alors que dans le fichier initial les dates etaient situées en A. Je vous copie colle le code utilisé!!! milles merci d'une pauvre brelle en excel ^^

Private Sub SpinButton1_Change()
monmois = Range("C1")
If monmois = "" Then Exit Sub
If monmois > 12 Then Exit Sub
Range("B1") = Choose(monmois, "JANVIER", "FEVRIER", "MARS", "AVRIL", "MAI", "JUIN", "JUILLET", "AOUT", "SEPTEMBRE", "OCTOBRE", "NOVEMBRE", "DECEMBRE")
Range("B1😀1").Select
col = Choose(monmois, 33, 34, 35, 36, 37, 38, 39, 40, 24, 19, 42, 44)
Selection.Interior.ColorIndex = col
Range("D24").Select
Selection.Interior.ColorIndex = col
Range("A3:M23").Select
Selection.ClearContents

With Worksheets("COST").Range("N27:N3000")
Set ladate = .Find(monmois * 1.1, LookIn:=xlValues)
If Not ladate Is Nothing Then
firstAddress = ladate.Address
Do
a = a + 1
Cells(a + 2, 1) = ladate.Offset(0, -13)
Cells(a + 2, 2) = ladate.Offset(0, -12)
Cells(a + 2, 3) = ladate.Offset(0, -11)
Cells(a + 2, 4) = ladate.Offset(0, -10)
Cells(a + 2, 5) = ladate.Offset(0, -9)
Cells(a + 2, 6) = ladate.Offset(0, -8)
Cells(a + 2, 7) = ladate.Offset(0, -7)
Cells(a + 2, 8) = ladate.Offset(0, -6)
Cells(a + 2, 9) = ladate.Offset(0, -5)
Cells(a + 2, 11) = ladate.Offset(0, -3)
Cells(a + 2, 12) = ladate.Offset(0, -2)
Cells(a + 2, 13) = ladate.Offset(0, -1)

Set ladate = .FindNext(ladate)
Loop While Not ladate Is Nothing And ladate.Address <> firstAddress
End If
End With

On Error GoTo bugg
Range("D24") = Cells(23, 4) + Cells(22, 4) + Cells(21, 4) + Cells(20, 4) + Cells(19, 4) + Cells(18, 4) + Cells(17, 4) + Cells(16, 4) + Cells(15, 4) + Cells(14, 4) + Cells(13, 4) + Cells(12, 4) + Cells(11, 4) + Cells(10, 4) + Cells(9, 4) + Cells(8, 4) + Cells(7, 4) + Cells(6, 4) + Cells(5, 4) + Cells(4, 4) + Cells(3, 4)
Range("D1").Select

Exit Sub
bugg:
Range("D1").Select
MsgBox ("Attention! à corriger sur le listing ci-dessous : il manque un montant sur le mois de : " & Range("B1"))
End Sub
Si le code vous parait familier, c'est normal j'ai juste extrapolé un fichier que j'ai télécharger sur votre forum😀😀😀😀
Merci beaucoup
 
Trier par date Trier par votes
Re : Problème insertion données tableau

Merci de ta réponse, je ne peux pas poster mon fichier puisqu'il est trop gros même zîppé (48.9ko au lieu de 48.8)🙁 mais je peux essayer de t"expliquer :
en gros, j'ai un userform qui me permet de copier les entrées données dans une feuille appélée cost.
Ce pendant, j'ai envie d'organiser un tri par mois et pour cela j'ai repris un fichier sur xld ou on peut grace a un scroll faire passer les mois.
D'aprés le peu que je comprend du code, la date serait défini dans la zone "ladate" mais j'ai beau modifier le code je n'arrive pas a faire apparaitre les données de mes 13 colonnes en fonction du mois.
Je te recolle le code en essayant d'expliquer un peu plus


Private Sub SpinButton1_Change()
monmois = Range("C1")
If monmois = "" Then Exit Sub
If monmois > 12 Then Exit Sub
Range("B1") = Choose(monmois, "JANVIER", "FEVRIER", "MARS", "AVRIL", "MAI", "JUIN", "JUILLET", "AOUT", "SEPTEMBRE", "OCTOBRE", "NOVEMBRE", "DECEMBRE")
Range("B1😀1").Select
col = Choose(monmois, 33, 34, 35, 36, 37, 38, 39, 40, 24, 19, 42, 44)
Selection.Interior.ColorIndex = col
Range("D24").Select
Selection.Interior.ColorIndex = col
Range("A3:M23").Select
Selection.ClearContents

With Worksheets("COST").Range("N27:N3000")Je pense que le pb doit se situé dans cette partie, car je crois qu'il y a une fonction recherche, hors la feuille dont j'ai copié ce code, la cellule avec la date a filtrer était en A27 (puisque le données apparaissent toutes en dessous du tableau) or maintenant celle ci sont en H27, ce qui doit poser un pb dans la formue, enfin je crois 😕
Set ladate = .Find(monmois * 1.1, LookIn:=xlValues)
If Not ladate Is Nothing Then
firstAddress = ladate.Address
Do
a = a + 1
Cells(a + 2, 1) = ladate.Offset(0, -13)
Cells(a + 2, 2) = ladate.Offset(0, -12)
Cells(a + 2, 3) = ladate.Offset(0, -11)
Cells(a + 2, 4) = ladate.Offset(0, -10)
Cells(a + 2, 5) = ladate.Offset(0, -9)
Cells(a + 2, 6) = ladate.Offset(0, -8)
Cells(a + 2, 7) = ladate.Offset(0, -7)
Cells(a + 2, 8) = ladate.Offset(0, -6)
Cells(a + 2, 9) = ladate.Offset(0, -5)
Cells(a + 2, 11) = ladate.Offset(0, -3)
Cells(a + 2, 12) = ladate.Offset(0, -2)
Cells(a + 2, 13) = ladate.Offset(0, -1)

Set ladate = .FindNext(ladate)
Loop While Not ladate Is Nothing And ladate.Address <> firstAddress
End If
End With

On Error GoTo bugg
Range("D24") = Cells(23, 4) + Cells(22, 4) + Cells(21, 4) + Cells(20, 4) + Cells(19, 4) + Cells(18, 4) + Cells(17, 4) + Cells(16, 4) + Cells(15, 4) + Cells(14, 4) + Cells(13, 4) + Cells(12, 4) + Cells(11, 4) + Cells(10, 4) + Cells(9, 4) + Cells(8, 4) + Cells(7, 4) + Cells(6, 4) + Cells(5, 4) + Cells(4, 4) + Cells(3, 4)
Range("D1").Select

Exit Sub
bugg:
Range("D1").Select
MsgBox ("Attention! à corriger sur le listing ci-dessous : il manque un montant sur le mois de : " & Range("B1"))
End Sub

Merci de ta rep
 
Vote positif 0 Vote négatif
Re : Problème insertion données tableau

Oui voila, désolé si j'ai pas été assez clair, vu que les données sont toutes copiés dans la feuille cost a dés la case A27 jusqu'a M27 par ligne, l'idée serait de faire un tri automatique en fonction du mois, grace a une scroll barre qui defilerait les mois et les triera en fonction de leur chiffre respectif, (1 pour janvier etc...)
 
Vote positif 0 Vote négatif
Re : Problème insertion données tableau

Merci de ta réponse, meme si ce n'est pas exactement ce que je recherche, cela peut m'interesser pour un autre fichier excel, cela veut dire (si j'ai bien compris,) que je peux grace a ton userform filtrer ma liste en fonction du format jour/mois/année!
Je t'envoie mon fichier en pièce jointe, j'espere que cela pourra t'aider, en tt cas, merci beaucoup pour ton aide!
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Problème insertion données tableau

yup j'ai essayé de t'envoyer un mail mais j'ai pas pu envoyer le fichier vu qu'il y avait pas d'adresse sur ton profil!
Je t'annonce que j'ai bricolé un peu et j'ai résolu mon problème, plutot que de modifier le code, j'ai modifié mon tableau pour mettre la date en A, ce qui fait que le filtre remarche, et j'avais juste a elargir ma selection pour rentrer plus d'info
Merci de ton aide, dis moi si tu veux que je t'envoie le fichier quand meme
++
 
Vote positif 0 Vote négatif
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

badraaliou4
  • Question Question
XL 2021 Importer les données Access dans Excel
Réponses
2
Affichages
398
badraaliou4
badraaliou4
C
  • Question Question
XL 2021 VBA excel
Réponses
4
Affichages
91
CDALE
C
Nicolas JACQUIN
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
1 K
Nicolas JACQUIN
Nicolas JACQUIN
K
  • Résolu(e)
XL 2016 Affichage TextBox
Réponses
6
Affichages
114
KRUG WOO
K
S
  • Question Question
XL 2019 Modifications avec Combobox liées
Réponses
7
Affichages
242
Dranreb
Dranreb
D
  • Question Question
XL pour MAC Match liste des valeurs identique
Réponses
4
Affichages
487
Dudy
D
piga25
  • Résolu(e)
XL 2016 Mettre la même couleur de la dernière cellule colorée
Réponses
5
Affichages
361
TooFatBoy
TooFatBoy
T
  • Résolu(e)
XL 2016 macro et feuille protégé
2
Réponses
18
Affichages
761
laurent950
laurent950
U
  • Question Question
Autres incorporer une macro dans une autre macro
Réponses
5
Affichages
398
Phil69970
Phil69970
M
  • Question Question
XL 2021 macro VBA
Réponses
4
Affichages
165
ManuEven
M
Nicolas JACQUIN
  • Question Question
XL 2019 Fusionner jusqu'à dernière colonne contenant
Réponses
8
Affichages
710
TooFatBoy
TooFatBoy
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
365
Gestionnaire_rh
G
C
  • Question Question
XL 2021 Problème de remplissage d'une colonne conditionné à d'autres valeurs
Réponses
2
Affichages
446
CathyLD
C
J
  • Question Question
XL 2021 transfert listview vers feuille excel
Réponses
9
Affichages
158
Piment
P
G
  • Résolu(e)
XL 2021 VBA dates au mauvais format
Réponses
5
Affichages
335
vgendron
vgendron
richardlion
  • Question Question
XL 2016 annulation ou désactivation de macro
2
Réponses
27
Affichages
427
job75
job75
D
  • Question Question
XL 2010 Valoriser cellule par clic
Réponses
4
Affichages
513
fanch55
fanch55
R
  • Question Question
XL 2016 excel 2016 VBA
Réponses
2
Affichages
380
rebatte
R
S
  • Résolu(e)
XL 2019 Problème de remplissage cellule en vba
Réponses
5
Affichages
401
snoopy07
S
Amigo
  • Question Question
XL 2016 Protéger Plage avec condition
2
Réponses
16
Affichages
1 K
Amigo
Amigo
Retour