ligne de formulaire

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

roybaf

XLDnaute Occasionnel
Bonjour tout le monde,

J'ai un souci avec un code, il recopie des lignes saisie dans mon formulaire et les intègres à ma feuille

mais une ligne ne se remplie pas:

Code: 
Private Sub suivant2_Click()
Dim NLig As Long
 
    With Sheets("DONNEES")
    
        NLig = .Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row
      .Range("A" & NLig) = ComboBox13.Value
      .Range("b" & NLig) = TextBox21.Value
            If ComboBox13.Value = "" Then
            Else: .Range("c" & NLig) = TextBox22.Value
            End If
            With Sheets("DONNEES")
              NLig = .Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row
              .Range("A" & NLig) = ComboBox1.Value
              .Range("b" & NLig) = TextBox18.Value
                    If ComboBox1.Value = "" Then
                    Else: .Range("c" & NLig) = TextBox22.Value
                    End If
                    With Sheets("DONNEES")
                    NLig = .Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row
                    .Range("A" & NLig) = ComboBox2.Value
                    .Range("b" & NLig) = TextBox15.Value
                        If ComboBox2.Value = "" Then
                        Else: .Range("c" & NLig) = TextBox22.Value
                        End If
                        With Sheets("DONNEES")
                        NLig = .Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row
                        .Range("A" & NLig) = ComboBox14.Value
                        .Range("b" & NLig) = TextBox23.Value
                            If ComboBox14.Value = "" Then
                            Else: .Range("c" & NLig) = TextBox22.Value
                            End If
                            With Sheets("DONNEES")
                            .Range("A" & NLig) = ComboBox4.Value
                            .Range("b" & NLig) = TextBox9.Value
                                If ComboBox4.Value = "" Then
                                Else: .Range("c" & NLig) = TextBox22.Value
                                End If
                                With Sheets("DONNEES")
                                NLig = .Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row
                                .Range("A" & NLig) = ComboBox5.Value
                                .Range("b" & NLig) = TextBox6.Value
                                    If ComboBox5.Value = "" Then
                                    Else: .Range("c" & NLig) = TextBox22.Value
                                    End If
                                    With Sheets("DONNEES")
                                    NLig = .Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row
                                    .Range("A" & NLig) = ComboBox6.Value
                                    .Range("b" & NLig) = TextBox3.Value
                                        If ComboBox6.Value = "" Then
                                        Else: .Range("c" & NLig) = TextBox22.Value
                                        End If
    End With
    End With
    End With
    End With
    End With
    End With
    End With

Il s'agit de celle
HTML: 
]With Sheets("DONNEES")
                        NLig = .Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row
                        .Range("A" & NLig) = ComboBox14.Value
                        .Range("b" & NLig) = TextBox23.Value
                            If ComboBox14.Value = "" Then
                            Else: .Range("c" & NLig) = TextBox22.Value
                            End If
, qui correspond à la ligne 4 de mon USF içi en PJ

En PJ une image de mon userform, le fichier est beaucoup trop lourd et trop de données confidentielles pour le mettre sur le forum..

Merci d'avance.
 

Pièces jointes

  • salaire.jpg
    salaire.jpg
    39.5 KB · Affichages: 75
Dernière édition:
Trier par date Trier par votes
Re : ligne de formulaire

Salut Roybaf 😉

Pourquoi répéter With !?

De plus quand tu n'exécutes aucune action dans une condition, autant inverser celle-ci

Voici le code à tester
Code: 
Private Sub suivant2_Click()
  Dim NLig As Long


  With Sheets("DONNEES")
    NLig = .Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row
    .Range("A" & NLig) = ComboBox13.Value
    .Range("b" & NLig) = TextBox21.Value
    If ComboBox13.Value <> "" Then .Range("c" & NLig) = TextBox22.Value


    NLig = .Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row
    .Range("A" & NLig) = ComboBox1.Value
    .Range("b" & NLig) = TextBox18.Value
    If ComboBox1.Value <> "" Then .Range("c" & NLig) = TextBox22.Value


    NLig = .Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row
    .Range("A" & NLig) = ComboBox2.Value
    .Range("b" & NLig) = TextBox15.Value
    If ComboBox2.Value <> "" Then .Range("c" & NLig) = TextBox22.Value


    NLig = .Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row
    .Range("A" & NLig) = ComboBox14.Value
    .Range("b" & NLig) = TextBox23.Value
    If ComboBox14.Value <> "" Then .Range("c" & NLig) = TextBox22.Value


    NLig = .Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row
    .Range("A" & NLig) = ComboBox4.Value
    .Range("b" & NLig) = TextBox9.Value
    If ComboBox4.Value <> "" Then .Range("c" & NLig) = TextBox22.Value


    NLig = .Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row
    .Range("A" & NLig) = ComboBox5.Value
    .Range("b" & NLig) = TextBox6.Value
    If ComboBox5.Value <> "" Then .Range("c" & NLig) = TextBox22.Value


    NLig = .Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row
    .Range("A" & NLig) = ComboBox6.Value
    .Range("b" & NLig) = TextBox3.Value
    If ComboBox6.Value <> "" Then .Range("c" & NLig) = TextBox22.Value
  End With
End Sub

A+
 
Vote positif 0 Vote négatif
Re : ligne de formulaire

Bonjour roybaf

