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

INSERTION DE LIGNE DANS TABLEAU

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

Nosma

XLDnaute Nouveau
Bonjour,
jai un petit soucis je debute en VBA et pour les besoins de mon entreprise je realise un fichier, dans le fichier mon code VBA bloque. (feuille "prevision de signature")
jai fait un formulaire et j'aimerai que les ligne s'insère les une au dessus des autres tout en restant dans le tableau.
pouvez-vous m'aider a compléter mon code
SVP
 

Pièces jointes

Dernière édition:
Trier par date Trier par votes
Bonjour.
Plutot qu'un Ws As Worksheet, déclarez donc un LOt As ListObject, que vous initialiserez
Set LOt = Worksheets("PREVISION DE SIGNATURE").ListObjects(1)
Puis
Me.ComboBox1.List = LOt.ListColumns("CLERC").DataBodyRange.Value
Pour obtenir un RngLig As Range représentant une ligne ajoutée :
Set RngLig = LOt.ListRows.Add.Range
Personnellement le mets toujours mes valeurs prises des contrôles dans un tableau TVL que j'affecte en une fois à la RngLig.Value
Remarque: vous avez une Private Sub UserForm_Initialize() dans un module d'objet Worksheet, au lieu d'un UserForm.
 
Vote positif 0 Vote négatif
Hello

avec ceci?
VB: 
Private Sub CommandButton1_Click()
'A ce niveau vous allez insérer le code suivant entre les deux lignes affichées
Dim L As Integer
If MsgBox("CONFIRMER signature prévisionnelle ?", vbYesNo, "Demande de confirmation") = vbYes Then 'condition : si oui au message
    Rows("6:6").Insert Shift:=xlDown
   
    Range("A" & 6).Value = ComboBox2 'Insère la donnée de la liste déroulante dans la colonne A
    Range("B" & 6).Value = TextBox1 'Insère la donnée de la textbox1 dans la colonne B
    'et à suivre....
    Range("C" & 6).Value = ComboBox1
    Range("D" & 6).Value = ComboBox7
    Range("E" & 6).Value = TextBox3
    Range("F" & 6).Value = TextBox4
    Range("G" & 6).Value = ComboBox8
    Range("H" & 6).Value = ComboBox9
    Range("I" & 6).Value = ComboBox10
End If
' Affiche une boîte de message
'MsgBox ("Signature prévisionnelle ajouter") 'Vous informant que l'acte est inséré dans votre tableau Excel.
'Inserer une nouvelle ligne après Valider
'Rows("6:6").Insert Shift:=xlDown
Unload Me ' Vide et ferme l'Userform ( formulaire)
AJOUT_PREVISION.Show 'Affiche le  formulaire
End Sub
 
Vote positif 0 Vote négatif
Bonjour,
[Tableau1440] ??????

Une piste pour le bouton "Valider" de l'userform "AJOUT_PREVISION"

VB: 
Private Sub CommandButton1_Click()
'A ce niveau vous allez insérer le code suivant en ligne 6
If MsgBox("CONFIRMER signature prévisionnelle ?", vbYesNo, "Demande de confirmation") = vbYes Then  'condition : si oui au message
  [Tableau1440].ListObject.ListRows.Add (1)

  Range("A6").Value = ComboBox2
  Range("B6").Value = TextBox1
  Range("C6").Value = ComboBox1
  Range("D6").Value = ComboBox7
  Range("E6").Value = TextBox3
  Range("F6").Value = TextBox4
  Range("G6").Value = ComboBox8
  Range("H6").Value = ComboBox9
  Range("I6").Value = ComboBox10

  ComboBox2 = ""
  TextBox1 = ""
  ComboBox1 = ""
  ComboBox7 = ""
  TextBox3 = ""
  TextBox4 = ""
  ComboBox8 = ""
  ComboBox9 = ""
  ComboBox10 = ""
End If
End Sub

Bon courage
 
Vote positif 0 Vote négatif
J'ajouterai que si ça vous intéresse j'ai des modules de service qui s'occupent de presque tout, pour peu que dans l'UserForm_Initialize on associe chaque titre du tableau à chaque contrôle devant rechercher ou afficher l'information.
 
