aide vba

R

roro666

XLDnaute Nouveau

• 17 Septembre 2017

• #46

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

 

Pièces jointes

• 
  Sans titre1.png

  153.6 KB · Affichages: 26
• 
  Sans titre.png

  119.6 KB · Affichages: 29

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 17 Septembre 2017

• #47

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.

 

Vote positif 0 Vote négatif

R

roro666

XLDnaute Nouveau

• 17 Septembre 2017

• #48

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

 

Pièces jointes

• 
  Sans titre.png

  191.5 KB · Affichages: 34
• 
  Sans titre.png

  191.5 KB · Affichages: 34

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 17 Septembre 2017

• #49

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.

 

Vote positif 0 Vote négatif

R

roro666

XLDnaute Nouveau

• 3 Janvier 2018

• #50

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

 

Pièces jointes

• Flexible DE ROMAIN1 (2).xlsm

  45.9 KB · Affichages: 24

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 3 Janvier 2018

• #51

Bonjour et bonne année.
Dans la GarnirTbx :

VB:

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

Dans la CBnValider_Click :

VB:

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 :

VB:

Private Sub CheckBox1_Click()
HabiliterContrôles
End Sub

 

Dernière édition: 3 Janvier 2018

Vote positif 0 Vote négatif

R

roro666

XLDnaute Nouveau

• 4 Janvier 2018

• #52

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

 

Dernière édition: 4 Janvier 2018

Vote positif 0 Vote négatif

R

roro666

XLDnaute Nouveau

• 9 Juillet 2019

• #53

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 9 Juillet 2019

• #54

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.

 

Vote positif 0 Vote négatif

R

roro666

XLDnaute Nouveau

• 10 Juillet 2019

• #55

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

 

Vote positif 0 Vote négatif