Specialmacro secondaire ()
Faible rng1 comme gamme
Faible rng2 comme gamme
Faible celle1 comme gamme
Faible celle2 comme gamme
Faible Colm en tant que longtemps
Avec les feuilles (« Sheet1 »)
Placer rng1 = gamme (. Cellules (12, « Q »). Cellules (. Rows.Count, « Q »). Extrémité (xlUp))
Placer rng2 = gamme (. Cellules (12, « C »). Cellules (27, « C »))
Extrémité avec
Pour chaque celle1 dans rng1
Pour chaque celle2 dans rng2
Si celle1 = puis celle2
Colm = cellules (11, « V »). Valeur
celle2.Offset (0, Colm) = celle1.Offset (0, 1)
Finir si
Prochain celle2
Prochain celle1
Sous-marin d'extrémité
|