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

stf4-67 · 20 Décembre 2020

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

fanfan38 · 22 Décembre 2020

Il suffit de demander
A+ François

sylvanu · 20 Décembre 2020

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

VB:

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 · 20 Décembre 2020

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 · 20 Décembre 2020

Essayez :
Au début Dim Affaire$, puis

VB:

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 · 20 Décembre 2020

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 · 21 Décembre 2020

fanfan38 à dit:
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 · 21 Décembre 2020

sylvanu à dit:
Essayez :
Au début Dim Affaire$, puis

VB:

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

VB:

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

fanfan38 · 21 Décembre 2020

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

sylvanu · 21 Décembre 2020

Bonjour Stf, Fanfan,

stf4-67 à dit:
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 · 21 Décembre 2020

il y a toujours une erreur lors de la validation

sylvanu · 21 Décembre 2020

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 · 21 Décembre 2020

fanfan38 à dit:
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 · 21 Décembre 2020

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 · 21 Décembre 2020

fanfan38 à dit:
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 · 21 Décembre 2020

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

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

stf4-67

XLDnaute Nouveau

Pièces jointes

fanfan38

sylvanu

XLDnaute Barbatruc

stf4-67

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

fanfan38

XLDnaute Barbatruc

Pièces jointes

stf4-67

XLDnaute Nouveau

stf4-67

XLDnaute Nouveau

fanfan38

XLDnaute Barbatruc

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

stf4-67

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

stf4-67

XLDnaute Nouveau

fanfan38

XLDnaute Barbatruc

stf4-67

XLDnaute Nouveau

fanfan38

XLDnaute Barbatruc

Pièces jointes

Discussions similaires