Discussion :

[NEC14]

Bonjour,

Dans une feuille de calcul il y a un tableau qui commence à la colonne "P".
Le code ci-dessous me permet de transférer des données d'un UF vers ce tableau.
Je n'arrive pas à faire que les données entrent dans le tableau à partir de la 12ème ligne de la colonne P.

Où ai-je commis une erreur ?
Merci pour votre aide

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 12ème ligne et la colonne P
 
With shtFich
    LastLigF = .Range("P5").End(xlDown).Row + 1
    .Range("P" & LastLigF).Value = LastLigF - 12
    .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

[Marc-L]

Bonjour,

à quoi peut bien servir la ligne n°6 ?‼

[casefayere]

Bonjour,

à quoi peut bien servir la ligne n°6 ?‼

et la ligne 10 ?

[grisan29]

bonjour a vous
en essayant ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Dim lig As Integer
With shtFich
    lig = .Range("P65536").End(xlUp)(2).Row
    If lig < 12 Then lig = 12
 
  'insertion d'une ligne
  .Rows(lig + 1).Insert
.Range("P" & LastLigF).Value = Me.CmbNum1.Value
etc...

Pascal

[NEC14]

Bonjour,


et la ligne 10 ?

Bonjour,

Avec la ligne 6 j'essaie de dire que la saisie doit commencer en 12ème ligne. Avec la ligne 10, je dis que les données se trouvant dans l'UF sont transférée dans la colonne T.

Sinon j'ai essayé le code proposé, mais cela ne fonctionne toujours pas.

Merci pour votre aide

[Marc-L]

Bonjour,

ben s'il y a la ligne n°10, à quoi bon la ligne n°11 alors ?‼ Donc à regrouper en une seule ligne …

Sinon la ligne n°6 est incongrue, à supprimer donc et corriger la ligne n°5 (comme grisan29 l'a pourtant bien pressentie …) ainsi :

LastLigF = Application.Max(.Range("P5").End(xlDown).Row + 1, 12) …


__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …


__________________________________________________________________________________________
Quand on est mort, on ne sait pas qu'on est mort, c'est pour les autres que c'est difficile … Quand on est con, c'est pareil ‼

[NEC14]

Merci Marc-L.

J'ai bien modifié le code selon ta proposition (sauf la ligne 10). Cependant je rencontre un autre problème.
Lorsque je fais une 2ème saisie, la première est effacée. Les données saisies doivent aller les unes en dessous des autres.
Merci pour l'aide qui me sera apportée.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
With shtFich
    LastLigF = Application.Max(.Range("P5").End(xlDown).Row + 1, 12)
    .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
    LastLigF = Application.Max(.Range("P5").End(xlDown).Row + 1, 12)
    .Range("Q" & LastLigF).Value = Me.CmbNum2.Value
    .Range("P" & 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")