UserForm remplissage tableau ne fonctionne pas

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

saggigo

XLDnaute Occasionnel
Bonjour à tous,
je vous remercie d'avance pour votre aide.
Voilà j'ai une feuille excel avec un useform pour remplir un tableau, mais ce dernier ne fonctionne plus.

pourriez-vous s'il vous plait voir c'est quoi le problème, j'ai tout essayé mais je bloque.

la feuille excel est en pièce joint.

Merci pour beaucoup pour votre aide.
 

Pièces jointes

Trier par date Trier par votes
Re : UserForm remplissage tableau ne fonctionne pas

Bonjour Saggigo

Mama mia, ça m'arrache les yeux icon_eek.gif quand je vois ça
Code: 
  With Sheets("Monitoring DF&PID")
    Set shtJT = ActiveWorkbook.Sheets("Monitoring DF&PID")
    'Worksheets("Monitoring DF&PID").Activate
    X = shtJT.Cells(Rows.Count, "C").End(xlUp).Row + 1
    shtJT.Range("A" & X) = Me.Txb_client
    shtJT.Range("B" & X) = CLng(Me.Cmb_CC_SAP)
    shtJT.Range("C" & X) = Me.DTPicker1
    shtJT.Range("D" & X) = CSng(Me.Txb_BC_HT)
    shtJT.Range("F" & X) = Me.DTPicker2
    shtJT.Range("G" & X) = CLng(Me.Txb_ExWorks)
    shtJT.Range("H" & X) = Me.DTPicker1 + Me.Cmb_Delais_Livr
  End With
On ne peut pas à minima essayer de comprendre ce qu'on fait !?

Code: 
With Sheets("Monitoring DF&PID")
Indique que tu vas travailler avec l'objet conteneur feuille "Monitoring DF&PID"

Code: 
Set shtJT = ActiveWorkbook.Sheets("Monitoring DF&PID")
Indique que tu définis un objet qui est la même feuille 😕😛

Le code devrait être
Code: 
Private Sub Valider_Click()
  Dim X As Long
  Dim shtJT As Worksheet
  If Me.Txb_client = "" Then
    MsgBox "Il faut un client !", vbCritical, "Erreur saisie"
    Me.Txb_client.SetFocus
    Exit Sub
  End If
  With Sheets("Monitoring DF&PID")
    X = .Cells(Rows.Count, "C").End(xlUp).Row + 1
    .Range("A" & X) = Me.Txb_client
    .Range("B" & X) = CLng(Me.Cmb_CC_SAP)
    .Range("C" & X) = Me.DTPicker1
    .Range("D" & X) = CSng(Me.Txb_BC_HT)
    .Range("F" & X) = Me.DTPicker2
    .Range("G" & X) = CLng(Me.Txb_ExWorks)
    .Range("H" & X) = Me.DTPicker1 + Me.Cmb_Delais_Livr
  End With
  'Remise à 0 de l'USF, sauf date de transfert du BC
  Me.Txb_client = ""
  Me.Txb_BC_HT = ""
  Me.Txb_ExWorks = ""
  Me.Cmb_Delais_Livr = ""
  Me.Txb_client.SetFocus
  ' mettre le curseur sur la Combobox client
  Me.Txb_client.SetFocus
End Sub

Ensuite avec X tu vas chercher la dernière ligne de libre à partir de tout en bas de la feuille,
donc systématiquement en dessous de celles qui existent déjà 😉

A+
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : UserForm remplissage tableau ne fonctionne pas

Bon voilà le fichier réparé pour que ça fonctionne
 

Pièces jointes

Vote positif 0 Vote négatif
Re : UserForm remplissage tableau ne fonctionne pas

gilbert_RGI à dit:
Bon voilà le fichier réparé pour que ça fonctionne
Cliquez pour agrandir...

Merci beaucoup Gilbert pour ton aide, mais apparemment, lorsque je supprime toutes les lignes, et que j'entre une nouvelle donnée, mon tableau commence en dessous de la dernière lignes précédemment créée, c'est comme si il mémorisait quelles ont été les dernières lignes avant la suppression.
j'ai supprimé la ligne que tu avais crée ainsi que la mienne (que j'avais crée pour le test) et lorsque j'en créer une nouvelle, il laisse deux lignes vides et commence à la troisième.

est-ce un réglage dans mon excel?
 

Pièces jointes

Vote positif 0 Vote négatif
Re : UserForm remplissage tableau ne fonctionne pas

BrunoM45 à dit:
Bonjour Saggigo

Mama mia, ça m'arrache les yeux Regarde la pièce jointe 339211 quand je vois ça
Code: 
  With Sheets("Monitoring DF&PID")
    Set shtJT = ActiveWorkbook.Sheets("Monitoring DF&PID")
    'Worksheets("Monitoring DF&PID").Activate
    X = shtJT.Cells(Rows.Count, "C").End(xlUp).Row + 1
    shtJT.Range("A" & X) = Me.Txb_client
    shtJT.Range("B" & X) = CLng(Me.Cmb_CC_SAP)
    shtJT.Range("C" & X) = Me.DTPicker1
    shtJT.Range("D" & X) = CSng(Me.Txb_BC_HT)
    shtJT.Range("F" & X) = Me.DTPicker2
    shtJT.Range("G" & X) = CLng(Me.Txb_ExWorks)
    shtJT.Range("H" & X) = Me.DTPicker1 + Me.Cmb_Delais_Livr
  End With
On ne peut pas à minima essayer de comprendre ce qu'on fait !?

Code: 
With Sheets("Monitoring DF&PID")
Indique que tu vas travailler avec l'objet conteneur feuille "Monitoring DF&PID"

Code: 
Set shtJT = ActiveWorkbook.Sheets("Monitoring DF&PID")
Indique que tu définis un objet qui est la même feuille 😕😛

Le code devrait être
Code: 
Private Sub Valider_Click()
  Dim X As Long
  Dim shtJT As Worksheet
  If Me.Txb_client = "" Then
    MsgBox "Il faut un client !", vbCritical, "Erreur saisie"
    Me.Txb_client.SetFocus
    Exit Sub
  End If
  With Sheets("Monitoring DF&PID")
    X = .Cells(Rows.Count, "C").End(xlUp).Row + 1
    .Range("A" & X) = Me.Txb_client
    .Range("B" & X) = CLng(Me.Cmb_CC_SAP)
    .Range("C" & X) = Me.DTPicker1
    .Range("D" & X) = CSng(Me.Txb_BC_HT)
    .Range("F" & X) = Me.DTPicker2
    .Range("G" & X) = CLng(Me.Txb_ExWorks)
    .Range("H" & X) = Me.DTPicker1 + Me.Cmb_Delais_Livr
  End With
  'Remise à 0 de l'USF, sauf date de transfert du BC
  Me.Txb_client = ""
  Me.Txb_BC_HT = ""
  Me.Txb_ExWorks = ""
  Me.Cmb_Delais_Livr = ""
  Me.Txb_client.SetFocus
  ' mettre le curseur sur la Combobox client
  Me.Txb_client.SetFocus
End Sub

Ensuite avec X tu vas chercher la dernière ligne de libre à partir de tout en bas de la feuille,
donc systématiquement en dessous de celles qui existent déjà 😉

A+
Cliquez pour agrandir...

Bonjour Bruno et merci pour ta réponse,
la feuille que tu m'a envoyé ne fonctionne pas, elle bug ici:
code:
X = .Cells(Rows.Count, "C").End(xlUp).Row + 1
 
Vote positif 0 Vote négatif
Re : UserForm remplissage tableau ne fonctionne pas

saggigo à dit:
Merci beaucoup Gilbert pour ton aide, mais apparemment, lorsque je supprime toutes les lignes, et que j'entre une nouvelle donnée, mon tableau commence en dessous de la dernière lignes précédemment créée, c'est comme si il mémorisait quelles ont été les dernières lignes avant la suppression.
j'ai supprimé la ligne que tu avais crée ainsi que la mienne (que j'avais crée pour le test) et lorsque j'en créer une nouvelle, il laisse deux lignes vides et commence à la troisième.

est-ce un réglage dans mon excel?
Cliquez pour agrandir...
regarde en colonne Y et supprimes les numéros

Regarde la pièce jointe 945084
 

Pièces jointes

  • sup.png
    sup.png
    4.8 KB · Affichages: 36
Dernière édition:
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

jcf6464
  • Résolu(e)
Microsoft 365 Userform Filtres ne fonctionne pas
2 3 4
Réponses
46
Affichages
1 K
jcf6464
jcf6464
P
  • Résolu(e)
Microsoft 365 Remplissage tableau avec 2 conditions
Réponses
4
Affichages
238
pierrof
P
A
  • Question Question
Microsoft 365 Formule
Réponses
3
Affichages
174
mapomme
mapomme
C
  • Résolu(e)
Microsoft 365 bouton pour un userform
Réponses
14
Affichages
488
C'est Génial
C
F
  • Question Question
XL 2016 Demande d'aide sur un tableau excel
Réponses
9
Affichages
304
job75
job75
D
  • Résolu(e)
Microsoft 365 macro qui ne fonctionne pas pour colorisation d'une carte
Réponses
8
Affichages
281
job75
job75
E
  • Résolu(e)
Microsoft 365 Calcul Pourcentage dans Userform
Réponses
6
Affichages
246
job75
job75
C
  • Résolu(e)
Microsoft 365 Tableau dynamique ou power
2 3
Réponses
32
Affichages
916
C'est Génial
C
I
  • Question Question
Microsoft 365 Remplir les cellules vides
Réponses
2
Affichages
159
Ines99
I
goldkeefer
  • Résolu(e)
XL 2016 D'heures ,heure sup et salaire
Réponses
8
Affichages
494
TooFatBoy
TooFatBoy
J
  • Question Question
XL 2016 classeur rendez-vous avec userform en VBA
Réponses
4
Affichages
128
J- Paul
J
K
  • Résolu(e)
Microsoft 365 Rajout d'une colonne dans une macro mais cela ne fonctionne pas
Réponses
11
Affichages
232
Kassou
K
Titof06
  • Résolu(e)
XL 2019 Création d'un second bouton qui ne fonctionne pas
Réponses
2
Affichages
185
Titof06
Titof06
L
  • Question Question
XL 2016 tableau sorties prêt materiel
Réponses
5
Affichages
231
lo1921
L
B
  • Question Question
XL 2016 tableau suivi chantiers
Réponses
2
Affichages
156
berto
B
jcf6464
  • Question Question
Microsoft 365 Saisie par userform ne fonctionne pas
Réponses
10
Affichages
278
jcf6464
jcf6464
C
  • Question Question
XL 2021 Décompte de chauffage gestion du mazout Répondre
Réponses
12
Affichages
320
clausen
C
G
  • Question Question
Microsoft 365 Colorer un graphique x-y scatter
Réponses
9
Affichages
291
bsalv
B
E
  • Résolu(e)
Microsoft 365 Séparer une feuille Excel en deux partie complètement indépendantes ?
2
Réponses
20
Affichages
601
Elnono51
E
Y
  • Question Question
XL 2019 macro pour dupliquer un tableau
Réponses
3
Affichages
537
Yogean
Y
Retour