for i = 3 to 11 with UsfFDGSoff.Controls("combobox" & i) ' <> "" Then if .txt <> "" then For y = i + 1 To 11 If .text = UsfFDGSoff.Controls("combobox" & y) Then MsgBox "Doublon avec " & UsfFDGSoff.Controls("combobox" & y) End If Next y end If end with next i
If UsfFDGSoff.Controls("ComboBox" & i).Name <> "" Then
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionL'instruction With permet d'appliquer une série d'instructions à l'objet indiqué, sans qualifier à chaque fois le nom de l'objet. Par exemple, pour modifier plusieurs propriétés d'un seul objet, placez les instructions d'affectation de propriétés dans la structure de contrôle With ; vous ne faites ainsi référence qu'une seule fois à l'objet, au lieu de le faire à chaque affectation de propriété. L'exemple ci-dessous illustre l'utilisation de l'instruction With dans le cadre de l'affectation de valeurs à plusieurs propriétés d'un même objet.
With MonÉtiquette
.Height = 2000
.Width = 2000
.Caption = "Voici MonÉtiquette"
End With
MonÉtiquette.Height = 2000
MonÉtiquette.Width = 2000
MonÉtiquette.Caption = "Voici MonÉtiquette"
Puis heureusement qu'il y a des gens comme moi qui n'y connaisse rien sinon ben tu n'aurais pas d'occupation pour dépanner les autres...