Vote positif 0 Vote négatif

j'ai pas compris ce que vous vouliez dire "Remarque: vous avez une Private Sub UserForm_Initialize() dans un module d'objet Worksheet, au lieu d'un UserForm.[/QUOTE]"
 
Dernière édition:
Vote positif 0 Vote négatif

Merci, pour le coup j'ai l'embara du choix, tous vos code VBA fonctionnent à merveilles. XD
 
Vote positif 0 Vote négatif
Excusez moi de prendre encore de votre temps,
jai un autre problème qui apparait, dans ce meme formulaire jai plusieurs montant a mettre (textbox 4, format monétaire) pour ensuite faire la somme de ces montants,
si je rentre pas cellule par cellule ("assiette" colonne F) la somme est comme à zéro malgré le montant affiché.
comment je doit faire?
 
Vote positif 0 Vote négatif
RE…
A modifier
Range("F6").Value = CDbl(TextBox4)
 
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

W
  • Question Question
Autres Inserer automatiquement une ligne avec même mise en forme après avoir valider mes données
Réponses
11
Affichages
337
walki
W
M
  • Résolu(e)
XL 2016 Formule de ligne précédente non mise à jour après une insertion automatique de lignes dans l'objet tableau.
Réponses
4
Affichages
173
TooFatBoy
  • Question Question
Microsoft 365 Effacer (et non supprimer) une ligne suivant texte.
Réponses
6
Affichages
179
DAVID-44-
A
  • Question Question
insertion d'une ligne automatique dans un tableau excel.
Réponses
1
Affichages
558
sylvanu
P
  • Question Question
Microsoft 365 Insertion texte + numéro qui change à chaque changement de ligne
Réponses
4
Affichages
130
ptit_ange69
P
  • Résolu(e)
Microsoft 365 Extraire les données d'une ligne d'un tableau dynamique piloté par un segment
Réponses
2
Affichages
158
ralph45
G
  • Résolu(e)
Microsoft 365 Problème de classement final
Réponses
9
Affichages
169
globule
G
A
  • Résolu(e)
Microsoft 365 programme VBA pour "importer" les valeurs de certaines cellules d'une autre feuille appartenant à une ligne que j'identifie par un n°
2
Réponses
27
Affichages
986
arnomorize
A
R
  • Résolu(e)
Microsoft 365 Code VBA "Tableau gestionnaire"
2
Réponses
22
Affichages
1 K
Rosario.
R
S
  • Résolu(e)
Microsoft 365 Mailing mise en forme HTML : revenir à la ligne automatique si trop de texte saisie
2
Réponses
17
Affichages
727
spike29
S
  • Résolu(e)
XL 2021 PB Alimentation Tableau structuré depuis un ListBox
2
Réponses
27
Affichages
708
jeff1494
W
  • Résolu(e)
XL 2016 Placer mes photos dans la colonne A, [A3], [A4],etc, jusqu'en [A99] selon le prénom et le nom colonnes B et C
2
Réponses
26
Affichages
711
Webperegrino
W
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
370
PHIL37
P
S
  • Résolu(e)
XL 2013 Copier-Coller une ligne dans tableau variable, et la manipuler.
Réponses
4
Affichages
233
StéphaneDeLà
S
  • Question Question
XL 2021 Saisie de lignes multiples dans un formulaire
2
Réponses
15
Affichages
940
jeff1494
P
  • Question Question
XL 2016 Macro VBA remplissage tableau de synthèse % déchet ligne de production
Réponses
4
Affichages
250
vgendron
A
  • Résolu(e)
Microsoft 365 Insérer un résultat dans une cellule d'un tableau
Réponses
5
Affichages
239
Alain 79
A
N
  • Résolu(e)
Microsoft 365 VBA Insertion ligne dans feuille protégée
Réponses
10
Affichages
690
Nathan027
N
E
  • Question Question
Microsoft 365 Formule excel pour utiliser la dernier donnée d'une ligne dans une formule
Réponses
8
Affichages
364
emmanuel.conche
E
D
  • Résolu(e)
XL 2021 Selection listview et Envoie Emails automatique
Réponses
4
Affichages
331
delsart59
D
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…