Discussion :

[dvguy]

Je souhaite faire une copie d'une cellule (A1) dans la premiere cellule vide de la colonne AR comment faire
Merci de votre aide

[Larsen21]

Tu peux utiliser cette boucle

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim k as integer
k=1
 
While Not IsEmpty(Range("AR"&k))
k = k + 1
Wend
 
'Ensuite
Range("A1").select
 
'puis
Selection.copy
Range("AR"&k).select
ActiveSheet.Paste

a+

[dvguy]

Je souhaite faire une copie d'une cellule (A1) dans la premiere cellule vide de la colonne AR comment faire
Merci de votre aide

Je souhaite faire une copie d'une cellule (A1) dans la premiere cellule vide d'une liste qui va de AR6 à AR32

[Larsen21]

Salut !
si j'ai bien compris alors ça donnerai :

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
 
Dim k as integer 
k = 6 
While Not IsEmpty(Range("AR"&k))
k = k + 1
if k = 32 then
Exit sub
End if
 Wend   
'Ensuite 
Range("A1").select   
'puis 
Selection.copy 
Range("AR"&k).select
ActiveSheet.Paste