Microsoft 365 Modifier code et format textbox

M

Marvin57

XLDnaute Occasionnel
Bonjour à tout le monde,

je reviens encore une fois vers vous pour demander votre aide.

Ce n'est pas facile de démonter mon fichier réel ou de composer un similaire, alors je m'en excuse d'avance.

j'ai un userform qui contient un textbox5 dans lequel je rentre un nombre de jours par exemple et lors de la validation du code ci-joint, il me place les lettres CP ou CSS dans le planning.
Ceci fonctionne très bien.

Maintenant j'aurai bien voulu que si je saisi dans ce textbox5 un nombre comme par exemple 0.5 ou 1.5 ou 3.5 etc. qu'il me place également les lettres CP ou CSS dans le planning.
Car si je saisi par exemple le 0.5 il ne m'inscrit ni les lettres CP ni les lettres CSS lors des validations du code.

VB: 
Private Sub Actualiser_Planning() 'valider
  Application.ScreenUpdating = False
  Dim col%, lig%, Salarie%, CP%, Nb%
  Dim Ctrl As Object
    Nb = 0
    With Sheets("PLANNING SALARIES")
      For lig = 5 To 159 Step 14
        If Month(.Cells(lig, 2)) = Month(Me.TextBox2) Then
          For col = 2 To 32
            If DateSerial(Year(.Cells(lig, 2)), Month(.Cells(lig, 2)), col) = CDate(Me.TextBox2.Value) Then
              For Salarie = lig + 1 To lig + 11
                If .Cells(Salarie, 1).Value = Me.ComboBox1.Value Then
                   For CP = col + 1 To col + CInt(Me.TextBox5.Value)
                    Nb = Nb + 1
                    If Me.OptionButton1 = True Then
                      .Cells(Salarie, CP) = "CP"
                    Else
                      .Cells(Salarie, CP) = "CSS"
                    End If
                    If CP = .Cells(lig, Columns.Count).End(xlToLeft).Column Then
                      If Nb >= CInt(Me.TextBox5.Value) Then Exit Sub
                      Salarie = Salarie + 14
                      CP = 2
                      If Me.OptionButton1 = True Then
                        .Cells(Salarie, CP) = "CP"
                      Else
                        .Cells(Salarie, CP) = "CSS"
                      End If
                      Nb = Nb + 1
                    End If
                    If Nb >= CInt(Me.TextBox5.Value) Then Exit Sub
                  Next CP
                  Exit Sub
                End If
              Next Salarie
            End If
          Next col
        End If
      Next lig
    End With

  Sheets("PLANNING SALARIES").Activate
  Unload Me
 
End Sub


Auriez vous S'il vous plaît une idée ce qu'il faudrait changer ou ajouter dans le code ci joint.

Je vous dis un Grand Merci à l'avance.

Marvin57
 
Trier par date Trier par votes
ChTi160

ChTi160

XLDnaute Barbatruc
Re
pas évident de reproduire ton terrain de jeu Lol
tu as :
VB: 
With Sheets("PLANNING SALARIES")
      For lig = 5 To 159 Step 14
        If Month(.Cells(lig, 2)) = Month(Me.TextBox2) Then
          For col = 2 To 32
donc des dates dans la colonne "B" (2) d'où Month(.Cells(lig, 2))
si tu trouve une date dont le mois correspond a celui de ton TextBox2
tu Boucles sur For col = 2 To 32 puis tu fais
Code: 
If DateSerial(Year(.Cells(lig, 2)), Month(.Cells(lig, 2)), col) = CDate(Me.TextBox2.Value) Then
donc après avoir testé la Cellule If Month(.Cells(lig, 2)) sur le Mois
tu définis une date à partir de
Code: 
DateSerial(Year(.Cells(lig, 2)), Month(.Cells(lig, 2)), col)
donc Col commence à 2 jusqu'a 32 sont ce des Jours ?
si oui pourquoi pas 1 à 31 ?

Jean marie
 
Vote positif 0 Vote négatif
M

Marvin57

XLDnaute Occasionnel
ChTi160 à dit:
Re
pas évident de reproduire ton terrain de jeu Lol
tu as :
VB: 
With Sheets("PLANNING SALARIES")
      For lig = 5 To 159 Step 14
        If Month(.Cells(lig, 2)) = Month(Me.TextBox2) Then
          For col = 2 To 32