il est joli ton userform
NLig = .Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row .Range("A" & NLig) = ComboBox14.Value .Range("b" & NLig) = TextBox23.Value If ComboBox14.Value = "" Then Else: .Range("c" & NLig) = TextBox22.Value End If
Cliquez pour agrandir...
je pense qu'il pourrait y avoir une erreur au niveau de ComboBox 14 car en suivant la logique du code présenté plus haut, il pourrait s'agir du ComboBox 3

ou alors c'est peut-être à cause ce cette ligne manquante dans le 5ème niveau ----> With Sheets("DONNEES")
NLig = .Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row
Cliquez pour agrandir...

mais sans voir le fichier, difficile de pouvoir répondre avec précision

à+
Philippe

Édit: Bonjour Bruno
 
Vote positif 0 Vote négatif
Re : ligne de formulaire(résolu)

merci vous deux, bruno ton code fonctionne nikel!!! et phlaurent avais raison j'ai zapé la ligne NLig = .Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row.

merci encore un problème résolu grâce à vous!!

Pourriez vous me dire quel est le code à entrer dans ma combo pour intégrer une liste nommée car j'ai une plage de cellule dans la rowsource de mon CB mais il y a des vides.

Merci résolu
 
Dernière édition:
Vote positif 0 Vote négatif
Re : ligne de formulaire(résolu)

merci vous deux, bruno ton code fonctionne nikel!!! et phlaurent avais raison j'ai zapé la ligne NLig = .Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row.

merci encore un problème résolu grâce à vous!!

Pourriez vous me dire quel est le code à entrer dans ma combo pour intégrer une liste nommée car j'ai une plage de cellule dans la rowsource de mon CB mais il y a des vides.

Merci résolu
merci à tous!
 
Vote positif 0 Vote négatif
Re : ligne de formulaire

Code: 
Private Sub masse_Click()
salaire.TextBox22.Value = Me.TextBox11.Value
salaire.Show
Dim cellule As Range
With Sheets("SALARIE")
    For Each cellule In Range("A7:A" & Range("A65535").End(xlUp).Row)
    If cellule <> "" Then
    salaire.ComboBox1.AddItem cellule
    salaire.ComboBox2.AddItem cellule
    salaire.ComboBox14.AddItem cellule
    salaire.ComboBox4.AddItem cellule
    salaire.ComboBox5.AddItem cellule
    salaire.ComboBox6.AddItem cellule
    End If
With Sheets("ASSOCIE")
    For Each cellule In Range("A7:A" & Range("A65535").End(xlUp).Row)
    If cellule <> "" Then
    salaire.ComboBox13.AddItem cellule
    End If
Next cellule
End With
End With
End Sub

J'ai essayer d'adapter ton code mais sa ne fonctionne pas, mes listes sont vides. j'ai bien supprimé les rowsource des comboboxs.

Je suis vraiment pas doué en vba...
 
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

thunder23
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
319
thunder23
thunder23
C
  • Question Question
Microsoft 365 worksheet_change
2
Réponses
29
Affichages
497
CortoXls
C
N
  • Question Question
Listbox click
Réponses
10
Affichages
284
ChTi160
ChTi160
F
  • Résolu(e)
Autres Insérer une ligne
2 3
Réponses
36
Affichages
2 K
francescofrancesco
F
F
  • Question Question
Microsoft 365 aide VBA excel
Réponses
4
Affichages
464
Oneida
Oneida
K
  • Résolu(e)
XL 2016 Affichage TextBox
Réponses
6
Affichages
256
KRUG WOO
K
Nicolas JACQUIN
  • Question Question
XL 2019 Gérer la descente d'une cellule colorer selon un timer
2 3 4
Réponses
56
Affichages
2 K
Rheeem
R
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
668
Gestionnaire_rh
G
klin89
  • Question Question
Microsoft 365 Méthode Evaluate pour se dispenser d'une boucle imbriquée
Réponses
14
Affichages
492
patricktoulon
patricktoulon
J
  • Question Question
Microsoft 365 Userform comboboxes indexés
Réponses
8
Affichages
235
jp26200
J
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
545
spike29
S
A
  • Question Question
VBA qui fonctionnait avant, mais ne fonctionne plus avec le 64 bits
Réponses
2
Affichages
355
patricktoulon
patricktoulon
lestoiles1
  • Question Question
XL 2013 Sub commentaire
Réponses
2
Affichages
157
lestoiles1
lestoiles1
E
  • Résolu(e)
XL 2019 transfer listbox vers une colonne à partir de la 4 ligne
Réponses
2
Affichages
237
escudo
E
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
508
telemarrk
T
J
  • Question Question
XL 2021 transfert listview vers feuille excel
Réponses
9
Affichages
322
Piment
P
VBA_dev_Anne_Marie
  • Question Question
Microsoft 365 VBA ADODB doublons
Réponses
1
Affichages
181
dysorthographie
dysorthographie
B
  • Question Question
Autres Problème d'adaptation du contenu d'une listbox
Réponses
7
Affichages
215
jurassic pork
jurassic pork
VBA_dev_Anne_Marie
  • Question Question
Microsoft 365 VBA : copier les adresses
Réponses
7
Affichages
345
VBA_dev_Anne_Marie
VBA_dev_Anne_Marie
C
  • Question Question
Microsoft 365 Supprimer ligne selon contenu cellule (résolu)
Réponses
7
Affichages
150
job75
job75
Retour