cellule vide

[EMMA]

bonjour à tous,

quelqu'un peut il m'aider?

comment peut on faire pour copier une selection d'un feuille source en verifiant si les cellules de la feuille destination sont sont vides avant de les remplir?

cette opération je dois la répeter plusieurs fois sur des feuilles destination differentes mais sur une plage située au même endroit. (Sheets("cours").range("P48:V52"))

j'aimerai qu'avant de les copier , excel verifie si en P48 il n'y a rien
si oui, il décale d'une colonne à droite et recommence jusqu'à copier les 5 cellules de sur une des 7 colonnes dont il dispose.

j'arrive à faire un code mais je vais devoir le répeter 37 fois pour 37 feuilles destinations differentes.

merci de m'aider car je rame très fort depuis une semaine

 

[David Guy]

Salut
personnelement je ne suis pas trop doué en prog .
l'astuce dont je me servirait serait de faire dans une cellule libre un nbval(p48:c48) et de me servir du résultat pour décaler ma copie
Cordialement
G.David

 

[Emma]

coucou,

merci mais connais tu le code vba pour cela

j'ai essayé avec un do until cell(i,22).value2=""
i=i+1
loop


mais comment puis je automatisé cet opération?


Une idée peut être ?
merci

 

[G.David]

je récupère le numéro de la colonne par
sheets("regroupement").select
colonne=range("T5").value ' t5 étant la cellule contenant le nbval(c4848)

ma copie devant etre sur un autre feuille
Sub recopie()
Sheets("regroupement").Select
colonne = Range("t5").Value + 3 'pointe le nombre de colonnes pleinnes

For numero = 1 To 2

Sheets("feuil" & numero).Select
p = Range("U1").Value ' U1 de la feuille numero contenant nbval(A:A)

For i = 48 To p + 48

Sheets("regroupement").Select
Cells(i, colonne) = Sheets("feuil" & numero).Cells(i, 1)

Next
colonne = colonne + 1
Next

End Sub("feuil" & numero).cells(i,1)

Tiens moi au courant
Cordialement
G.David

 

[G.David]

prends la macro a partir du titre sub recopie()
je vois que j'ai laissé des scories sur le message
G.David

 

[G.David]

A propos
est ce que ça à marché
G.David