Est ce possible de simplifier ce code ?

bonjour le forum

Voila j'ai des données qui s'enregistre dans une feuille de calcule nommée TCOOLANT avec des texte box et des option button que j'ai renommé pour mes besoins

les textbox = VDM1 etc
les optionbutton = OPM1 etc

je cherche si c'est possible de simplifier mon code que voici

Code:

---

1 2 3 4 5 6 7 8 9 10

Sheets("TCOOLANT").Range("A65536").End(xlUp).Offset(1, 0).Value = CStr(VDM1)   Sheets("TCOOLANT").Range("B65536").End(xlUp).Offset(1, 0).Value = CStr(VDM2) Sheets("TCOOLANT").Range("C65536").End(xlUp).Offset(1, 0).Value = CStr(VDM3) Sheets("TCOOLANT").Range("D65536").End(xlUp).Offset(1, 0).Value = CStr(VDM4)   Sheets("TCOOLANT").Range("E65536").End(xlUp).Offset(1, 0).Value = IIf(OPM1, "Liège", "") Sheets("TCOOLANT").Range("E65536").End(xlUp).Offset(1, 0).Value = IIf(OPM2, "Jemeppe", "") Sheets("TCOOLANT").Range("F65536").End(xlUp).Offset(1, 0).Value = IIf(OPM3, "Liège", "") Sheets("TCOOLANT").Range("F65536").End(xlUp).Offset(1, 0).Value = IIf(OPM4, "Jemeppe", "")

---

et ainsi de suite pour mes autres textbox et option buttons

d'avance merci pour votre aide

Pourrai tu préciser un peu.
Tu pourrai essayer d'ecrire ça sous forme de boucle, mais avec ce que tu as donné je suis pas sur que ça vaille le coup. Combien de ligne as tu?

Tu peux déja faire set Sh=sheets("ta feuille") si tu veux l'appeler souvent ça évite que ce soit long

sinon en faisant

Code:

---

1 2 3 4 5

with Sheet("ta feuille") .range... .range... ... end with

---

Si la feuille en question est active alors tu pêux même enlever le Sheet("").

merci pour ta réponse

j'ai plus ou moin 40 textbox et la meme chose avec des option button

actuelement je l'ai fait comme cité plus haut
mais mon application plante tout le temp
merci

En gros tu as 40 colonnes avec des textbox en bas de la colonne et en fonction de ce qu'il y a dans les textbox de la colonne tu veux ecrire un truc dans la case en dessous?

pour la boucle tu peux faire:

Code:

---

1 2 3

For i=1 to i=n° de la dernière colonne Sheets("TCOOLANT").column(i).End(xlUp).Offset(1, 0).Value = CStr(VDM & i) next i

---

même chose pour les opm

Citation:

---

Envoyé par diude54

En gros tu as 40 colonnes avec des textbox en bas de la colonne et en fonction de ce qu'il y a dans les textbox de la colonne tu veux ecrire un truc dans la case en dessous?

---

sorry j'ai pas été asser clair

j'ai un userform multi page

avec des textbox et des option buton dont je doit recuperer les valeurs pour aller les mettre sur une feuille en collonne en fonction de la date du jour
donc aujourdh'ui pour commencer ma premire textbox sera en A2 la deuixieme en B2 et ainsi de suite pour les autres et demain la meme chose mais dessous donc A3, B3 etc

Même idée que précedemment mais remplace le numéro de la dernière colonne par le numero de la dernière textbox.

tu devrais aussi essayer de mettre au lieu

Code:

---

Cstr(VDM1)

---

plutôt

Code:

---

Cstr(VDM1.Value)

---

Aussi je voit pas l'intéret de faire Cstr, si tu utilise juste

Code:

---

VDM1.Value

---

ce que tu as saisi dans la textbox sera inscrit dans la cellule

Tu devrais aussi pouvoir lister les textbox de ton userform et faire un truc du genre:

Code:

---

1 2 3 4 5

Dim txt as Oleobject.textbox   For each txt in userform1 ton code next txt

---

mais je ne sais plus comment on declare une textbox.

Citation:

---

Envoyé par diude54

tu devrais aussi essayer de mettre au lieu

Aussi je voit pas l'intéret de faire Cstr, si tu utilise juste

Code:

---

VDM1.Value

---

ce que tu as saisi dans la textbox sera inscrit dans la cellule

