Forums XLPages

Excel & VBA Espace Débutants [résolu] Aide sur code

Aide sur code
#1
kelly
Régulier XLPages

Inscription: 05/11/2008

Messages: 53

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 02-12-2008 15h52
Bonjour à tous,
Je viens de faire un fichier avec code. Malheureusement j'ai quelques petits soucis et je ne vois pas où cela coince !
1.Lorsque je clique sur "nouvelle convention", une nouvelle ligne s'affiche sur ma feuille (liste) mais reprend la mise en forme de mon titre de tableau et quand je clique sur "annuler", cela me met erreur,
2. Sur ma feuille (liste), j'ai mis nbre de convention mais cela ne fonctionne pas !!!
3. Sur mes feuilles (fiche de suivi et fiche navette), la liste déroulante ne fonctionne pas !
Je ne sais pas si j'ai été très claire et j'en suis désolée.
Je vous joins mon fichier;
D'avance merci à tous ceux qui pourront m'aider car là je coince totalement.
Merci encore.
Pièce jointe:
zip SUIVI CONVENTIONS.zip   [ Taille: 50.05 Ko - Téléchargements: 639 ]
Hors Ligne
 Rapport   Haut 

Re: Aide sur code
#2
JCGL
Accro XLPages

Inscription: 23/05/2007
De Chamrousse

Messages: 309

Système d'exploitation:
PC
Version Excel utilisée:
2013
Posté le : 02-12-2008 17h06
 Bonjour à tous,

'FicheSuivi' est différent de 'Fiche de Suivi'
'Slection' est différent de 'Selection'
NumConv n'est pas déterminé par Nom / Définir
.......

Je te conseille de lancer un Débogage sur tes codes...
Ceci n'arriverait pas si tu prenais l'habitude (très bonne habitude) de commencer tous tes codes par :

Option Explicit

Sub ....()
Toutes informations érronées seraient bloquantes

A+ à tous

Cordialement
Hors Ligne
 Rapport   Haut 

Re: Aide sur code
#3
kelly
Régulier XLPages

Inscription: 05/11/2008

Messages: 53

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 03-12-2008 00h19
Merci JCGL.
J'ai modifié les erreurs.
Malheureusement cela ne résoud pas mon problème. A chaque nouvelle convention, il m'ajoute une ligne bleue que je ne veux pas. De plus, il ne me compte pas le nombre de conventions en C1 et dans mes fiches, la liste déroulante ne fonctionne pas.
Merci d'avance pour votre aide.
Hors Ligne
 Rapport   Haut 

Re: Problème de remplissage d'un tableau via userform
#4
kelly
Régulier XLPages

Inscription: 05/11/2008

Messages: 53

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 03-12-2008 15h43
Bonjour à tous,
J'ai résolu quelques soucis avec mon fichier.
Seulement j'ai toujours un problème. A savoir : à chaque nouvelle entrée, la précédente disparaît au lieu de se mettre à la ligne suivante.
J'aimerai que toutes les entrées se mettent à la suite et par ordre numérique.
S'il vous plait aidez-vous c'est urgent !!!!
Merci d'avance pour votre aide !!!
Pièce jointe:
zip SUIVI CONVENTIONS.zip   [ Taille: 50.96 Ko - Téléchargements: 559 ]
Hors Ligne
 Rapport   Haut 

Re: Problème de remplissage d'un tableau via userform
#5
Skoobi
Aspirant XLPages

Inscription: 09/11/2008
De Riedisheim (Mulhouse - Alsace)

Messages: 25

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 03-12-2008 20h23
Bonsoir,

Pour commencer, enlève dans chaque contrôle ce que tu as mis dans "ControleSource" dans la fenêtre propriété. En effet, cela écrira systématiquement sur la ligne 3 donc impossibilité de créer d'autre lignes.
Voici les nouveaux codes pour le bouton "Nouvelle convention"et "Valider":

Private Sub Nouvconvention_Click()
'Ouvrir un formulaire de saisie
With UserForm1
    .NumConvention.Text = ""
    .Nature.Text = ""
    .Nom.Text = ""
    .Charg�Op�rations.Text = ""
    .NumAttributaire.Text = ""
    .Dept.Text = ""
    .DateD�cision.Text = ""
    .Travaux.Text = ""
    .MontantTrav.Text = ""
    .MontantAide.Text = ""
    .TauxAide.Text = ""
    .MontantAvance.Text = ""
    .TauxAvance.Text = ""
    .Commentaires.Text = ""
End With
UserForm1.Show
End Sub
 

Private Sub Valider_Click()
DerLig = Range("A65536").End(xlUp).Offset(1, 0).Row
Range("A" & DerLig).Value = NumConvention
Range("B" & DerLig).Value = Nature
Range("C" & DerLig).Value = Nom
Range("Q" & DerLig).Value = ChargéOpérations
Range("D" & DerLig).Value = NumAttributaire
Range("R" & DerLig).Value = Dept
Range("B" & DerLig).Value = DateDécision
Range("E" & DerLig).Value = Travaux
Range("F" & DerLig).Value = MontantTrav
Range("H" & DerLig).Value = MontantAide
Range("I" & DerLig).Value = TauxAide
Range("J" & DerLig).Value = MontantAvance
Range("K" & DerLig).Value = TauxAvance
Range("P" & DerLig).Value = Commentaires
UserForm1.Hide

Range("BDConv").Sort Key1:="NumConvention", Header:=xlYes 'Tri par ordre alphabétique par rapport au numéro de convention
   
End Sub

 

A+
Skoobi
-----------------------------------------
On en apprend tous les jours.
Hors Ligne
 Rapport   Haut 

Re: Aide sur code
#6
kelly
Régulier XLPages

Inscription: 05/11/2008

Messages: 53

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 04-12-2008 00h32
Bonsoir et merci beaucoup pour ton aide Skoobi !
Cependant lorsque je clique sur "nouvelle convention", la première ligne du tableau (3) garde en mémoire la dernière entrée. Comment faire pour que mon tableau rentre les données directement sans que cette ligne apparaisse toujours ???
Merci pour ton aide !!!!
Hors Ligne
 Rapport   Haut 

Re: Problème de remplissage d'un tableau via userform
#7
kelly
Régulier XLPages

Inscription: 05/11/2008

Messages: 53

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 04-12-2008 00h47
Rebonsoir,
Je viens de m'apercevoir que je n'arrive pas à enlever ce que j'avais mis dans "ControleSource". J'ai beau effacer mais lorsque je reviens sur userform, ça réapparait??? Comment faire ???

Merci d'avance.
Hors Ligne
 Rapport   Haut 

Re: Problème de remplissage d'un tableau via userform
#8
kelly
Régulier XLPages

Inscription: 05/11/2008

Messages: 53

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 04-12-2008 01h51
Bonjour c'est moi,
Je n'arrivais pas à effacer les données dans ControlSource donc j'ai fermé mon fichier et l'ai réouvert ! Et tout fonctionne !!!!
Merci Skoobi pour ton aide !!!!
Hors Ligne
 Rapport   Haut 

Re: Aide sur code
#9
kelly
Régulier XLPages

Inscription: 05/11/2008

Messages: 53

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 06-12-2008 16h41

Message en doublon supprimé par le Webmaster

Voir le nouveau sujet

Merci de ne pas multiplier inutilement vos posts

Edité par myDearFriend! le 06/12/2008 23:43:24
Hors Ligne
 Rapport   Haut 


Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.

[Recherche avancée]


Qui consulte actuellement ce sujet ?   1 Utilisateur(s) anonymes