Combobox

[xa]

Bonjour,

Dans mon code ci-dessous il n'y a que le N° du combobox qui varie, le code ci dessous ne fonctionne pas mais auriez vous une idée?
Dim i As Integer
Dim n As Variant
If Label34.Visible = True Then
n=36
end if

If Label36.Visible = True Then
n=42
end if

If Me.ComboBox(n).Value = "" Then GoTo erreur
Sheets("Donnees").Select
Columns("A:A").Select
Set marech = Selection.Find(What:=ComboBox(n), After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False)
If Not marech Is Nothing Then
'Rien ne se passe
Else
i = 1
Do While Not IsEmpty(Sheets("Donnees").Cells(i, 1))
i = i + 1
Loop
With Sheets("Donnees")
.Cells(i, 1) = Me.ComboBox(n).Value
End With
Columns("A:A").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

Me.ComboBox(n).Value = ""
i = 2
Do While Not IsEmpty(Sheets("Donnees").Cells(i, 1))
i = i + 1
Loop
Me.ComboBox(n).RowSource = "Donnees!A1:A" & i - 1
Exit Sub
erreur:
MsgBox "Veuillez renseigner tous les champs!", vbExclamation, " "
End If
End If

Merci d'avance

Aurevoir

 

[@+Thierry]

Bonjour Xa, le Forum

Pas évident de te lire, sans fichier, et aussi dans ce code un tant soit peu embrouillé.

Déjà quel est le message d'erreur ? et à quelle ligne ?

En tout cas on ne peut pas apppeler depuis une procédure une ComboBox "ComboBox(n)" de cette manière.

Je te conseille de regarder ma démo sur les mise à jour en masse de Control ActiveX (url=http://www.excel-downloads.com/html/French/forum/messages/1_40731_40731.htm]DEMO UserForm MAJ/RAZ/Report En Masse par Boucles sur Controls (X Méthodes)[/url] et d'essayer d'adapter une des boucles pour retourner un truc du genre > If CTRL.name = "ComboBox" & n <

Bon Courage et bonne journée
@+Thierry

 

[xa]

Good afternoon

Tout d'abord merci thierry, je m'explique :
je dois utiliser le code ci-dessus 4 fois il n'y qu'une variable ce sont les combobox, et en faite je voudrais que si un label est visible alors n=36
donc il me lance le code sur le combobox36
Voila

est ce possible

Merci d'avance

 

[@+Thierry]

Bonsoir XB, le forum

Oui oui!! çà j'avais déjà capté...

Essaie de suivre le lien : (désolé je l'avais manqué !!) mais sinon c'est ce que tu cherches, si en plus du lien tu mets un peu de jugeotte... ou d'huile de coude selon ta région...

Lien supprimé

puis >>> If CTRL.name = "ComboBox" & n...

Bonne nuit
@+Thierry