Boucle avec deux conditions

C

Caillou

XLDnaute Impliqué

• 5 Septembre 2016

• #2

Bonjour,

Essayes plutôt :
Controls("label" & b).Caption = Sheets("data").Cells(1,b).text

Caillou

 

Vote positif 0 Vote négatif

C

CHALET53

XLDnaute Barbatruc

• 5 Septembre 2016

• #3

Bonjour,

Une petite correction également pour la recherche de c :

Sub userform_initialize()
c = Sheets("data").Range("a1").End(xlToRight).Column
For b = 1 To c
Controls("Label" & b).Caption = Cells(1, b)
Next b
End Sub

a+

 

Vote positif 0 Vote négatif

P

phileas

XLDnaute Nouveau

• 6 Septembre 2016

• #4

Bonjour et merci a tous les deux

Je l'ai adapté pour des combobox et ça fonctionne bien
c = Sheets("data").Range("a1").End(xlToRight).Column
For b = 8 To 37
Sheets("data").Cells(1, b).Value = Controls("combobox" & b).Text
Next b

Mon problème est que j'ai deux séries de combobox des no 8 a 37 et 108 a 137, quand je veux adapter ce code a la la deuxième série ça ne fonctionne pas !!!

c = Sheets("data").Range("a2").End(xlToRight).Column
For b = 108 To 137
Sheets("data").Cells(2, b).Value = Controls("combobox" & b).Text
Next b

Phil

 

Vote positif 0 Vote négatif

C

CHALET53

XLDnaute Barbatruc

• 6 Septembre 2016

• #5

Bonjour,

A quoi te sert la formule qui calcule c puisque tu ne t'en sers pas dans la boucle
Sans fichier exemple, pas facile de tout comprendre

a+

 

Vote positif 0 Vote négatif

P

phileas

XLDnaute Nouveau

• 7 Septembre 2016

• #6

Bonjour,

Tu as raison la formule qui calcule c n'a rien a faire dans mon exemple !! désolé
voici un fichier qui permettra peut être de comprendre ma problématique.

J'ai essayé avec des combobox qui se suivent et ça fonctionne donc mon probleme vient du fait qu'il y a des trous entre les no de combobox; existe t'il une autre solution que de devoir remplacer tous mes no de combos?

Pour info, dans ce fichier je voudrais avoir dans les combobox 101 a 104 les infos de la ligne e5 à h5

Merci d'avance

 

Pièces jointes

• pour envoi au forum.xlsm

  21.4 KB · Affichages: 39

Vote positif 0 Vote négatif

C

CHALET53

XLDnaute Barbatruc

• 7 Septembre 2016

• #7

Re,

For c = 101 To 104
Sheets("Feuil1").Cells(5, c).Value = Controls("combobox" & c).Text
Next c

Cela fonctionne mais écrit le résultat sur la ligne 5 et dans les colonnes 101(CW) à 104
tu veux quoi ?

a+

 

Vote positif 0 Vote négatif

P

phileas

XLDnaute Nouveau

• 8 Septembre 2016

• #8

Bonjour,

je veux que ça écrive dans les colonnes e a h pour ce fichier d'ou ma demande si il existe pas un autre code !!

voili, voilou
phil

 

Vote positif 0 Vote négatif

C

CHALET53

XLDnaute Barbatruc

• 8 Septembre 2016

• #9

modifier le code ainsi :

col = 4
'****************** ne fonctionne pas
For c = 101 To 104
col = col + 1
Sheets("Feuil1").Cells(5, col).Value = Controls("combobox" & c).Text
Next c

a+

 

Vote positif 0 Vote négatif

P

phileas

XLDnaute Nouveau

• 9 Septembre 2016

• #10

merci beaucoup, petite modif logique !!

 

Vote positif 0 Vote négatif