Discussion :

[nacereddine.mourad]

Bonjour et merci d’avance pour ce forum

Je voudrais copier Range("G10:K10") et le coller (complété le tableau) jusqu'à la dernière cellule de la colonne M.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub Fiche_sommer_doublons_BDD()
 
  Set d1 = CreateObject("Scripting.Dictionary")
  A = Range("D10:F" & [D65000].End(xlUp).Row)
  j = 0
  For i = LBound(A) To UBound(A)
     If Not d1.exists(A(i, 1)) Then j = j + 1: d1(A(i, 1)) = j
  Next i
  Dim b(): ReDim b(1 To d1.Count, 1 To UBound(A, 2))
  For Ligne = LBound(A) To UBound(A)
    p = d1(A(Ligne, 1))
    b(p, 2) = b(p, 2) + A(Ligne, 2)
    b(p, 1) = A(Ligne, 1)
 
  Next Ligne
  [L10].Resize(UBound(b), UBound(b, 2)) = b
 
Range("G10") = ActiveSheet.Name
 
Range("G10:K10").Select
Selection.Copy
 
'Compléter le tableau jusqu'à la dernier cellule de la colonne M
 
End Sub

Merci encore

[Menhir]

Je n'ai pas ouvert ta pièce jointe, entre autre pour les raisons expliquées ici :
https://www.developpez.net/forums/d8...s-discussions/

Comment reconnait-on la dernière ligne de la colonne M ? Est-ce la dernière cellule contenant une valeur / une formule / un format ?

[nacereddine.mourad]

Merci Menhir, voir capteur d’écran pour plus de détails

Pièce jointe 240345

[Menhir]

Remplacer :

Code :

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

1
2
Range("G10:K10").Select
Selection.Copy

Par :

Code :

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

1
2
Range("G10:K10").Copy
Range("G11:K" & Range("M10").End(xlDown).Row()).PasteSpecial(xlPasteFormulasAndNumberFormats)

[nacereddine.mourad]

Merci infiniment Menhir

Bonsoir il y a une petite anomalie, quand il y a plusieurs cellules non vides dans la colonne M, la macro marche très bien, mais si il y a qu’une seule cellule non vide dans la même colonne, la macro copie et colle jusqu’à la dernier ligne d’Excel (1048576)

Code :

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

Range("G10:K" & Range("M9").End(xlDown).Row()).PasteSpecial (xlPasteFormulasAndNumberFormats)

Merci encore Menhir