Extraire ligne variable dans TextBox

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 !

Temjeh

XLDnaute Accro
Bonjour et merci d'avance

J'ai ceci que l'on m'a donné pour extraire les 4 lignes d'un textbox vers cells:
t = ActiveCell.Row
On Error Resume Next
For k = 3 To 6
Cells(t, k) = Split(TextBox1.Text, Chr(10))(k - 3)
If Err > 0 Then Err.Clear: Exit For
Next k

J'ai plus de donné maintenant (7 lignes) et j'aimerais qu'il saute dans la boucle la ligne 2, 3, 4
et coller vers cells la 1, 5, 6 ,7

Merci

Temjeh
 
Re : Extraire ligne variable dans TextBox

Bonjour Temjeh 🙂,
Non testé
Code:
t = ActiveCell.Row
MonArray = Array(1, 5, 6, 7)
On Error Resume Next
For k = 3 To 6
Cells(t, k) = Split(TextBox1.Text, Chr(10))(MonArray(k - 3) - 1)
If Err > 0 Then Err.Clear: Exit For
Next k
devrait fonctionner.
Bon courage 😎
 
Re : Extraire ligne variable dans TextBox

Bonjour Temjeh
Bonjour JNP

Une autre idée

Code:
Private Sub CommandButton1_Click()
  t = ActiveCell.Row
  pos = 3
  On Error Resume Next
  For k = 0 To 6
  If k < 1 Or k > 3 Then
    Cells(t, pos) = Split(TextBox1.Text, Chr(10))(k)
    pos = pos + 1
  End If
    If Err > 0 Then Err.Clear: Exit For
  Next k
End Sub
 
- 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

Réponses
4
Affichages
201
Réponses
5
Affichages
270
  • Question Question
XL 2021 VBA excel
Réponses
4
Affichages
179
Réponses
4
Affichages
426
Retour