Discussion :

[salivie]

bonjour
je voudrais pouvoir ajouter une ligne de données dans un classeur contenant des données.
j'aimerai que l'insertion se fasse a la dernière ligne(la premiere ligne apres le dernier enregistrement)
cordialement
salivie

[Duddy]

Bonjour,

Voici une procédure qui me permet d'écrire des informations après la dernière ligne ayant des saisies.

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
19
20
21
22
23
24
25
26
27
28
29
30
31
    Sub ReportRROB_ReportInfoRROB()
        ThisWorkbook.Sheets("Prochaine_Liste_RROBs").Activate
        If Cells(2, 1) <> "" Then
          Cells(1, 1).Select
            Selection.End(xlDown).Offset(1, 0).Select 'verif si cellule A2 pas vide
            'report des valeurs
            With Selection
                  .Offset(0, 0) = CStr(Ligne.Cells(1).Value)
                  .Offset(0, 1) = CStr(Ligne.Cells(4).Value)
                  .Offset(0, 2) = CStr(Ligne.Cells(8).Value)
                  .Offset(0, 3) = CStr(Ligne.Cells(9).Value)
                  .Offset(0, 4) = CStr(Ligne.Cells(10).Value)
                  .Offset(0, 5) = Format(Month(Now) - 1, "00")
                  .Offset(0, 6) = Format(Right(Year(Now), 2), "00")
            End With
        Else
            Cells(2, 1).Select
            'report des valeurs
            With Selection
                  .Offset(0, 0) = CStr(Ligne.Cells(1).Value)
                  .Offset(0, 1) = CStr(Ligne.Cells(4).Value)
                  .Offset(0, 2) = CStr(Ligne.Cells(8).Value)
                  .Offset(0, 3) = CStr(Ligne.Cells(9).Value)
                  .Offset(0, 4) = CStr(Ligne.Cells(10).Value)
                  .Offset(0, 5) = Format(Month(Now) - 1, "00")
                  .Offset(0, 6) = Format(Right(Year(Now), 2), "00")
            End With
        End If 'cells(2,1)<>""
 
        oWshMES.Activate
    End Sub

Bien-sur, il est nécessaire de l'adapter à ton code.

Bon courage

[salivie]

je comprend malheureusement rien a ton code!!!
merci tout de même

[aalex_38]

Bonjour,

Pour trouver la dernière ligne nom vide dans une feuille (l'equivalent manuel est de se placer sur la dernière ligne et de faire CTRL + flêche du haut ) :

Code :

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

1
2
3
4
 
Dim DerLig as long 
' derlig =  Cells(65536, 1).End(xlUp).Row  ' dernière ligne remplie
derlig = Cells(65536, 1).End(xlUp).Row + 1 ' la ligne vide d'après

[Duddy]

Rebonjour,

Je vais essayer de décrypter:

En premier tu actives ta feuille
Ensuite tu regardes si la cellule A2 est vide ou non

si non, tu sélectionnes la cellule A1 et la formule va te positionner sur la dernière cellule non vide de la colonne A

Ensuite, tu reportes par la propriété .OFFSET(0=même ligne, 1=colonne B) tes valeurs.

En espérant avoir éclairé le morceau de code.

Sinon, il faut débuter par la lecture des tutos qui sont très instructifs.

Bon courage

[laetitia]

bonjour salivie marc58 aalex le forum une autre methode pour trouver la premiere ligne vide. pour ajouter des donnees pas assez d' infos de ta part !!!

Code :

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

1
2
3
4
5
6
Option Explicit
Sub test5()
Dim c As Long
c = Cells.Find("*", , , , , xlPrevious).Row + 1
MsgBox c
End Sub

ps bien vu alex pour la gestion de l erreur si vide de plus je connaissais pas la derniere solution interessante a etudier a+

[aalex_38]

Bonjour à tous,

Sympa le code Laetitia, mais ou vas-tu chercher tout ça

Si aucune cellule dans la feuille j'ai ajouté une gestion d'erreur :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub test5()
Dim c  As Long
On Error Resume Next
c = Cells.Find("*", , , , , xlPrevious).Row + 1
On Error GoTo 0
 
If c = Empty Then
    MsgBox "Aucune cellule n'est remplie "
Else
    MsgBox c
End If
End Sub

Edit : et encore une autre manière =>

Code :

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

1
2
Dim ws As Worksheet : Set ws = Feuil1
MsgBox Split(ws.UsedRange.Address, "$")(4) + 1

[salivie]

sa c pour cherché le nombre totale des enregistrement(suffit d'incrementé "Nbrenregistrement " et pui inserer)

Code :

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

1
2
3
dim cel as Range
Set cel = Range("A1")      
Nbrenregistrement = celM.End(xlDown).Row

mais j'ai toujour pa eu de reponse pour l'insertion???
si kelkun connai une fonction je lui serai reconnaissan
cordialement salivie

[mercatog]

Code :

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

DernLig=Range("A65536").End(xlUp).Row

te donne la dernière ligne non vide de la colonne A.
ta première ligne vide de la colonne A sera donc

Code :

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

DernLig+1

Qu'entends tu par insérer? si tu peux expliquer davantage ce que tu cherches à faire?

[salivie]

voila les données que j'aimerai insérer sont extraite de plusieurs autre fichier excel et traité puis stocké dans des variables.
j'aimerai pouvoir insérer ces variables(données) que j'ai extraite dans un classeur excel.
je m'explique

(1ere ligne,1ere colonne)variable1(1ere ligne,2eme colonne)variable2...
ainsi de suite merci

[laetitia]

rebonjour le fil un exemple sur la derniere ligne j 'insere 2 variables
variable i & j sur les 2 premieres cellules
variable i=essai
variable j=1

Code :

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

1
2
3
4
5
6
7
Option Explicit
Sub test5()
Dim c As Long, i As Variant, j As Variant
i = "essai": j = 1
c = Cells.Find("*", , , , , xlPrevious).Row + 1
Cells(c, 1) = i: Cells(c, 2) = j
End Sub

[salivie]

merciiiiiiiiiiiiii ca marche