data transfer with regular interval

[Thespeedy20]

Bonjour forum,
J'ai des données qui doivent être supprimées sur une feuille, maximum 20 lignes et faire un saut de 48 pour copier le reste des données (encore 20 lignes)... jusqu'à ce que toutes les données soient copiées voir photos

jointes

Les données doivent être insérées entre A22 et A41, puis faire le saut de 48 et recopier à nouveau...répéter l'opération tant qu'il y a des données

Sous-transfert()


  Dim CelSource As Range
  Dim CelCible As Range
  Dim Compteur As Integer
  Dim NBlignes As Integer
  Estomper un entier
  Dim b en tant qu'entier
 
  Application.ScreenUpdating=Faux
  Application.EnableEvents=Faux
 
  Set CelSource = Worksheets("Trimestre_Formulaire").Range("A5")
  Set CelCible = Worksheets("Test").Range("A23")
 
  NBlignes = Application.CountA(Sheets("Trimestre_Formulaire").Range("A:A")) - 1
 
   X = Application.RoundUp(NBlignes / 20, 0) * 48
    
     
     Pour i = 1 à X Étape 48
        Pour Compteur = 1 à 20
        
        
    
    CelCible(a, 1).Valeur = CelSource(1, 1).Valeur
    CelCible(a, 2).Valeur = CelSource(1, 2).Valeur
    CelCible(a, 3).Valeur = CelSource(1, 3).Valeur
    CelCible(a, 4).Valeur = CelSource(1, 4).Valeur
    CelCible(a, 5).Valeur = CelSource(1, 5).Valeur
    CelCible(a, 6).Valeur = CelSource(1, 6).Valeur
    CelCible(a, 7).Valeur = CelSource(1, 7).Valeur
    
      
    Définir SourceCel = SourceCel(2)
    Set CelCible = CelCible(2)
    
 
  
    Suivant
  
      Suivant
    
    
  Application.ScreenUpdating=True
  Application.EnableEvents = Vrai
Fin de sous-titre

J'ai ce code mais il ne fonctionne pas...
Merci de votre aide. OLi

 

[Thespeedy20]

Erreur dans le message : j'ai des données qui doivent être transférées et non supprimées

 

[Fluff]

Duplicate to: data transfer with regular interval

In future, please do not post the same question multiple times. Per Forum Rules (#12), posts of a duplicate nature will be locked or deleted.

In relation to your question here, I have closed this thread so please continue in the linked thread.