---

j'ai mis le Cdtr car dans mes textbox c'est un nombre comme valeur et j'en ai besoin car c'est recopier dans la cellule sous forme de texte

Citation:

---

Envoyé par diude54

pour la boucle tu peux faire:

Code:

---

1 2 3

For i=1 to i=n° de la dernière colonne Sheets("TCOOLANT").column(i).End(xlUp).Offset(1, 0).Value = CStr(VDM & i) next i

---

même chose pour les opm

---

ton code ne marche pas j'ai une erreur 438
méthode non gérée par l'objet

Salut,

Essaie comme ceci:

Code:

---

Sheets("TCOOLANT").column(i).End(xlUp).Offset(1, 0).Value = CStr(Controls("VDM" & i))

---

++
Minick

exact ça ne fonctionne pas. On ne ppeut pas mettre de variable pour le nom d'un objet.
C'est le VDM & i qui ne fonctionne pas.
Tout de suite je ne vois pas comment contourner ça.
Cherche plutot du coté de for each textbox in userform

Citation:

---

Envoyé par Minick

Salut,

Essaie comme ceci:

Code:

---

Sheets("TCOOLANT").column(i).End(xlUp).Offset(1, 0).Value = CStr(Controls("VDM" & i))

---

++
Minick

---

meme message d'erreur :(

voila mon fichier que j'aimerai simplifier

http://www.megaupload.com/?d=5XWFV1V3

Bizarre ca fonctionne tres bien chez moi...

++

Tu dis avoir renommé tes controls, mais dans le fichier joint cen'est pas le cas.
Donc forcement ca ne marchera pas...

++

Je viens de m'apercevoir d'une petite coquille.
Il manque 1 's' a columns(i)

EDIT:
Si tu as un fichier ou tu as teste avec des controls renommés essaie deja ca.
Ensuite il te faudra modifier ton fichier.
Bon courage, et pense a lister les noms d'origines et les nouveaux noms
parce que tu vas devoir corriger tout ca ensuite dans le code...

++

Citation:

---

Envoyé par Minick

Je viens de m'apercevoir d'une petite coquille.
Il manque 1 's' a columns(i)

EDIT:
Si tu as un fichier ou tu as teste avec des controls renommés essaie deja ca.
Ensuite il te faudra modifier ton fichier.
Bon courage, et pense a lister les noms d'origines et les nouveaux noms
parce que tu vas devoir corriger tout ca ensuite dans le code...

++

---

ok merci cela fonctionne pour les textbox merci beaucoup
en ce qui concernent les optionbutton c'est la même chose ? tout en sachant que par exemple le option button 1 et 2 doivent s'inscrire dans la meme collone et pas une a la suite de l'autre
merci

J'ai quand meme un probleme , à chaque encodage cela remplace ma ligne précédente . moi je souhaiterai qu'elle se mettent en dessous

merci

Essaie en remplacant le columns par

Code:

---

...cells(65536, i).End(xlup...

---

++

thanks

Peux tu m'expliquer pour les option buttons si cela est possible aussi
merci

c'est chaud vu que utilise un texte (et pas l'etat)
organiser pour savoir quel texte marquer.

J'essaierai de te faire un exemple demain pour te montrer comme je ferais.
J'ai un peu de mal a trouver une facon simple de l'expliquer

++
Minick

j'ai un autre probleme
j'utilise ce code pour faire apparraitre un bouton lorsque toute mes texbox sont remplie

code

Code:

---

1 2 3 4 5 6 7 8 9

Option Explicit Dim M() As New soir, x As Byte, ctrl As Control Private Sub UserForm_Initialize() For Each ctrl In Controls If TypeOf ctrl Is MSForms.TextBox Then x = x + 1 ReDim Preserve M(1 To x): Set M(x).txt = ctrl End If: Next End Sub

---

et le module de classe suivanr

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Option Explicit Public WithEvents txt As MSForms.TextBox, x As Byte, ctrl As Control Private Sub txt_Change() For Each ctrl In UserForm2.Controls If TypeOf ctrl Is MSForms.TextBox Then If ctrl <> "" Then x = x + 1 End If: Next ctrl If x = 28 Then 'ne pas oublier de modifier UserForm2.CommandButton1.Visible = True Else UserForm2.CommandButton1.Visible = False End If: x = 0 End Sub

---

lorsque j utilise le code ci dessus

