faire un copier/coller automatique

[jad73]

bonjour le forum
j'ai une macro ou a l'interieur de cette macro j'ai un copier/coller:

 Range("BN2:BO2").Select
    Selection.Copy
    Range("U1").Select
    ActiveSheet.Paste

qui prend les données en col BN2:BO2 et les place en U1,j'aimerais que cette action continue chaque fois que la macro est terminé change de ligne en prenant non plus en BN2:BO2 mais en BN3:BO3 et ceci jusqu'à la fin des col BN:BO c'est a dire la ligne BN191:BO191.La macro s'exécute automatiquement avec la fonction Call (nom de la macro).
Pour une autre macro ou j'ai qu'une seule valeur en V1, j'ai ce code la,mais la il y a un couplé.

ajoute +1 a V1
    Worksheets("Feuil1").Select
    Range("V1") = Range("V1") + 1
    If Range("V1").Value = 71 Then Stop
    Calculate
    Call Macro5

merci

 

[Dull]

Re : faire un copier/coller automatique

Salut Jad73, le Forum

Pas sur d'avoir compris
essaye ce code à placer dans un module standard

Option Explicit
Sub EssAi()
Dim DerLig As Long, i As Long
DerLig = Range("BN" & Rows.Count).End(xlUp).Row
    For i = 2 To DerLig
        Range("BN2:BO" & DerLig).Copy Destination:=Range("U1")
    Next i
End Sub

ce code te permettra de copier les valeurs de BN2:BODernièreLigne en colonne U

Essaye de mettre un petit fichier sans données confidentielles pour t'aider davantage

Bonne Journée

 

[jad73]

Re : faire un copier/coller automatique

bonjour Dull,le forum
voici le fichier ci-joint.
attention code 'combinaison' assez long mettre qu'un seul couplé en U1:V1
pour faire fonctionner la macro en continue activer la ligne 'call macro1' en fin de code, la aussi ne mettre que 2 couplés en BN:BO
Code combinaison assez long, on me dit de changer d'algorithme mais ne connaissant rien en algo si vous avez une idée, sinon tampis juste modifier le code 'ajoute un 2ème couplé' m'arrangerais déjà bien.
merci