Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2021 erreur Vba

NicolasKH

XLDnaute Junior
Bonjour a tous,
j'ai un petit soucis au niveau de mon code vba
explication:
j'ai un userform avec txtentree et txtsortie, l'erreur est quand je met rien dans les deux TXT excel n'inscrit rien dans mon tableau, au contraire quand je rempli les deux TXT les donnees s'inscrit bien dans mon tableau j'aimerai que la saisie dans les txt sois l'un ou l'autre.

Exemple :
quand je saisi dans le le TxtSorti soit grise
quand je saisi dans le TxtSorti le TxtEntree soit grise

mon code
Private Sub CbtValider_Click()

'On test que les controles ont bien ete saisie
If Len(Me.TxtDate) = 0 Then
Me.LblMessage = "Veuillez entree une date JJ/MM/AAAA."
Me.TxtDate.SetFocus
ElseIf Len(Me.CboLieux) = 0 Then
Me.LblMessage = "Veuillez selectionner un lieux."
Me.CboLieux.SetFocus
ElseIf Len(Me.CboProjet) = 0 Then
Me.LblMessage = "Veuillez selectionner le projet."
Me.CboProjet.SetFocus
ElseIf Len(Me.TxtEntree) = 0 Then
Me.TxtEntree.SetFocus
ElseIf Len(Me.TxtSortie) = 0 Then
Me.TxtSortie.SetFocus
ElseIf Len(Me.CboDesignation) = 0 Then
Me.LblMessage = "Veuillez selectionner une designation."
Me.CboDesignation.SetFocus
ElseIf Len(Me.CboChefProjet) = 0 Then
Me.LblMessage = "Veuillez selectionner un chef de projet ."
Me.CboChefProjet.SetFocus
ElseIf Len(Me.CboChefChantier) = 0 Then
Me.LblMessage = "Veuillez selectionner un chef de chantier ."
Me.CboChefChantier.SetFocus

Else 'Si tous les champs sont complet on peut sauvegarder la source
'On cherche la prochaine ligne vide de la source
Feuil7.Activate
Feuil7.Range("A1048576").End(xlUp).Offset(1, 0).Select
' On effecte les donnees du formulaire dans la source
ActiveCell = ActiveCell.Offset(-1, 0) + 1
ActiveCell.Offset(0, 1) = CDate(Me.TxtDate)
ActiveCell.Offset(0, 2) = Me.CboLieux
ActiveCell.Offset(0, 3) = Me.CboProjet
ActiveCell.Offset(0, 4) = CCur(Me.TxtEntree)
ActiveCell.Offset(0, 5) = CCur(Me.TxtSortie)
ActiveCell.Offset(0, 6) = Me.CboDesignation
ActiveCell.Offset(0, 7) = Me.CboChefProjet
ActiveCell.Offset(0, 8) = Me.CboChefChantier


Unload Me
AvanceOuvrier.Show

'Activer la feuil TbTresorerie
Feuil1.Activate

End If
ThisWorkbook.Save
ThisWorkbook.RefreshAll
End Sub
 

NicolasKH

XLDnaute Junior
merci beaucoup fonctionne tres bien
une autre petite question
comment fait on pour masquer une ligne d'apres une condition
exemple: dans la collone K j'ai OUI ou NON
je voudrais que quand c'est oui dans la collone K la ligne se masque

merci
 

Pièces jointes

  • Planing Des Projets - Copie (2).xlsm
    800.8 KB · Affichages: 1

Oneida

XLDnaute Impliqué
Re,
Code fait pour les lignes qui ont "non" et qui passeront a oui.
Pour celles qui ont deja oui, mettez "non" et "oui" ensuite pour que la ligne soit masquee
 

Pièces jointes

  • Planing Des Projets - Copie (2).xlsm
    785.6 KB · Affichages: 4

NicolasKH

XLDnaute Junior

merci BrunoM45 pour ton aide ca fonctionne tres bien
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…