XL 2010 variable colomncount to left

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 !

yahya belbachir

XLDnaute Occasionnel
Bonjour
j'ai ce code tout simplement pour trouver les valeurs des colonnes:
With Worksheets("Art")
'For j = 43 To 46
' For i = 1 To .Range("A" & Rows.Count).End(xlUp).Row
' If USF.Controls("TBox" & j).Value = .Cells(i, 1).Value Then
' Lig = i
' For Col = 1 To .Cells(1, Columns.Count).End(xlToLeft).Column
' If USF.ComboBox55.Value = .Cells(1, Col).Value Then
' USF.Controls("TBox" & j - 19).Value = .Cells(i, Col)
ceci fonctionne très bien. mais je me coince quand je fais la même chose pour un tableau pour importer les donnéer d'un fichier txt file et j'ai fais le code suivant qui n'a pas fonctionné:
open file.txt....etc bla bla bla ceci marche bien.
For j = 43 To 46
For i = 1 To UBound(CArt, 1) ''''''''''''''''''''là je ne sais pas si c'est correcte.
If USF.Controls("TBox" & j).Value = CArt(i, 1) Then
Lig = i
For Col = 1 to ubound (CArt, 1) c'est ici mon probléme

If USF.ComboBox55.Value = CArt(1, Col) Then
USF.Controls("TBox" & j - 19).Value = CArt(i, Col).Value






merci infiniment
 
Bonjour yahya
Si tu veux boucler sur les Colonnes.
C'est : For Col = 1 to Ubound (CArt, 2) ' 2 et Non 1 (1 on boucle sur les Lignes)
VB:
 For Col = 1 to Ubound (CArt, 2)
jean marie
Bonjour Monsieur Jean Marie
je vous remercie pour la réponse:
j'ai essayé ceci mais n'a pas fonctionné.
par contre ceci a bien fonctionné: " For Col = 3 To UBound(CArt)"
Cordialement
Yahya
 
- 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
8
Affichages
487
Réponses
3
Affichages
676
  • Question Question
XL 2021 VBA excel
Réponses
4
Affichages
189
  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
665
Réponses
5
Affichages
193
Réponses
10
Affichages
301
Retour