Raccourcir code
Bonjour a tous , cela va vous paraitre bête mais comment éviter ce genre de répétition ? J'ai chercher un peu sur le forum mais je ne trouve pas la solution
Else
Dim ligne As Integer
If MsgBox("confirmez-vous l'ajout des données?", vbYesNo, "confirmation") = vbYes Then
Worksheets("Feuil1").Select
ligne = Sheets("Feuil1").Range("A456541").End(xlUp).Row + 1
Cells(ligne, 1) = ComboBox1.Value
Cells(ligne, 2) = TextBox1.Value
Cells(ligne, 3) = TextBox2.Value
Cells(ligne, 4) = TextBox3.Value
Cells(ligne, 5) = TextBox4.Value
Cells(ligne, 6) = TextBox5.Value
Cells(ligne, 7) = TextBox6.Value
Cells(ligne, 8) = TextBox7.Value
Cells(ligne, 9) = TextBox8.Value
Cells(ligne, 10) = TextBox9.Value
Cells(ligne, 11) = TextBox10.Value
Cells(ligne, 12) = TextBox11.Value
Cells(ligne, 13) = TextBox12.Value
Cells(ligne, 14) = TextBox13.Value
Cells(ligne, 15) = TextBox14.Value
Cells(ligne, 16) = TextBox15.Value
Cells(ligne, 17) = TextBox16.Value
Cells(ligne, 18) = TextBox17.Value
Cells(ligne, 19) = TextBox18.Value
Cells(ligne, 20) = TextBox19.Value
Cells(ligne, 21) = TextBox20.Value
Cells(ligne, 22) = TextBox21.Value
Cells(ligne, 23) = TextBox22.Value
Cells(ligne, 24) = TextBox23.Value
Cells(ligne, 25) = TextBox24.Value
Cells(ligne, 26) = TextBox25.Value
Cells(ligne, 27) = TextBox26.Value
Cells(ligne, 28) = TextBox27.Value
Cells(ligne, 29) = TextBox28.Value
Cells(ligne, 30) = TextBox29.Value
Cells(ligne, 31) = TextBox30.Value
Cells(ligne, 32) = TextBox31.Value
Cells(ligne, 33) = TextBox32.Value
Cells(ligne, 34) = TextBox33.Value
Cells(ligne, 35) = TextBox34.Value
Cells(ligne, 36) = TextBox35.Value
Cells(ligne, 37) = TextBox36.Value
Cells(ligne, 38) = TextBox37.Value
Cells(ligne, 39) = TextBox38.Value
Cells(ligne, 40) = TextBox39.Value
Cells(ligne, 41) = TextBox40.Value
Cells(ligne, 42) = TextBox41.Value
Cells(ligne, 43) = TextBox42.Value
Unload Fichetechnique
Else
End If
End If
End Sub
Bien cordialement a mon aimable sauveur
Bonsoir
Merci d'utiliser les balises de code disponible dans le menu en cliquant sur l'icone </> et en collant vos codes dans la fenêtre
J'ai corrigé votre post...
Pour votre demande
Else
Dim ligne As Integer
Dim i As Byte
If MsgBox("confirmez-vous l'ajout des données?", vbYesNo, "confirmation") = vbYes Then
With Sheets("Feuil1")
ligne = .Range("A" & Rows.Count).End(xlUp).Row + 1
.Cells(ligne, 1) = ComboBox1.Value
For i = 1 To 42
.Cells(ligne, i + 1) = Controls("TextBox" & i).Value
Next i
End With
Unload Fichetechnique
End If
End If
End Sub
si ok -->
Cordialement
Bonsoir , désole de la réponse tardive , je n'avait pas reçu de notification .
je le ferai la prochaine fois , merci de ton aide
cordialement
Bonjour,
Pour votre fil -->
Une petite présentation ICI serait la bienvenue
Si vous ne l'avez pas encore fait, je vous invite vraiment à prendre un peu de temps pour lire ces quelques lignes qui vous aideront dans vos demandes et réponses ainsi que sur les fonctionnalités de ce forum décrites par Sébastien administrateur du site -->
- La charte du forum
- Quelques fonctionnalités du forum à connaître
- Regardez aussi les petites icônes mises à votre disposition dans la barre de menu qui vous permettent :
---- de poster un code (</>)
---- de citer une phrase ( ' ')
---- de clôturer un fil lorsque vous en avez terminé (V)
Merci de votre participation
Cordialement