XL 2016 suivi demande d'intervention

[guy soki]

Bonjour le forum
je reviens encore vers vous une fois de plus
j'ai un fichier suivi demande d'intervention que j'ai modifié et je ne parviens pas à l'exécutée
chaque que j'appuis sur le bouton Affichée DI pour faire apparaitre userform de saisie
un message d'erreur apparait (Erreur d'exécution '424')

pouvez-vous m'aider à résoudre ce problème et rendre mon fichier utilisable
voir fichier en pièce jointe

 

[Fred0o]

Bonjour @guy soki

Il y avait une erreur dans le nom de l'USF. Vous essayiez de charger un UserFom1 qui n'exestait pas. L'USF a charger est Usf_Dem_Intervention.

C'est corrige dans le fichier joint.

 

[M12]

Bonjour,
Regarde dans ton module 2 du classeur et remplace par cette macro

Sub Affichée_DI()
  Usf_Dem_Intervention.Show
End Sub

 

[ChTi160]

Bonjour Guy
Bon jour le Fil ,le Forum
y'a aussi un problème à ce niveau" dans la procédure " UserForm_Activate"

With Sheets("Demande intervention")
            If .Cells(6, 1) = "" Then 'On teste la Ligne 6 alors que la première
            'ligne du Tableau est la Ligne 3

il faudrait ;If .Cells(3, 1) = ""
Bonne Journée
jean marie

 

[guy soki]

Bonjour Fred

impossible de quitté userform (Erreur d'exécution '9' l'indice n'appartient pas à la sélection )
en plus le numéro fiche intervention ne pas automatique

Merci pour votre aide

 

[ChTi160]

Re
il manque la feuille "Accueil" dans le Fichier d'où l'erreur !
pas compris : "fiche intervention ne pas automatique"
jean marie

 

[ChTi160]

Re
il suffit de regarder ton Code

Private Sub Cmd_Usf_DI_Creer_Click()
      ' ********************************************************************** CREER UNE FICHE
      '------------------------------------------------------  Frame Titre - Visible
      Frame4.Caption = "2 - Créer une fiche d'intervention   -   Compléter les cases souhaitées (uniquement, cases sous fond blanc) "
      Frame4.Visible = True: Frame4.Enabled = True
      '------------------------------------------------------ nouveau no de la fiche d'intervention
      With Sheets("Demande intervention")
            TextBox1.Locked = False
            If .Cells(3, 1) = "" Then '<------------------- Ici encore 6 au lieu de 3
                  xnofiche = 1: TextBox1 = CStr(xnofiche): TextBox1.Locked = True
            Else
                  j = .Range("A" & Rows.Count).End(xlUp).Row
                  xnofiche = .Cells(j, 1) + 1: TextBox1 = CStr(xnofiche): TextBox1.Locked = True
            End If
      End With
End Sub

et de modifier cette procédure

jean marie

 

[Fred0o]

Re-Bonjour le fil

La question pose sur une erreur mais ce projet ne peut pas fonctionner en l'etat.
Il y a beaucoup de points a revoir.

 

[ChTi160]

Re
la réponse au #5
est bien : il manque la feuille "Accueil" dans le Fichier d'où l'erreur ! #6
il y a aussi plein d'autres erreurs effectivement lol
Bonne journée
jean marie

 

[guy soki]

Re
la réponse au #5
est bien : il manque la feuille "Accueil" dans le Fichier d'où l'erreur ! #6
il y a aussi plein d'autres erreurs effectivement lol
Bonne journée
jean marie

pouvez-vous m'aider à faire la correction de ces erreur pour le fichier fonctionnent correctement

merci d'avance pour ton aide

 

[ChTi160]

Re
un fichier partiellement modifié Lol
jean marie

 

[guy soki]

Merci le forum,
je viens encore vers vous
sur ce fichier je viens d'ajouter 3 colonnes (Sous équipement, Piece, Détail de l'observation)
pouvez-vous m'aidé pour ce fichier fonction correctement par rapport au nouveau modification
vos proposition sont le bienvenu