XL 2016 Les macros d'un formulaire ne fonctionne plus..

[stf4-67]

Bonjour,

J'ai crée un formulaire qui a comme fonction de verser des données dans un tableau et qui se transforme ensuite en pdf pour un envoi par mail.
J'ai fait des modifications sur les macros et depuis elles ne fonctionnent plus.
Help , je suis a la recherche d'un expert en excel qui pourrait me corriger mon fichier pour qu'il fonctionne a nouveau , mes compétences ne me permette pas d'aller plus loin.

Merci d'avance pour l'aide que vous pourrez m'apporter.

B.D

 

[sylvanu]

Bonjour Stf,
Sans essayer de tout comprendre, j'ai une première erreur en :

Worksheets("Demande").Cells(1, 7) = Cells(i - 1, 1) + 1

D'une part je ne comprend pas pourquoi vous aller écrire en G1 de Demande, puisqu'il n'y a apparemment rien.
D'autre part le Cells(i - 1, 1) réfère un numéro d'affaire qui est une chaine de caractères, donc le +1 génère l'erreur #Valeur.
( essayez en Signalements A31 de faire : =A30+1 )

Corrigez celle ci, ça permettra d'avancer.

 

[stf4-67]

Merci de votre retour , l'idée est de copier les infos contenu dans le formulaire dans demande a la suite de A30 de Signalements.
J'ai également l'erreur que vous avez citée mais je ne sais pas comment faire pour la supprimer...
Les données de signalement ne peut contenir de formule, elles seront écrasées lors de la copie réalisé par la macro .
Le numéro d'affaire doit être incrémenté a chaque nouvelle création du formulaire.

 

[sylvanu]

Essayez :
Au début Dim Affaire$, puis

Affaire = Left(Cells(i - 1, "A"), 5) & Format(Val(Right(Cells(i - 1, "A"), 2) + 1), "00")
Worksheets("Demande").Cells(1, "G") = Affaire

Je préfère la notation Cells(1, "G") au lieu de Cells(1, 7) quand c'est possible, c'est plus parlant.
N'empêche que G1 doit être faux au vu de votre fichier. Peut être Cells(2, "I"), ce qui donnerait I2 ?

 

[fanfan38]

Bonjour
Ne sachant où est le problème j'ai corrigé la validation du formulaire (ex: 2021-02+1 ça fait une erreur
A+ François

 

[stf4-67]

Bonjour
Ne sachant où est le problème j'ai corrigé la validation du formulaire (ex: 2021-02+1 ça fait une erreur
A+ François

Merci fanfan38 votre modification sur la validation fonctionne qu'une seul fois sans incrementer le n_affaire le problème reste entier

 

[stf4-67]

Essayez :
Au début Dim Affaire$, puis

Affaire = Left(Cells(i - 1, "A"), 5) & Format(Val(Right(Cells(i - 1, "A"), 2) + 1), "00")
Worksheets("Demande").Cells(1, "G") = Affaire

Je préfère la notation Cells(1, "G") au lieu de Cells(1, 7) quand c'est possible, c'est plus parlant.
N'empêche que G1 doit être faux au vu de votre fichier. Peut être Cells(2, "I"), ce qui donnerait I2 ?

Bonjour sylvanu en incluant la variable ,j'ai une erreur qui s'affiche

Sub Formulaire()
Dim Affaire$,
Dim i As Integer, machaine As String

 

[fanfan38]

Bonjour
C'est corrigé (le n° d'affaire n'était pas enregistré sur la feuille Signalements)
A+ François

 

[sylvanu]

Bonjour Stf, Fanfan,

Bonjour sylvanu en incluant la variable ,j'ai une erreur qui s'affiche

Voir PJ avec cette modif. J'ai mis le N° affaire en I2 et non en G1.

 

[stf4-67]

il y a toujours une erreur lors de la validation

 

[sylvanu]

Je n'ai réparé que la première erreur. Ici vous avez la même. Combien à parier que Cells(i-1) est une chaine de caractères ?
Par contre l'erreur que vous avez mentionné avec Affaire$ a été résolu. Step by step !

 

[stf4-67]

Bonjour
C'est corrigé (le n° d'affaire n'était pas enregistré sur la feuille Signalements)
A+ François

merci francois et sylvanu , on avance , cependant le champs Enregisté par : n'est pas repris dans les signalements
d'autre part pourrait t'on effacer le formulaire et incrémenter le numéros d'affaire après avoir valider la saisie ?

 

[fanfan38]

Il est enregistré: Cells(i, 4) = Sheets("Demande").Range("I7") 'Correspondant
ensuite il est effacé:
If Sheets("Demande").Range("G14") = "Autre à définir" Then
Cells(i, 7) = Worksheets("Demande").Cells(13, 6)
Else
Cells(i, 7) = Sheets("Demande").Range("G14") 'Ouvrage
End If

Pour le reste c'est faisable..
A+ François

 

[stf4-67]

Il est enregistré: Cells(i, 4) = Sheets("Demande").Range("I7") 'Correspondant
ensuite il est effacé:
If Sheets("Demande").Range("G14") = "Autre à définir" Then
Cells(i, 7) = Worksheets("Demande").Cells(13, 6)
Else
Cells(i, 7) = Sheets("Demande").Range("G14") 'Ouvrage
End If

Pour le reste c'est faisable..
A+ François

J'ai atteins mes limites en programmation , il a trop de chose qui échappent , d'ou mon appel a l'aide.
J'aimerai que mon fichier soit a nouveau opérationnel.
merci d'avoir pris un peu de votre temps pour m'aider.
@+

 

[fanfan38]

Bonjour
Une première ébauche de ce que je te propose
double clic sur une ligne de la feuille Signalements pour voir le formulaire
Je présume qu'il faudra sauvegarder aussi le reste des données?
A+ François
PS: Sylvanu je te laisse faire pour les mails : j'ai jamais fait