Discussion :

[kadoche]

Bonjour,

je cherche comment avec une macro dire je veux recopier les cellules K2:L2 jusqu’à la dernière ligne qui est renseignée dans mon tableau , celle ci étant aléatoire .
J'espere que quelqu'un pourra m'aider par avance merci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Macro2()
    Range("K2:L2").Select
    Selection.Copy
    Range("J2").Select
    Selection.End(xlDown).Select
    Range("K11").Select
    Selection.End(xlToRight).Select
    Selection.End(xlToLeft).Select
    Selection.End(xlToRight).Select
    Range("K3:L11").Select
    Range("L11").Activate
    ActiveSheet.Paste
End Sub

[MarcelG]

Bonjour et bienvenu sur ce forum,

Tout d'abord, un conseil : oublie les "Select".

Un principe de base de VBA est de proscrire la sélection

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Range("A1").Select
Selection.Copy

pour activer directement une action

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A1").Copy

Dans ton cas, il te faut définir la dernière ligne et recopier tes cellules K2:L2

Pour cela, tu peux coder

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Macro1()
 
Dim déb As Range, fin As Range
 
'1ère cellule à droite de ta cellule active
 Set déb = Range("K2:L2")
 
'dernière cellule à droite de ta zone, 10 = colonne J donc L = colonne 12
 Set fin = Cells(Rows.Count, 10).End(xlUp).Offset(0, 2)
 
'formule appliquée à la zone définie
 déb.Copy Destination:=Range(déb.Offset(1, 0), fin)
 
End Sub

Regarde bien ce code ligne par ligne, et reviens si nécessaire.

[kadoche]

Merci MarcelG c'exatement cela que je cherchais merci pour ton aide.

[MarcelG]

Kadoche,

Si tu n'effectues cette copie que pour ce cas particulier, tu peux te passer de VBA.

Exemple :

Affecte n'importe quelles valeurs dans tes cellules J2 à J26.

1 -Affecte 2 valeurs en K2 et L2.

2 - Sélectionne avec la souris, cette zone de 2 cellules.

3 - Au coin inférieur droit, ton pointeur de souris devient une croix.

(Tu peux bien entendu recopier cette zone en tirant ta sélection vers le bas, jusqu'à la ligne 26).

4 - Au lieu de cela, cette croix visible, effectue un double clic.

Tu verras que tes valeurs, comme des formules d'ailleurs, se recopieront jusqu'à la dernière ligne informée, ici 26.

(Et n'ouble pas de qualifier ton post en "Résolu")