[RÉSOLU] VBA : coller sur la premiere ligne vide

[dionys0s]

Bonjour le forum ^^

J'ai un classeur à 14 onglets. Les onglets 2 à 14 viennent alimenter le premier onglet. Chaque tableau des 13 onglets concernés comporte des colonnes de A à H (8 colonnes donc). Je dois copier et coller chaque feuille et la coller sur la premiere ligne vide en partant du haut de mon premier onglet, sachant que celui-ci est completement vide au départ.

D'avance merci pour votre aide

 

[pat01200]

Re : VBA : coller sur la premiere ligne vide

Bonjour,

sais-tu le nombre de lignes de chacun de tes tableaux, meme grosso modo ?

 

[Papou-net]

Re : VBA : coller sur la premiere ligne vide

Bonjour dionys0s,

Voici une petite macro qui définit le numéro de la 1ère ligne vide de la Feuille 1 :

Sub DerLigne()
Dim DLg As Long

With Sheets("Feuil")
  DLg = .Range("A65536").End(xlUp).Row
  If Not .Cells(DLg, 1) = "" Then DLg = DLg + 1
End With
End Sub

Remplace Feuil1 par le nom de ta 1ère feuille.

J'ai prévu ce code dans un module standard, tu peux ainsi l'appeler depuis n'importe quel événement.

Espérant avoir répondu.

Cordialement.

 

[dionys0s]

Re : VBA : coller sur la premiere ligne vide

Bonjour,

sais-tu le nombre de lignes de chacun de tes tableaux, meme grosso modo ?

Il varie de 0 à 300 environ (certains onglets peuvent être vides, mais pour les besoins du fichier, ils doivent rester présents).

 

[dionys0s]

Re : VBA : coller sur la premiere ligne vide

Bonjour dionys0s,

Voici une petite macro qui définit le numéro de la 1ère ligne vide de la Feuille 1 :

Sub DerLigne()
Dim DLg As Long

With Sheets("Feuil")
  DLg = .Range("A65536").End(xlUp).Row
  If Not .Cells(DLg, 1) = "" Then DLg = DLg + 1
End With
End Sub

Remplace Feuil1 par le nom de ta 1ère feuille.

J'ai prévu ce code dans un module standard, tu peux ainsi l'appeler depuis n'importe quel événement.

Espérant avoir répondu.

Cordialement.

Je ne suis pas certain de comment adapter le code à mon action copier/coller. Pourrais-tu m'éclairer ?

D'avance merci

 

[pat01200]

Re : VBA : coller sur la premiere ligne vide

Alors voici le code que je te propose :

Sheets("Feuil2").Select
Range("A1:H300").Select
Selection.Copy
Sheets("Feuil1").Select
Range("A1").Select
ActiveSheet.Paste

Sheets("Feuil3").Select
Range("A1:H300").Select
Selection.Copy
Sheets("Feuil1").Select
If Range("A1").Value = "" Then
Range("A1").Select
Else
If Range("A1").Value <> "" And Range("A2").Value = "" Then
Range("A1").Select
Else
Range("A1").End(xlDown).Offset(1, 0).Select
End If
End If

Sheets("Feuil4").Select
Range("A1:H300").Select
Selection.Copy
Sheets("Feuil1").Select
If Range("A1").Value = "" Then
Range("A1").Select
Else
If Range("A1").Value <> "" And Range("A2").Value = "" Then
Range("A1").Select
Else
Range("A1").End(xlDown).Offset(1, 0).Select
End If
End If


Etc... jusqu'à la feuille 14

 

[CBernardT]

Re : VBA : coller sur la premiere ligne vide

Bonjour à tous,

Par le Bouton "TRANSFERT 1", un exemple de transfert basique avec copy qui renvoie l'ensemble des valeurs, formules (S'il y en a, voir en C1) et la mise en forme existante.
Par le Bouton "TRANSFERT 2", un exemple de transfert par tableau dynamique qui ne reporte que les valeurs présentes dans les feuilles.

Le choix dépend de l'emploi des données dans la base.

 

[pat01200]

Re : VBA : coller sur la premiere ligne vide

Oups... pour que le copier/coller se fasse jusqu'au bout, j'ai oublié de rajouter ceci après le 2e End If de chaque paragraphe :

ActiveSheet.Paste

 

[dionys0s]

Re : VBA : coller sur la premiere ligne vide

Vous cassez pas la tête j'ai trouvé une astuce finalement.
Dites moi ce que vous en pensez :

Sub Mise_en_forme()

Application.ScreenUpdating = False

For i = 2 To Sheets.Count 
    With Sheets(i) 
    
    If Application.CountA(.Cells) > 0 Then
    
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets("Datas CA").Select
    Selection.End(xlDown).Select
    Selection.End(xlUp).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveSheet.Paste
    Selection.End(xlDown).Select
    
    End If
    
    End With
   
Next i

Sheets(2).Select

Application.ScreenUpdating = True

End Sub

J'ai fait le test ça marche en tout cas
(Sheets Datas CA est mon premier onglet)