Forums XLPages

Tous les messages (Skoobi)

« 1 2 3 »
Re: Renommer une feuille
#11
Skoobi
Aspirant XLPages

Inscription: 09/11/2008
De Riedisheim (Mulhouse - Alsace)

Messages: 25

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 28-12-2008 18h05
Bonjour claude,

en bleu ce qu'il faut ajouter dans le code:

Private Sub CommandButton1_Click()
Sheets("Feuil2").Select
Sheets("Feuil2").Name = LOT.Value
Cells(2, 6) = Refproduit.Value
Cells(2, 10) = LOT.Value
Cells(2, 14) = Calendar1.Value
Cells(1, 1).Select
Unload Me
End Sub
 

A+
Skoobi
-----------------------------------------
On en apprend tous les jours.
Hors Ligne
 Rapport   Haut 

Re: code couleur
#12
Skoobi
Aspirant XLPages

Inscription: 09/11/2008
De Riedisheim (Mulhouse - Alsace)

Messages: 25

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 24-12-2008 16h47
Bonjour claude,

Ci-joint une proposition avec la fonction CELLULE. Il faut recalculer la feuille après application de la couleur.

Bonne fêtes à tous!

Pièce jointe:
zip planing 1.zip   [ Taille: 11.40 Ko - Téléchargements: 547 ]
A+
Skoobi
-----------------------------------------
On en apprend tous les jours.
Hors Ligne
 Rapport   Haut 

Re: Formule case à cocher
#13
Skoobi
Aspirant XLPages

Inscription: 09/11/2008
De Riedisheim (Mulhouse - Alsace)

Messages: 25

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 19-12-2008 13h39
Re bonjour,

Sur quelle ligne exactement?
Si possible envoie le fichier ou un extrait.
A+
Skoobi
-----------------------------------------
On en apprend tous les jours.
Hors Ligne
 Rapport   Haut 

Re: Formule case à cocher
#14
Skoobi
Aspirant XLPages

Inscription: 09/11/2008
De Riedisheim (Mulhouse - Alsace)

Messages: 25

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 18-12-2008 08h56
Bonjour,

enlève ce qui est en rouge, numberformat est une propriété de range, ici il faut utiliser la fonction format.
Et inverse les arguments entre les parenthèses:

Range("K" & Derlig).Value = NumberFormat(MontantTrav.Value, "# ###")
Range("L" & Derlig).Value = NumberFormat(MontantAide.Value, "# ###")
Range("M" & Derlig).Value = TauxAide
Range("O" & Derlig).Value = NumberFormat(MontantAvance.Value, "# ###")

A+
Skoobi
-----------------------------------------
On en apprend tous les jours.
Hors Ligne
 Rapport   Haut 

Re: Formule case à cocher
#15
Skoobi
Aspirant XLPages

Inscription: 09/11/2008
De Riedisheim (Mulhouse - Alsace)

Messages: 25

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 17-12-2008 20h42
Dans ce cas, il faut appliquer le format avant d'écrire dans la cellule comme ceci:

If IsDate(DateDécision.Value) Then
  Range("M" & Derlig).NumberFormat = "# ###"
  If opt24.Value Then
    Range("M" & Derlig).Value = DateAdd("m", 24, DateDécision.Value)
  ElseIf opt36.Value Then
    Range("M" & Derlig).Value = DateAdd("m", 36, DateDécision.Value)
  ElseIf opt48.Value Then
    Range("M" & Derlig).Value = DateAdd("m", 48, DateDécision.Value)
  End If
End If


A+
Skoobi
-----------------------------------------
On en apprend tous les jours.
Hors Ligne
 Rapport   Haut 

Re: Formule case à cocher
#16
Skoobi
Aspirant XLPages

Inscription: 09/11/2008
De Riedisheim (Mulhouse - Alsace)

Messages: 25

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 17-12-2008 17h50
Bonjour kelly,

comme tu as maintenant 3 conditions, il faut passer par une condition If.... Then ....ElseIf .... End If:

If IsDate(DateDécision.Value) Then
  If opt24.Value Then
    Range("M" & Derlig).Value = DateAdd("m", 24, DateDécision.Value)
  ElseIf opt36.Value Then
    Range("M" & Derlig).Value = DateAdd("m", 36, DateDécision.Value)
  ElseIf opt48.Value Then
    Range("M" & Derlig).Value = DateAdd("m", 48, DateDécision.Value)
  End If
