Excel VBA - Copier et coller sans des lignes vides

[excelfresh]

Bonjour le forum
Je souhaite ajouter les inscriptions faites sur la feuille « inscription » à la feuille « BDD »

Problème: Lorsque je fais moins de 20 lignes d’inscription, il y a des lignes vides entre l’enregistrement précédent et le dernier enregistrement. Ça ne doit pas être !

Et pourtant le code que j’ai écrit doit copier uniquement les lignes avec des inscriptions de la feuille « Calcul » et les coller directement à partir de la première ligne vide de la feuille « BDD ».

Que puis-je faire pour remédier à cela ?

Je vous remercie d’avance

 

[vgendron]

Hello

euh.. ton code ne correspond pas à ce que tu décris...
tu dis vouloir copier les infos de la feuille "Inscription" à la FIN de la feuille "BDD"

ton code va chercher des infos dans la feuille "Valeur"...?

essaie ceci

Sub copier()

Dim  L As Long

With Sheets("BDD")
    L = .Range("C" & .Rows.Count).End(xlUp).Row + 1
End With
With Sheets("Inscription")
    DerLig = .Range("A" & .Rows.Count).End(xlUp).Row
    .Range("A2").Resize(DerLig - 1, 3).Copy Destination:=Sheets("BDD").Range("A" & L)
    .Range("A2").Resize(DerLig - 1, 2).ClearContents
End With
End Sub

 

[vgendron]

ok, je viens de comprendre.. pas facile quand on ne précise pas qu'il y des formules un peu partout...

Sub copier2()

Dim L As Long

With Sheets("BDD")
    L = .Range("C" & .Rows.Count).End(xlUp).Row + 1 'dernière ligne de la BDD
End With
With Sheets("Inscription")
    DerLig = .Range("A" & .Rows.Count).End(xlUp).Row
End With

With Sheets("Calcul")
    .Range("A2").Resize(DerLig - 1, 4).Copy
    Sheets("BDD").Range("A" & L).PasteSpecial Paste:=xlPasteValues
End With
With Sheets("Inscription")
    .Range("A2").Resize(DerLig - 1, 2).ClearContents
End With
End Sub

dans ton code initial, ca copiait meme les lignes "Vides". car en fait. quand tu fais ta recherche de Derlig sur la feuille Calcul.. pour excel. une cellule avec formule = cellule NON vide..

 

[vgendron]

Re,
tu sembles avoir aussi un pb dans tes formules de recherche..

voir PJ:
LValeurs est une zone nommée
au lieu de la fonction recherche, j'utilise Index Equiv

 

[herve62]

Bonsoir
SLt Vgendron
En fait comme j'ai vu notre ami trouve une "Fausse" derlig , car il y a des formules
J'ai refait avec une fonction que j'avais mais bizarre ne marche plus ??
donc à l'ancienne comme ça :

 

[excelfresh]

Merci à Vgendron et Herve62!