Bonjour,
Mon problème est très simple: je ne parviens pas a faire un copier-coller !
Je voudair que lorsque ma cellule (i,col_1) soit vide elle soit remplacée par la cellule (i,col_2) de la ligne 3 à la dernière ligne de mon tableau (toutes mes variables ont bien été dimensionné). Voila donc mon code mais il ne fonctionne pas :
For i = 3 To derLigne
If IsEmpty(Cells(i, col_1)) Then
Cells(i, col_2).Copy
Cells(i, col_1).Paste
End If
Next
le message d'erreur renvoyé est "Propriété ou méthode non-gérée par cet objet. ( et le plus étrange c'est que la 1ere cellule est bien copiée mais c'est au niveau du collage que ca ne marche pas ... )
Je voudrais éviter de passer par
Cells(i, col_1)= Cells(i, col_2)
car cela ne concerve pas la mise en page de la cellule.
Merci d'avance pour votre aide