donc des dates dans la colonne "B" (2) d'où Month(.Cells(lig, 2))
si tu trouve une date dont le mois correspond a celui de ton TextBox2
tu Boucles sur For col = 2 To 32 puis tu fais
Code: 
If DateSerial(Year(.Cells(lig, 2)), Month(.Cells(lig, 2)), col) = CDate(Me.TextBox2.Value) Then
donc après avoir testé la Cellule If Month(.Cells(lig, 2)) sur le Mois
tu définis une date à partir de
Code: 
DateSerial(Year(.Cells(lig, 2)), Month(.Cells(lig, 2)), col)
donc Col commence à 2 jusqu'a 32 sont ce des Jours ?
si oui pourquoi pas 1 à 31 ?

Jean marie
Cliquez pour agrandir...
Re
Merci de vous intéresser à mon sujet.
Je vois cela demain matin et je ferai un résumé pour voir plus clair. Là je suis au travail.
A+ et bonne nuit.
Marvin57
 
Vote positif 0 Vote négatif
ChTi160

ChTi160

XLDnaute Barbatruc
Re
tu utilise deux fois la même variable "lig" dans des Boucle imbriquées cela peut peut être la cause
Tu as :
Code: 
For lig = 5 To 159 Step 14
puis si tu trouves la date tu fais
Code: 
 For Salarie = lig + 1 To lig + 11
donc si lig est égal à 5 au début de Boucle tu passes à lig + 1 To lig + 11 cela perturbe peut être la valeur de lig
change l'une des variables Lig par exemple par Ligne .tu testes et tu nous dis .
Jean marie
 
Vote positif 0 Vote négatif
M

Marvin57

XLDnaute Occasionnel
ChTi160 à dit:
Re
pas évident de reproduire ton terrain de jeu Lol
tu as :
VB: 
With Sheets("PLANNING SALARIES")
      For lig = 5 To 159 Step 14
        If Month(.Cells(lig, 2)) = Month(Me.TextBox2) Then
          For col = 2 To 32
donc des dates dans la colonne "B" (2) d'où Month(.Cells(lig, 2))
si tu trouve une date dont le mois correspond a celui de ton TextBox2
tu Boucles sur For col = 2 To 32 puis tu fais
Code: 
If DateSerial(Year(.Cells(lig, 2)), Month(.Cells(lig, 2)), col) = CDate(Me.TextBox2.Value) Then
donc après avoir testé la Cellule If Month(.Cells(lig, 2)) sur le Mois
tu définis une date à partir de
Code: 
DateSerial(Year(.Cells(lig, 2)), Month(.Cells(lig, 2)), col)
donc Col commence à 2 jusqu'a 32 sont ce des Jours ?
si oui pourquoi pas 1 à 31 ?

Jean marie
Cliquez pour agrandir...
Juste pour information, oui mes colonnes des jours débutent en colonne b jusqu'à 32.
 
Vote positif 0 Vote négatif

Discussions similaires

L
  • Résolu(e)
Microsoft 365 Suppression de cellules vide
Réponses
3
Affichages
182
Le Rouky
L
N
  • Question
Microsoft 365 Aide adaptation d'une macro
Réponses
2
Affichages
101
netparty
N
D
  • Question
Microsoft 365 Dupliquer des lignes dans une autre feuille avec une condition
2
Réponses
26
Affichages
1 K
de_hanstrapp
D
M
  • Résolu(e)
Microsoft 365 Erreur code ou pas ?
2
Réponses
17
Affichages
337
Marvin57
M
yojema
  • Question
XL 2021 faire évoluer un code VBA
Réponses
3
Affichages
158
Dranreb
Dranreb
kalem
  • Question
Microsoft 365 [VBA] Enchaîner déplacer lignes + supprimer les lignes vides.
Réponses
3
Affichages
587
ARMAEL
A
Messan
  • Résolu(e)
XL 2019 Organiser les données dans listbox
Réponses
2
Affichages
390
Messan
Messan
F
  • Résolu(e)
Microsoft 365 Recherche à partir d'une TextBox
Réponses
4
Affichages
162
Francky79
F
E
  • Résolu(e)
XL 2019 inserer une valeur textbox dans la dernière cellule vide horizontalement
Réponses
7
Affichages
323
escudo
E
S
  • Question
XL 2019 Problème dans un code vba
Réponses
2
Affichages
418
snoopy07
S

Membres actuellement en ligne

19 membres et 120 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 209
Messages
2 086 270
Membres
103 168
dernier inscrit
isidore33