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")

[Marc-L]

LastLigF = Application.Max(.Cells(.Rows.Count, 16).End(xlUp)(2).Row, 12) …


Sinon pas assez d'élément, faudra suivre en mode pas à pas pour que vous compreniez ce qu'il se passe …


__________________________________________________________________________________________

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


__________________________________________________________________________________________
L'expérience, c'est une connerie par jour, mais jamais la même …

[Theze]

Bonjour,

Je ne suis pas sûr d'avoir bien saisi ?
Si tu veux entrer les valeurs des contrôles de ta Form dans la feuille et les saisies les unes à la suite des autres, il te faut chercher à chaque fois la dernière ligne non vide et décaler vers le bas. Tu parle de colonne "P" et tu fais référence à la colonne "L" >12< ?

Code :

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

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

Adapte et teste ce qui suit :

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
 
Dim shtFich As Worksheet
Dim Cel As Range
 
Set shtFich = ActiveSheet
 
With shtFich
 
    Set Cel = .Cells(.Rows.Count, 16).End(xlUp).Offset(1, 0)
 
End With
 
Cel.Value = Me.CmbNum1.Value
Cel.Offset(, 1).Value = Me.CmbNum2.Value
Cel.Offset(, 2).Value = Me.TxtMontant.Value
Cel.Offset(, 4).Value = Format(Me.TxtDate, "mm-dd-yyyy")

Hervé.

[NEC14]

Voilà ce que j'ai fait. Les données se mettent bien les unes en-dessous des autres au fur et à mesure de la saisie, sauf que la saisie commence en ligne 28 et pas en 12.

Que n'ai-je pas fait correctement ??

Merci par avance

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
18
 
With shtFich
    Set Cel = .Cells(.Rows.Count, 16).End(xlUp).Offset(1, 0)
    Cel.Value = Me.CmbNum1.Value
    Cel.Offset(, 1).Value = Me.CmbNum2.Value
    Cel.Offset(, 2).Value = Me.TxtMontant.Value
    Cel.Offset(, 4).Value = Me.TxtDate.Value
    Cel.Offset(, 4).Value = Format(Me.TxtDate, "mm-dd-yyyy")
End With
 
With shtFich2
    Set Cel = .Cells(.Rows.Count, 16).End(xlUp).Offset(1, 0)
    Cel.Value = Me.CmbNum1.Value
    Cel.Offset(, 1).Value = Me.CmbNum2.Value
    Cel.Offset(, 3).Value = Me.TxtMontant.Value
    Cel.Offset(, 4).Value = Me.TxtDate.Value
    Cel.Offset(, 4).Value = Format(Me.TxtDate, "mm-dd-yyyy")
End With

[Theze]

Re,

Donc, ceci signifie que tu veux que tes données soient insérées entre deux blocs de valeurs.
Pour rechercher depuis la ligne 5 en colonne P et vers le bas :

Code :

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

1
2
3
4
5
6
 
With shtFich
 
    Set Cel = .Cells(5, 16).End(xlDown).Offset(1, 0)
 
End With

Hervé.

[NEC14]

La saisie commence en ligne 11 alors qu'elle devrait être en ligne 12, sinon le reste fonctionne bien.

Merci pour ton aide

[Theze]

Alors, remplace par :

Code :

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

1
2
3
4
5
6
 
With shtFich
 
    Set Cel = .Cells(10, 16).End(xlDown).Offset(1, 0)
 
End With

Hervé.

[NEC14]

Merci beaucoup Theze, ça fonctionne super.

Merci à tous ceux qui m'ont apporté leur aide.