Code:

---

1 2 3 4 5

Private Sub CommandButton1_Click() 'bouton valider For p = 1 To 10 ' =n° de la dernière colonne Sheets("soir").Cells(65536, p).End(xlUp).Offset(1, 0).Value = CStr(Controls("VDS" & p)) Next p End Sub

---

j'ai le message d'erreur suivant

Citation:

---

erreur de compilation
variable non définie

---

d"apres l aide on me dit que c'est parce que j utilise une option explicite
et je sais pas comment définir ma variable

merci pour votre aide

Est ce que VDS1 à VDS10 existent et sont bien nommés comme tels?
Pour moi si tu peux cliquer sur ton commandbuttton1 cela signifie que tes macros précedant fonctionne sinon il serait caché.

Citation:

---

Envoyé par revemane

Code:

---

1 2 3 4 5 6 7 8 9

Option Explicit Dim M() As New soir, x As Byte, ctrl As Control Private Sub UserForm_Initialize() For Each ctrl In Controls If TypeOf ctrl Is MSForms.TextBox Then x = x + 1 ReDim Preserve M(1 To x): Set M(x).txt = ctrl End If: Next End Sub

---

---

Tu avais la solution quand je te disais de chercher du coté de

Code:

---

For each textbox in userform

---

Citation:

---

Code:

---

1 2 3 4 5

Private Sub CommandButton1_Click() 'bouton valider For p = 1 To 10 ' =n° de la dernière colonne Sheets("soir").Cells(65536, p).End(xlUp).Offset(1, 0).Value = CStr(Controls("VDS" & p)) Next p End Sub

---

---

Declare p en byte

Code:

---

1 2 3 4 5 6 7

Private Sub CommandButton1_Click() 'bouton valider dim p as Byte   For p = 1 To 10 ' =n° de la dernière colonne Sheets("soir").Cells(65536, p).End(xlUp).Offset(1, 0).Value = CStr(Controls("VDS" & p)) Next p End Sub

---

++
Minick

merci pour l'info


dit je pensait plutot que de mettre des optionbutton je faisait ca avec des combobox

est ce que ce serait plus facile

et aussi comment intégrer ces combobox renomée en CB1, etc pour le besoin

dans le code de visibilité du bouton et dans le code pour enregistrer les données

d'avance merci

Chaque jour de nouvelles données à ajouter en fin de colonnes, ça j'ai compris.
Une question : Ces données sont-elles placées sur la même ligne pour un jour donné ?


Une remarque : Dans ton code, tu places déjà deux fois tes données dans la même cellules

Citation:

---

Sheets("TCOOLANT").Range("F65536").End(xlUp).Offset(1, 0).Value = IIf(OPM3, "Liège", "")
Sheets("TCOOLANT").Range("F65536").End(xlUp).Offset(1, 0).Value = IIf(OPM4, "Jemeppe", "")

---

Ce n'est pas forcément une erreur, c'est toi qui vois :roll:
Mais réponds à ma question ;)

Edit
Si ce n'est pas une erreur, j'imbriquerais plutôt les deux IIF pour une question de lisibilité pour un tiers qui ne connaît pas ton code (ici, le tiers c'est moi :mouarf:)

Code:

---

Sheets("TCOOLANT").Range("F65536").End(xlUp).Offset(1, 0).Value = IIf(OPM3, "Liège", IIf(OPM4, "Jemeppe", ""))

---

Mais attention, la condition n'est pas exactement la même (si OPM3 = "Liège" et OPM4= "Jemeppe", c'est la première condition qui sera remplie)

oui ce code la c'est ce que j'avais fait auparavant mais c'est tres lourd et beaucoup de plantage

donc je viens de remplacer les Options buttons par des Combobox avec choix comme ca je sélectionne la valeur soit liege ou jemeppe et cette valeur va s'inscrire dans une colonne

donc maintenant j'aimerai introduire ces combobox ( toute nommées en CB1,CB2, etc ) dans mon code de vérification pour la visibilité de mon bouton comme pour les textbox donc le bouton apparaitra uniquement si textbox et combobox sont remplies
et puis ajouter ses combobox au code de minik pour enregistrer les données des textbox et combobox dans ma feuille excel et en colonne

voila

merci pour ton aide

J'ai lu qu'on t'avait conseillé de numéroter tes contrôles selon le N° de colonne. L'as-tu fait ?
Si txtbox3 correspond à la colonne 5, change son N°
Et comme tu n'auras pas de Combo ds la colonne 5, puisqu'il y aura déjà un txtbox, tu peux le numéroter selon la colonne correspondante.
Ceci fait, tu modifies le code en conséquence. Pour ça tu as deux méthodes, la première identifiant le type de contrôle, la seconde s'en dispensant mais impliquant la vérification du nom du contrôle. Et puisque les noms des uns ou des autres comportent tous les deux trois caractères, c'est facile.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Dim Ctr as control, p as integer, NomCtr as string For each ctr in Userform1.controls NomCtr = Left(ctr.name,3) if NomCtr = "OPM" or NomCtr ="VDS" then p = p + 1 Select Case NomCtr Case "OPM" Sheets("soir").Cells(65536, p).End(xlUp).Offset(1, 0).Value = CStr(Controls("OPM" & p)) Case "VDS" Sheets("soir").Cells(65536, p).End(xlUp).Offset(1, 0).Value = CStr(Controls("VDS" & p)) End select endif Next

---

Tu peux tester ça pour moi ?

merci pour ton code
mais j'ai une erreur

Citation:

---

erreur d'execution 451

la procedure proprerty let n'est pas définie et la procédure property get n a pas renvoye d'objet

---

moi j'ai mis mon code dans mon bouton validé

bien toi

Sur quelle ligne, l'erreur ?
Où est ton bouton ? Dans l'userform ? As-tu adapté le nom de l'userform ?
Montre ton code ds ton bouton
A+

ca plante à ce niveau

oui j'ai bien renomer mon formulaire

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub CommandButton1_Click() 'bouton valider ' validation des données vers la feuille données Dim ctr As Control, p As Integer, NomCtr As String For Each ctr In UserForm2.Controls NomCtr = Left(ctr.Name, 3) If NomCtr = "VDM" Or NomCtr = "Cbm" Then p = p + 1 Select Case NomCtr Case "VDM" Sheets("données").Cells(65536, p).End(xlUp).Offset(1, 0).Value = ctr(Controls("VDM" & p)) Case "Cbm" Sheets("données").Cells(65536, p).End(xlUp).Offset(1, 0).Value = ctr(Controls("Cbm" & p)) End Select End If Next

---

Je pense que c'est

Code:

---

ctr(controls("VDM" & p))

---

qui ne va pas
Essai de mettre

Code:

---

Cstr(ctr)

---

Ou

Code:

---

Cstr(controls("VDM" & p))

---

re

voici mon fichier pour mieu comprendre

http://www.megaupload.com/?d=OJ7ZI2AD

explication

dans mon multipage nomé menu fluide
j'ai besoin de toute les valeurs des textbox et des combobox des sous multipage

dans le menu cave
j'ai besoin de toute les valeurs des textbox et combobox des sous multipages

dans le menu index eau demine
j'ai besoin des valeurs des textbox que j'ai mis en jaune

dans le menu centrifugeuse
j'ai besoin des valeurs des combobox


j'aimerai que c'est valeur soient enregistrée dans la feuille données
j'ai nommé mes textbox de 1 à ..... sous la forme de VDM1 , etc et mes combobox sous la forme Cbm, etc

en plus pour ne pas oublier d'encoder une donnée je souhaite faire apparaitre mon bouton uniquement quand toutes les textbox et combobox des page citée au dessus sons remplie

voila

merci d'avance pour votre aide

Citation:

---

Envoyé par revemane

j'ai nommé mes textbox de 1 à ..... sous la forme de VDM1 , etc et mes combobox sous la forme Cbm, etc

---

Citation:

---

Envoyé par ousk'

J'ai lu qu'on t'avait conseillé de numéroter tes contrôles selon le N° de colonne. L'as-tu fait ?

---

Pour numéroter tes contrôles, donne à chacun le N° de la colonne correspondante, textbox, combos ou listes.
Tu peux avoir ainsi
Txtbox1 puis Combo2 puis List3 puis txtbox4, txtbox5, combo6
Et ensuite utilise mon code corrigé par diude (en utilisant Cstr(ctr) ) et en adaptant la ligne

Citation:

---

If NomCtr = "VDM" Or NomCtr = "Cbm" Then

---

ATTENTION : Je crois bien qu'ici la case du nom du contrôle est importante.
A+

