aide pour code VBA formulaire remplit tableau à la ligne suivante

[jabenj]

Bonjour,

Je viens de créer non sans mal, (et avec bcp de votre aide) un formulaire pour qu'un tableau soit rempli automatiquement.

Tout fonctionne...Sauf :
si je remplis le formulaire il ne va pas sur la ligne "inoccupée" du dessous, il remplace le texte déjà écrit.

Je crois savoir pourquoi, mais je tiens à signaler que l'endroit des cellules à remplir est le bon (ligne 18,colonne 6/8/11/14) ; la ligne 18 correspond à la première ligne vide a remplir, comment donc lui dire d'aller ligne 19, puis 20, .. en fonction des remplissages..?

  '--- Positionnement dans la base
   Ligne = ActiveSheet.[A65000].End(xlUp).Row + 1
   '--- Transfert Formulaire dans BD
   ActiveSheet.Cells(18, 6) = Me.ComboBox2
   ActiveSheet.Cells(18, 8) = CVDate(Me.date_depart)
   ActiveSheet.Cells(18, 11) = CVDate(Me.date_retour)
   '-- Civilité
   temp = ""
   For Each C In Me.Frame1.Controls
     If C.Value = True Then
       temp = C.Caption
     End If
   Next C
   ActiveSheet.Cells(18, 14) = temp
   nettoie
End Sub

Merci de ce que vous pourrez me dire !!

 

[phlaurent55]

Re : aide pour code VBA formulaire remplit tableau à la ligne suivante

Bonjour Jaben,

en remplaçant: ActiveSheet.Cells(18,......

par:
ActiveSheet.Cells(Ligne, ......

à+
Philippe

 

[jabenj]

Re : aide pour code VBA formulaire remplit tableau à la ligne suivante

Bonjour,
Comme vous vous en doutez, je n'ai pas sortiu ce code de mon pouce (??) bref, auparavant, en effet, il était indiqué "ligne" que j'ai remplacé par "18 pour atteindre la cellule F18 et ainsi de suite, l'erreur pourrait t'elle se situer ici :
Ligne = ActiveSheet.[A65000].End(xlUp).Row + 1
?
Cordialement,
PS pour vous répondre, si je mets ligne, il me rempli la ligne 1...
Merci !!

 

[phlaurent55]

Re : aide pour code VBA formulaire remplit tableau à la ligne suivante

Re,

sans voir le fichier il sera difficile de voir si c'est: ActiveSheet.[A65000].End(xlUp).Row + 1 qui est à l'origine du problème

à+
Philippe

 

[jabenj]

Re : aide pour code VBA formulaire remplit tableau à la ligne suivante

re !Voici le bout de fichier !

Merci !

 

[phlaurent55]

Re : aide pour code VBA formulaire remplit tableau à la ligne suivante

Re,

ERREUR DE DEBUTANT ???

c'est normal que les données s'inscrivent au mauvais endroit car il n'y a rien en colonne A

il faut déterminer la position en fonction de la colonne F
ActiveSheet.[F65000].End(xlUp).Row + 1
en espérant que cela ne soit pas perturbé par les cellules fusionnées

à+
Philippe

 

[jabenj]

Re : aide pour code VBA formulaire remplit tableau à la ligne suivante

Bonjour,

Tout a fait ! Je suis un graaaanndd débutant !
Néanmoins, ça ne fonctionne pas, du moins, j'ai la repercution sur "planning agent" mais pas dans la "liste" qui démarre en F18..
Les données doivent bien s'inscire quelque part, mais je ne les vois pas !

Une idée ? cela a fonctionné pour vous ?

 

[phlaurent55]

Re : aide pour code VBA formulaire remplit tableau à la ligne suivante

Re,

Une idée ? cela a fonctionné pour vous ?

j'ai une erreur lors de l'ouverture de L'USF; je n'ai pas su tester mais ça devrait fonctionner.

à+
Philippe

 

[jabenj]

Re : aide pour code VBA formulaire remplit tableau à la ligne suivante

Bonjour,

ce n'est pas le cas, je vais poursuivre mes recherches.

Merci en tout cas !!!