Probleme syntaxe combox

[Bouba]

Bonjour à tous
j'ai ecris le code suivant mais il y a une erreur qq part pouvez m'aider svp
merci

Option Explicit

Private Sub userform_activate()
Dim DercellA As String
DercellA = Range("Fiches Fournisseurs!B8").End(xlDown).Address
ComboBox1.RowSource = "Fiches Fournisseurs!B8:" & DercellA
End Sub

Private Sub combobox1_change()
Dim lig As Long
lig = ComboBox1.Value + 1
TextBox6.Value = Cells(lig, 6)
TextBox8.Value = Cells(lig, 8)
TextBox9.Value = Cells(lig, 9)
TextBox10.Value = Cells(lig, 10)
End Sub

 

[Ludwig]

Salut à toi,

Tu peux essayer ceci, peut- être que ... en attendant qu'un des pros de ce forum te donne une autre solution

Option Explicit

Private Sub userform_activate()
Dim DercellA As String
DercellA = Sheets("Fiches Fournisseurs").Range("B8").End(xlDown).Address
ComboBox1.RowSource = "Fiches Fournisseurs!" & DercellA
End Sub

Private Sub combobox1_change()
Dim lig As Long
lig = ComboBox1.Value + 1
TextBox6.Value = Cells(lig, 6)
TextBox8.Value = Cells(lig, 8)
TextBox9.Value = Cells(lig, 9)
TextBox10.Value = Cells(lig, 10)
End Sub

Ludwig

 

[Bouba]

Bonjour à tous
merci Ludwig mais il l'air de ne pas aimé la syntaxe suivante
ComboBox1.RowSource = "Fiches Fournisseurs!" & DercellA
bon journée
Bouba

 

[Hervé]

Bonjour

Par commodité, je n'utilise pas la propriété rowsource, mais additem :

Private Sub userform_activate()
dim c as range
with sheets("Fiches Fournisseurs")
for each c in .range ("b8:b" & .range("b65530").end (xlup).row)
combobox1.additem c
next c
end with
End Sub

Voila, en espérant t'avoir aidé.

Salut
Hervé

 

[Bouba]

Merci Hervé
ca marche tres bien deja un probleme est reglé mais par contre il ne m'affiche pas sur les listesbox les informations
bon journée
Bouba

 

[Hervé]

re

Je n'ai pas compris ton souci avec des listbox.

Pourrais-tu être plus précis ?

Salut
Hervé

 

[Bouba]

Paron Hervé
je te mets le lien vers mon classseur pour que tu puisse comprendre

http://soufiane3.free.fr/Copie%20de%20S.T.N.M%20COMPTABILITE%20(version%201).xls

 

[Hervé]

re

Après avoir ouvert ton fichier , l'avoir débugger (remplace time par timer), je me suis retrouver devant une quinzaine de feuilles......

Je lance VBA et me retrouve devant une quinzaine d'usf, je recherche un mot d'explication, surement bien caché car je ne l'ai pas trouvé.

Bon.....

Ce que tu appel des listbox doit être des textbox.

ton usf gestion des fournisseurs comprend 2 textbox pour renseigner l'adresse, par contre ta feuille de renvoi elle ne comprend qu'une colonne ????

Private Sub ComboBox1_Change()
Dim lig As Long
lig = ComboBox1.ListIndex + 8
With Sheets("Fiches Fournisseurs")
TextBox6.Value = .Cells(lig, 3)
TextBox8.Value = .Cells(lig, 4)
TextBox9.Value = .Cells(lig, 5)
TextBox2.Value = .Cells(lig, 6)
TextBox3.Value = .Cells(lig, 7)
End With
End Sub

Avec ce code, tu va renvoyer les valeurs de la feuille fournisseur vers les textbox de l'usf.

voila,

Salut
Hervé

 

[Bouba]

Ok je vais essayer ca et je vais simplifiées comme ca ca va etre plus clair
merci Hervé

 

[Bouba]

Ok je vais essayer ca et je vais simplifiées comme ca ca va etre plus clair

Ca marche comme je jeux genial merci

merci Hervé

 

[Bouba]

slt Hervé
oui c'est toujour moi.
je sens que je vais abuser pas tu me dire comment afficher une somme de plusieur colonne d'une feuille sur le texte d'un userforme
merci

 

[Hervé]

re

Comme ta demande manque de précision, j'ai bien peur que ma réponse en soit dépourvue aussi :

Voila 4 méthodes différentes pour additionner les valeurs des colonnes A à C, et renvoi vers un textbox :

----------------------------------------
TextBox1 = Application.WorksheetFunction.Sum(Range("a1:c" & Range("a65530").End(xlUp).Row))
----------------------------------------
For i = 1 To 3
somme = somme + Application.WorksheetFunction.Sum(Columns(i))
TextBox1 = somme
Next i
----------------------------------------
For Each c In Range("a1:c65530")
somme = somme + c
Next c
TextBox1 = somme
----------------------------------------
For ligne = 1 To 65530
For colonne = 1 To 3
somme = somme + Cells(ligne, colonne)
Next colonne
Next ligne
TextBox1 = somme
----------------------------------------
Et enfin une méthode à ne pas utiliser parce que jamais testé, je n'ai jamais eu d'ordinateur assez puissant lol

somme = somme + Cells.Value
TextBox1 = somme

Salut
Hervé