PS - Pour plus de sûreté, écris

Code:

---

If Ucase(NomCtr) = "VDM" Or Ucase(NomCtr) = "CBM" Then

---

pour autant que les noms des textbox commencent tous par VBM et ceux des combobox par CBM...

merci pour l'info

et maintenant que j'ai renommé mes txtbox et combobox pa n° de colone

comment doisje faire pour rendre mon vouton vible avec le code suivant
que l'on ma donner sur le forum

code

Code:

---

1 2 3 4 5 6 7

'vérification du contenu des texbox pour rendre visible le bouton valider For Each ctrl In Controls If TypeOf ctrl Is MSForms.TextBox Then x = x + 1 ReDim Preserve M(1 To x): Set M(x).txt = ctrl End If: Next End Sub

---

module de classe

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub txt_Change() For Each ctrl In UserForm2.Controls If TypeOf ctrl Is MSForms.TextBox Then If ctrl <> "" Then x = x + 1 End If: Next ctrl If x = 56 Then 'ne pas oublier de modifier UserForm2.CommandButton1.Visible = True Else UserForm2.CommandButton1.Visible = False End If: x = 0 End Sub

---

le 56 correspond au nombre total de combobox et textbox
mais cela ne fonctionne pas
merci

56 correspond-il au nombre de colonnes utilisées ?
Ce code sert-il à gèrer l'apparition d'un bouton "Validation" ?
Les textbox dont il est question dans ton code sont-ils les mêmes que ceux qui servent à renseigner ta feuille de calculs ?

Si oui aux trois quesitons,alors il est facile de tester le nom du dernier contrôle (qui est ctrl.name) et de simplifier ton code

Code:

---

UserForm2.CommandButton1.Visible = Ctrl.name = "Textbox" & 56

---

Et tu remplaces "Textbox" par le nom du contrôle que tu concatènes avec le N°.
Si non, précise ton problème (à quoi sert le bouton ? Quelles conditions sont-elles nécessaire pour le faire apparaître ? Etc.)
A+
Bonne nuit

salut oui le 56 correspond au nombres de colonne de ma feuille de calcul

ce que je cherche à faire c'est de faire apparaitre mon bouton validation uniquement si toutes mes textbox ou combobox sont remplient pour eviter des enregistrement incomplet

donc pour ton code , fonctionne til uniquement la vérification sur le dernier control ou bien tient il compte de tout les controls

question : pour ton code ci dessus ou dois je le mettre ?
dois je supprimer mon module de classe et mon code de mon precedent post ?

merci

Hello,
Là tu nous donnes les infos par petit bout. Pour te répondre il nous en faut plus.
Comment déclares-tu "txt" ? Une collection ? Dans quel module ? Quel code.

La vérification suivante utilise la macro txt_Change du module de classe (donc indispensables tous les deux) mais ne vérifie que les textbox, pas des combobox.

Citation:

---

'vérification du contenu des texbox pour rendre visible le bouton valider

---

En outre, tu dois modifier le module de classe puisque sur les 56 contrôles tous ne sont pas des Textbox (tu me corriges si je me trompe)
Si le dernier contrôle à remplir est un textbox, tu peux le modifier ainsi mais si les contrôles sont remplis de manière aléatoire (un combo étant le dernier contrôle sélectionné) le bouton n'apparaîtra pas.

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub txt_Change() For Each ctrl In UserForm2.Controls If TypeOf ctrl Is MSForms.TextBox or _ TypeOf ctrl Is MSForms.ComboBox Then If ctrl <> "" Then x = x + 1 End If Next ctrl UserForm2.CommandButton1.Visible = x = 56 x = 0 End Sub

---

On peut néanmoins le faire fonctionner mais pour cela tu devras imposer le dernier contrôle à renseigner qui devra être un Textbox (auquel cas il faudra modifier la procédure txt_Change ds le module de classe)

Mais pour le moment, teste le code "comme ça", on verra pour imposer le dernier contrôle à renseigner. En attendant je regarde une autre solution.
A+

En utilisant une autre méthode on peut vérifier à la fois les combo et les textbox mais tu as plusieurs modifs à faire
Dans le module standard, en tête de module, ajoute

Code:

---

Public Collect As Collection

---

