Copier données dans la première colonne non vide d'une autre feuille

Bonjour,

je cherche à copier des données dans la plage B4 à B27 d'un onglet (zone jaune) et les coller dans la première cellule non vide d'une autre feuille en commençant en ligne 2 (zone orange).

19vba.zip (637.86 Ko)

Comment puis-je faire en VBA? Je suis une grand débutant... :-)

Bonjour,

A mettre dans un module standard :

Option Explicit

Sub CopierColonneTcd()

Dim I As Integer, J As Integer, DerniereLigne As Integer, DerniereColonne As Integer
Dim AireProd As Range, AireTcd As Range

    With Sheets("Indicateurs production")
         DerniereLigne = .Cells(.Rows.Count, 1).End(xlUp).Row
         DerniereColonne = .Cells(2, .Columns.Count).End(xlToLeft).Column + 1
         Set AireProd = .Range(.Cells(2, 1), .Cells(DerniereLigne, 1))
    End With

    Set AireTcd = Sheets("Heure std jour").PivotTables(1).RowRange

    For I = 1 To AireProd.Count
        For J = 1 To AireTcd.Count
            If AireProd(I) = AireTcd(J) Then
               With AireProd(I).Offset(0, DerniereColonne - 1)
                    .Value = AireTcd(J).Offset(0, 1)
                    .NumberFormat = "#,##0.00"
               End With
            End If
        Next J
    Next I

    Set AireProd = Nothing: Set AireTcd = Nothing

End Sub

Merci Eric. C'est parfait !

Bonjour Eric, J’aurai besoin de votre aide pour optimiser mes macros :

  • Macro « intro_colonne_copie »
  • Faire une copie en tant que valeur du tableau dans un onglet qui est ensuite renommé (cf commentaire dans la macro) pour limiter le poids du fichier
  • Macro « MAJ TCD »
  • Ajouter la copie des cellules encadrées en vert dans la zone en rouge en cherchant la première colonne vide
  • A faire pour les 3 TCD qui sont l’un dessous l’autre
  • Cacher les étapes de déroulement de la macro, je ne sais pas comment le dire mais en fait ne pas voir l’écran scroller seul pendant que la macro s’effectue
  • je peux envoyer le fichier en mp car trop gros

Bonjour,

Désolé, je ne suis pas disponible en ce moment.

bonsoir

Quelqu’un d’autre pourrait-il me donner un coup de main svp ?

Rechercher des sujets similaires à "copier donnees premiere colonne vide feuille"