aide vba

[roro666]

bonjour a tous
j'aimerai verouillier un CommandButton1 en fonction d'un ou deux textbox comment faut il faire merci de votre aide

 

[roro666]

les code couleur j'aimerai les modifier ou trouve ton la correspondance des H99ffc8 = vert ?
pour le reste j'ai pas trouve je vous fais voir ou il faut les metres merci de me dire ci c'est bon ou pas

 

[Dranreb]

Vous avez oublié de déclarer S As Worksheet dans la CBnImprimer_Click.
Utilisez ensuite partout S à la place de ActiveSheet.
Cette fourniture pourrait vous aider à trouver d'autre codes à spécifier à la méthode CouleurSympa en remplacement de ceux appliqués par défaut.

 

[roro666]

sa me donne tjrs une erreur de quoi sa peu venir merci
pour le cblx je modifie la couleur mais sa ne s'applique pas comment peu ton faire merci

 

[Dranreb]

Vous avec oublié Dim S as Worksheet
et Set S = ThisWorkBook.Workseets(ListBox2.List(ListBox2.ListIndex))
Et je vois toujours après des ActiveSheet au lieu de S.
Vous spécifiez vos 4 codes de couleurs personnalisés séparés par des virgules juste derrière CL.CouleurSympa. Si vous ne voulez aucun repérage coloré de l'état des ComboBox, n'invoquez pas du tout la méthode, bien sûr.

 

[roro666]

BONJOUR
Voila j'ai integre une colonne dans le fichier et j'aimerai soit une case a coche et qui me mette une croix dans la case correspondante comment faut*il faire pour que sa puisse marche mais il faut pas que la case si elle es pas cohe m'empeche de valider les informations saisi, et si la case es coche sa m' affiche tous les flexible en piece detache
et le fichier que vous m'avais fait fonctionne tres bien merci

 

[Dranreb]

Bonjour et bonne année.
Dans la GarnirTbx :

CheckBox1.Value = Not IsEmpty(VLgn(1, 10))

Dans la CBnValider_Click :

VLgn(1, 10) = IIf(CheckBox1.Value, "x", Empty)

N'attendez plus 4 mois à me répondre si c'est bon, voulez vous ?

Important: ne pas oublier de corriger en conséquence le ReDim VLgn(1 To 1, 1 To 10) pour la fabrication du tableau de valeurs d'une ligne vide.

Ah et puis dans la HabiliterContrôles, pour le calcul de Pareil ajoutez à la fin le terme … And (IsEmpty (VLgn(1, 10)) Xor CheckBox1.Value)

Il faut d'ailleur aussi une :

Private Sub CheckBox1_Click()
HabiliterContrôles
End Sub

 

[roro666]

merci bcps de votre aide merci encore
BONNE ANNEE ET BONNE SANTE

 

[roro666]

bonjour je revien vers vous car j'aimerai ajoute une case apercu avant impression dans mon fichier excel et j'aimerai savoir qurelle es la ligne de code merci si possible et d'affiche en permanence la limite de la page comment faut il faire merci

 

[Dranreb]

Bonjour
C'est la méthode PrintPreview de l'objet Worksheet.
Mais si elle est invoquée depuis un UserForm, il peut être indiqué de mettre Me.Hide devant et Me.Show derrière.

 

[roro666]

et sa marche me.HIDE ET ME.SHOW merci bcp de votre aide bonne journee