End If

A+
Skoobi
-----------------------------------------
On en apprend tous les jours.
Hors Ligne
 Rapport   Haut 

Re: supprimé une feuille selon la valeur d'une cellule
#17
Skoobi
Aspirant XLPages

Inscription: 09/11/2008
De Riedisheim (Mulhouse - Alsace)

Messages: 25

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 12-12-2008 21h16
Bonsoir inspecteur,
JC,

en reprenant le code de JC:

Option Explicit

Sub Delete()
Application.DisplayAlerts = 0
If Sheets("constitution de CA").Range("E14") <= 30000 Then
  Sheets("r�gime r�el ").Delete
Else: Sheets("r�gime forfaitaire").Delete
End If
Application.DisplayAlerts = 1
End Sub
 

A+
Skoobi
-----------------------------------------
On en apprend tous les jours.
Hors Ligne
 Rapport   Haut 

Re: Texte de différentes couleurs dans un Label
#18
Skoobi
Aspirant XLPages

Inscription: 09/11/2008
De Riedisheim (Mulhouse - Alsace)

Messages: 25

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 12-12-2008 13h10
Bonjour,

ce n'est pas possible de changer la couleur dans le même label d'un userform.
Je crois qu'il existe un contrôle, je ne sais plus lequel, qui permet de le faire mais qui n'existe pas en "standard".
A+
Skoobi
-----------------------------------------
On en apprend tous les jours.
Hors Ligne
 Rapport   Haut 

Re: mDF Doublons - suggestion
#19
Skoobi
Aspirant XLPages

Inscription: 09/11/2008
De Riedisheim (Mulhouse - Alsace)

Messages: 25

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 08-12-2008 20h06
Bonsoir,

un petit up pour avoir vos impressions, remarques, suggestions, critiques, sur le fichier du 28/11, merci.
A+
Skoobi
-----------------------------------------
On en apprend tous les jours.
Hors Ligne
 Rapport   Haut 

Re: Problème de remplissage d'un tableau via userform
#20
Skoobi
Aspirant XLPages

Inscription: 09/11/2008
De Riedisheim (Mulhouse - Alsace)

Messages: 25

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 03-12-2008 20h23
Bonsoir,

Pour commencer, enlève dans chaque contrôle ce que tu as mis dans "ControleSource" dans la fenêtre propriété. En effet, cela écrira systématiquement sur la ligne 3 donc impossibilité de créer d'autre lignes.
Voici les nouveaux codes pour le bouton "Nouvelle convention"et "Valider":

Private Sub Nouvconvention_Click()
'Ouvrir un formulaire de saisie
With UserForm1
    .NumConvention.Text = ""
    .Nature.Text = ""
    .Nom.Text = ""
    .Charg�Op�rations.Text = ""
    .NumAttributaire.Text = ""
    .Dept.Text = ""
    .DateD�cision.Text = ""
    .Travaux.Text = ""
    .MontantTrav.Text = ""
    .MontantAide.Text = ""
    .TauxAide.Text = ""
    .MontantAvance.Text = ""
    .TauxAvance.Text = ""
    .Commentaires.Text = ""
End With
UserForm1.Show
End Sub
 

Private Sub Valider_Click()
DerLig = Range("A65536").End(xlUp).Offset(1, 0).Row
Range("A" & DerLig).Value = NumConvention
Range("B" & DerLig).Value = Nature
Range("C" & DerLig).Value = Nom
Range("Q" & DerLig).Value = ChargéOpérations
Range("D" & DerLig).Value = NumAttributaire
Range("R" & DerLig).Value = Dept
Range("B" & DerLig).Value = DateDécision
Range("E" & DerLig).Value = Travaux
Range("F" & DerLig).Value = MontantTrav
Range("H" & DerLig).Value = MontantAide
Range("I" & DerLig).Value = TauxAide
Range("J" & DerLig).Value = MontantAvance
Range("K" & DerLig).Value = TauxAvance
Range("P" & DerLig).Value = Commentaires
UserForm1.Hide

Range("BDConv").Sort Key1:="NumConvention", Header:=xlYes 'Tri par ordre alphabétique par rapport au numéro de convention
   
End Sub

 

A+
Skoobi
-----------------------------------------
On en apprend tous les jours.
Hors Ligne
 Rapport   Haut 

« 1 2 3 »