saisie de donnée automatique

[claude40]

bonjour a tous

dans le tableau suivant,je voudrais en cliquant sur le bouton "saisir" enregistre

les données de la ligne de saisie sur la premiere ligne disponible du tableau en dessous.

merci d'avance pour votre aideRegarde la pièce jointe saisie 1.xls

 

[ROGER2327]

Re : saisie de donnée automatique

Bonjour claude40

Regardez si cela vous convient.​

ROGER2327

 

[claude40]

Re : saisie de donnée automatique

merci beaucoup ROGER 2327.

c ce que je voulais.

y'aurait il une solution pour que la derniere ligne saisie soit toujour la premiere ligne du tableau? merci

 

[ROGER2327]

Re : saisie de donnée automatique

Re...

(...) y'aurait il une solution pour que la derniere ligne saisie soit toujour la premiere ligne du tableau? (...)

Remplacez la procédure toto par celle-ci :

Sub toto()
Dim i As Long, j As Long, oDat
   With Me.Range(Me.UsedRange.Cells(10, 1).CurrentRegion, Me.Cells.SpecialCells(xlCellTypeLastCell))
      oDat = .Resize(.Rows.Count + 1, .Columns.Count).Offset(-1, 0).Value
      For i = 1 To UBound(oDat, 1)
         For j = 1 To UBound(oDat, 2)
            If Not IsEmpty(oDat(i, j)) Then Exit For
         Next j
         If j > UBound(oDat, 2) Then Exit For
      Next i
      For j = 1 To UBound(oDat, 2)
         oDat(1, j) = Me.Cells(4, j).Value
      Next j
   .Value = oDat
   End With
End Sub

ROGER2327

 

[claude40]

Re : saisie de donnée automatique

merci ROGER 2327
pour ton aide.une derniere petite chose,quand les chiffres des cellules de saisies s'incrive dans le tableau,sa ne pourrai pas effacer les données dans les cellules de saisie,afin de les liberer pour la prochaine saisi.

merci pour ton aide

 

[ROGER2327]

Re : saisie de donnée automatique

RE...

         oDat(1, j) = Me.Cells(4, j).Value[COLOR="Red"][B]: Me.Cells(4, j).Value = Empty[/B][/COLOR]

Peut-être pouviez-vous trouver cela tout seul, avec un petit effort ?​

ROGER2327

 

[claude40]

Re : saisie de donnée automatique

merci mais je suis assez novice encore,et votre code et assez compliquer.

merci beaucoup

 

[ROGER2327]

Re : saisie de donnée automatique

Re...

merci mais je suis assez novice encore,et votre code et assez compliquer.

Dans ce cas, je donne quelques commentaires pour vous aider à le comprendre. J'en profite pour le simplifier. Voici le code brut :

Sub toto()
Dim i As Long, j As Long, oDat
   With Me.Range(Me.UsedRange.Cells(10, 1).CurrentRegion, Me.Cells.SpecialCells(xlCellTypeLastCell))
      oDat = .Resize(.Rows.Count + 1, .Columns.Count).Offset(-1, 0).Value
      For j = 1 To UBound(oDat, 2)
         oDat(1, j) = Me.Cells(4, j).Value: Me.Cells(4, j).Value = Empty
      Next j
   .Value = oDat
   End With
End Sub

Et le même commenté :

Sub toto()
Dim i As Long, j As Long, oDat
   With Me.Range(Me.UsedRange.Cells(10, 1).CurrentRegion, Me.Cells.SpecialCells(xlCellTypeLastCell))
   [COLOR="SeaGreen"][B]'Désigne la plage de résultats : Dans ce classeur, c'est
   'A10:K47. On aurait pu écrire
   'With Me.Range("A11:K47")
   'Mais en l'écrivant comme je l'ai fait, vous pouvez ajouter des colonnes et des lignes à cette plage.
   'Attention toutefois : il faut une colonne vide à droite du tableau.[/B][/COLOR]
      oDat = .Resize(.Rows.Count + 1, .Columns.Count).Offset(-1, 0).Value
      [COLOR="SeaGreen"][B]'La variable 'oDat' prend les valeurs de la plage ci-dessus,plus la ligne précédente (ligne 10).[/B][/COLOR]
      For j = 1 To UBound(oDat, 2)
         oDat(1, j) = Me.Cells(4, j).Value: Me.Cells(4, j).Value = Empty
      Next j
      [COLOR="SeaGreen"][B]'Cette boucle recopie les valeurs de la ligne de saisie dans le tableau 'oDat' et
      'efface les valeurs de la ligne de saisie.[/B][/COLOR]
   .Value = oDat [COLOR="SeaGreen"][B]'On recopie le tableau dans la plage de résultats.[/B][/COLOR]
   End With
End Sub

Voilà...​

Bon courage !
ROGER2327

 

[claude40]

Re : saisie de donnée automatique

un grand merci ROGER2327

c'est tres gentil d'avoir prit de votre temps pour me fournir les explication de votre code.

je vous en suit tres reconnaissant,je vait l'étudier.

merci encore