Copier cellules non vides d'un tableau et les insérer dans une BDD

Bonsoir,

Dsl de vous déranger, je viens vers vous car je n'arrive pas a créer un document me permettant d'obtenir un historique a partir d'un tableau excel. Je souhaite copier uniquement les cellules non vides et les insérer dans un tableau via une macro.

Voir en PJ le document.

En effet, dans la feuille excel "ENREGISTRER", je souhaite copier le tableau des problèmes constatés vers la feuille "BASE PROBLEME". Je n'arrive pas a créer une macro qui ne prend en compte que les cellules non vides et les insérer dans la feuille excel "BASE PROBLEME". Si par exemple, le tableau des problèmes constatés est vide, je ne veux pas qu'une ligne soit rajouté dans la feuille excel "BASE PROBLEME". En revanche, si 4 lignes sont renseignées dans le tableau des problèmes constatés, il faut que 4 lignes soit insérer dans la feuille excel "BASE PROBLEME".

Merci par avance pour votre aide.

Bonjour,

à tester,

Sub ENREGISTRER_Probleme()
Set sh1 = Sheets("ENREGISTRER")
Set sh2 = Sheets("BASEPROBLEME")
LastRow1 = sh1.Cells(Rows.Count, "C").End(xlUp).Row
LastRow2 = sh2.Cells(Rows.Count, "A").End(xlUp).Row + 1
If LastRow1 > 10 Then
    add1 = Range(Cells(11, "C").Address, Cells(LastRow1, "G").Address).Address
    add2 = Range(Cells(LastRow2, "A").Address, Cells(LastRow2 + LastRow1 - 11, "E").Address).Address
    sh2.Range(add2).Value = sh1.Range(add1).Value
End If
End Sub

Bonjour,

Merci beaucoup pour votre aide, ça fonctionne.