Aide pour un code qui ne fonctionne pas correctement

Version imprimable

Bonjour à toutes et à tous,

J'ai mis en palce le code ci-dessous qui doit me permettre de remplir un tableau se trouvant dans une feuille de calcul selon ce qui se trouve dans une ComboBox (par exemple si c'est 24, alors les données iront dans la feuille "L24").
Mon tableau va des cellules P6 à T6 et les en-têtes de P6 à T6. Les données doivent donc commencer à être saisies à partir de la cellule P7.

Avec le code que j'ai fait, la saisie ne commence pas au bon endroit, pouvez-vous m'aider à voir où ça ne va pas s'il vous plait ?
Merci par avance

ATTENTION : J'ai un autre tableau des cellules A6 à M78, mais les 2 tableaux ne sont pas complémentaires. Je peux avoir quelque chose de saisie dans mon premier tableau mais rien dans le 2ème. Donc la saisie doit commencer en P7 si rien n'est saisie en ligne 7 du tableau P6 à T6

Suis-je clair ????:calim2:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 'On rapatrie les données de UFvir dans la feuille "L" et Numéro de ligne en commençant par la 7ème ligne et la colonne P With shtFich LastLigF = .Range("A65536").End(xlUp).Row + 1 .Range("P" & LastLigF).Value = LastLigF - 7 .Range("P" & LastLigF).Value = Me.CmbNum1.Value .Range("Q" & LastLigF).Value = Me.CmbNum2.Value .Range("R" & LastLigF).Value = Me.TxtMontant.Value .Range("T" & LastLigF).Value = Me.TxtDate.Value .Range("T" & LastLigF).Value = Format(Me.TxtDate, "mm-dd-yyyy") End With

04/03/2013, 14h39
tedo01

Bonjour,
Essaie d'alimenter LastLigF avec ce code, il permet de trouver la première cellule vide en descendant à partir de P6 :

Code:

LastLigF = .Range("P5").End(xlDown).Row + 1

Attention, les lignes 6 et 10 ne servent à rien.
04/03/2013, 15h18
NEC14

Merci beaucoup tedo01. Je teste et je te tiens au courant.
04/03/2013, 15h33
NEC14
Je viens de tester en mettant
Code:

1 2 LastLigF = .Range("P7").End(xlDown).Row + 1
ça fonctionne bien pour la 1ère saisie. Ensuite, si je fais une deuxième saisie, la première est écrasée. Je ne comprends pas
04/03/2013, 16h55
tedo01

Re,
Il faut prendre le code tel que je l'ai posté, avec comme cellule de départ P5.

Bonjour,

Voici le code en entier. Mais cela ne fonctionne toujours pas. Les données sont insérées en ligne 2 et à partir de la colonne P. Normalement la saisie devrait commencer en ligne 7 colonne P
Merci par avance

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
'Dans ce code le montant va dans la colonne R "Montant retiré"
'La ligne d'origine en colonne P - CmbNum1
'La ligne destinataire en colonne Q - CmbNum2
 
With shtFich
    LastLigF = .Range("P5").End(xlUp).Row + 1
    .Range("P" & LastLigF).Value = LastLigF - 7
    .Range("P" & LastLigF).Value = Me.CmbNum1.Value
    .Range("Q" & LastLigF).Value = Me.CmbNum2.Value
    .Range("R" & LastLigF).Value = Me.TxtMontant.Value
    .Range("T" & LastLigF).Value = Me.TxtDate.Value
    .Range("T" & LastLigF).Value = Format(Me.TxtDate, "mm-dd-yyyy")
End With
 
With shtFich2
'Dans ce code le montant va dans la colonne S "Montant ajouté"
'La ligne d'origine en colonne Q - CmbNum1
'La ligne destinataire en colonne P - CmbNum2
 
    LastLigF = .Range("P5").End(xlUp).Row + 1
    .Range("P" & LastLigF).Value = LastLigF - 7
    .Range("P" & LastLigF).Value = Me.CmbNum2.Value
    .Range("Q" & LastLigF).Value = Me.CmbNum1.Value
    .Range("S" & LastLigF).Value = Me.TxtMontant.Value
    .Range("T" & LastLigF).Value = Me.TxtDate.Value
    .Range("T" & LastLigF).Value = Format(Me.TxtDate, "mm-dd-yyyy")

05/03/2013, 08h34
Guiiand

Bonjour NEC14,

Il me semble que tu as fais une erreur en utilisant l'auto-completion.

tedo01 t' as donné le code

Code:

LastLigF = .Range("P5").End(xlDown).Row + 1

or dans le code que tu as fourni, le xlDown, est devenu xlUp

Code:

LastLigF = .Range("P5").End(xlUp).Row + 1

Essaye en corrigeant ces lignes
05/03/2013, 09h23
NEC14

Bonjour Guiiand et merci d'avoir éclairé ma lanterne. Je me suis précipité et je n'ai pas vu ce détail.
Il est vrai que cela fonctionne mieux à présent. :ccool: