Discussion :

[kabambad]

Bonjour,

Je suis nouveau en VBA, j'ai une feuille que j'ai nommée formulaire, une deuxième feuille j'ai nommée base, j'ai alors crée une macro qui copie les données de la feuille formulaire pour coller sur la feuille base, mais je n'arrive pas à faire la suite c'est à dire deuxième donnée pour coller sur la ligne suivante ainsi de suite.
Veuillez m'aider SVP

[marot_r]

Bonjour.

Tu peux utiliser la fonction suivante pour déterminer la dernière ligne utilisée puis t'en servir pour copier tes données.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Public Function GetLastRow(prmArea As Range, Optional prmMinValue As Long = 0) As Long
    'Suppose que la zone ne contient pas de ligne blanche au milieux des données.
    ' Attention si une formule retourne "", cela n'est pas considéré comme une ligne blanche.
    Dim rowCount As Long
    rowCount = WorksheetFunction.CountIf(prmArea, "<>")
 
    If rowCount = 0 Then
        rowCount = 1
    End If
 
    GetLastRow = WorksheetFunction.Max(rowCount + prmArea.Cells(1, 1).Row - 1, prmMinValue)
End Function

ici un exemple d'utilisation.

Code :

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

1
2
3
4
dim lastRow as long
lastRow=GetLastRow(thisWorkbook.Worksheets("UneFeuille").columns("A"))
dim targetRow as long
targetRow=lastRow+1

A+