Dans userform_initialize d'userform2, ajoute

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Sub UserForm_Initialize() 'De l'userform2 'Au code existant tu ajoutes... ************* Dim Cbx As Control Dim Cl1 As Classe1 Set Collect = New Collection For Each Cbx In Me.Controls If TypeOf Cbx Is MSForms.ComboBox Then Set Cl1 = New Classe1 Set Cl1.Liste = Cbx Collect.Add Cl1 End If Next Cbx '... tout ça ******************************   End Sub

---

Dans le module de classe, en plus de la macro de mon message précédent, ajoute en tête de module

Code:

---

Public WithEvents Liste As MSForms.ListBox

---

et ensuite la macro

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub Liste_Click() Dim ctrl As Control, x As Integer For Each ctrl In UserForm1.Controls If TypeOf ctrl Is MSForms.TextBox Or _ TypeOf ctrl Is MSForms.ComboBox Then If ctrl <> "" Then x = x + 1 End If Next ctrl UserForm1.CommandButton1.Visible = x = 56 x = 0 End Sub

---

Ainsi, que l'utilisateur termine sa saisie par un combo ou un textbox, la vérification se fera.
Par contre, si tu créais un tableau des cellules renseignées, tu pourrais renvoyer l'utilisateur pile poil sur le prochain contrôle non renseigné. Mais c'est une autre histoire qui, si elle t'intéresse, te sera racontée plus tard :mouarf:
En attendant, parle-nous de tes avancées ;)
Bonne journée

re et merci pour ton code


mais la je soince un peu et je ne sait pas ou metre les codes que tu me propose pour la macro

dans le userform initialyse pas de prob
pour le module de classe aussi pas de prob
et pour la macro la je vois pas

merci

Je me suis donné la peine de décrire ce que tu dois faire, je ne vais donc pas me répéter. Lis ce que j'ai mis, je n'ai rien à ajouter.
Concerne les messages 46 et suivant.
Dans le module de classe tu dois laisser le code du message 46 et... lis ce que j'ai mis dans le message 47 pour la suite.
Bon courage

voila j'ai revu tous les post que tu m'a écrit mais dsl je n'y arrive pas

j'ai creer un formulaire de test avec 4 textbox et 3 combobox

et un bouton validé

donc pour les txtbox nommée comme suit VDM1, VDM2, VDM3,VDM6
et les combobox comme suit : CB4, CB5, CB7

les nombre correspondent au collonne de la feuille de calcul

et voici mon code de mon userform

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35

Option Explicit Dim M() As New UserForm1, x As Byte, ctrl As Control Public collect As Collection     Private Sub CommandButton1_Click() 'code End Sub   Private Sub UserForm1_Initialize() 'vérification du contenu des texbox pour rendre visible le bouton valider For Each ctrl In Controls If TypeOf ctrl Is MSForms.TextBox Then x = x + 1 ReDim Preserve M(1 To x): Set M(x).txt = ctrl End If Next Dim cbx As Control Dim cl1 As Classe1 Set collect = New Collection For Each cbx In Me.Controls If TypeOf cbx Is MSForms.ComboBox Then Set cl1 = New Classe1 Set cl1.Liste = cbx collect.Add cl1 End If Next cbx       End Sub   Private Sub UserForm_Click()   End Sub

---

et voici mon module de classe

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Option Explicit Public WithEvents txt As MSForms.TextBox, x As Byte, ctrl As Control Public WithEvents Liste As MSForms.ListBox Private Sub txt_Change() For Each ctrl In UserForm1.Controls If TypeOf ctrl Is MSForms.TextBox Or TypeOf ctrl Is MSForms.ComboBox Then If ctrl <> "" Then x = x + 1 End If Next ctrl UserForm1.CommandButton1.Visible = x = 7 x = 0     End Sub Private Sub Liste_Click() Dim ctrl As Control, x As Integer For Each ctrl In UserForm1.Controls If TypeOf ctrl Is MSForms.TextBox Or _ TypeOf ctrl Is MSForms.ComboBox Then If ctrl <> "" Then x = x + 1 End If Next ctrl UserForm1.CommandButton1.Visible = x = 7 x = 0 End Sub

---

voila quand je lance mon formulaire le bouton reste visble

je pense que je m'en mele les pinceaux quelque part $merci pour votre aide

salut,
en mettant un point d'arrêt dans ta fonction d'initialisation, vérifie que tu passes bien par toutes les boucles que tu souhaites mettre en place.