Discussion :

[Phil333250]

Bonjour,

Je cherche à copier la valeur contenue dans une cellule (H21) dans la première cellule vide de ma colonne AM.

J'ai bien trouvé un code qui me permet d'identifier la dernière cellule vide de la colonne AM et me renvoie l'info dans un MsgBox.

Code :

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

1
2
3
4
5
6
7
8
9
Sub Derniere_Cellule()
 
Dim dercel As Long
 
dercel = Cells(Rows.Count, 39).End(xlUp).Row   '39 = colonne AM
 
MsgBox dercel
 
End Sub

Mais après je bloque complètement. Je n'arrive pas à rendre active la cellule vide et y copier la valeur de H21, malgré de nombreuses tentatives.

Je précise que mes connaissances en VBA sont très limitées.

Merci pour votre aide.

[Menhir]

Je cherche à copier la valeur contenue dans une cellule (H21) dans la première cellule vide de ma colonne AM.
J'ai bien trouvé un code qui me permet d'identifier la dernière cellule vide de la colonne AM et me renvoie l'info dans un MsgBox.

Est-ce que tu recherches la première ou la dernière cellule vide ?

Si je suppose que dans ton code, dercel est ce que tu recherches comme cellule cible, ce que tu souhaites peut se faire en une seule ligne :

Code :

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

Cells(Rows.Count, "AM").End(xlUp).Offset(1, 0).Value = Range("H21").Value

Je n'arrive pas à rendre active la cellule vide

Dans la plupart des cas, activer ou selectionner une cellule dans un code VBA est une mauvaise idée et il est possible de faire mieux (plus simple, plus beau, plus rapide) sans selectionner.

[halaster08]

Bonjour,

Merci d'utiliser la balise code (bouton #), c'est beaucoup plus lisible.

Mais après je bloque complètement. Je n'arrive pas à rendre active la cellule vide et y copier la valeur de H21, malgré de nombreuses tentatives.

Il est inutile de rendre une cellule active afin d'un copier quelque chose

Code :

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

1
2
3
Dim dercel As Long
dercel = Cells(Rows.Count, 39).End(xlUp).Row '39 = colonne AM
cells(dercel+1,39).value=cells(21,8).value

edit:Merci Menhir, effectivement j'ai répondu un peu vite

[Menhir]

Bonjour halaster08

Code :

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

1
2
3
Dim dercel As Long
dercel = Cells(Rows.Count, 39).End(xlUp).Row '39 = colonne AM
cells(dercel,39).value=cells(21,8).value

Je pense qu'il faudrait ajouter un "+1" à dercel dans la dernière ligne (pour la même raison que j'ai mis un Offset dans mon code).
Sinon, l'écriture se fera sur la dernière cellule occupée.

[Phil333250]

Bonjour Menhir et halaster08

Merci pour vos réponses.

J'ai testé vos 2 solutions.

La solution de Menhir fonctionne super. En revanche je ne comprenais pas la raison d'être du offset.
La solution de halaster08 fonctionne mais l'écriture s'est faite sur la dernière cellule occupée.

La remarque de Menhir m'a permis de comprendre le pourquoi de l'offset.
Et effectivement il faut bien mettre le "+1" à dercel dans la dernière ligne. Ainsi le code fonctionne.

Merci à vous deux.