Copier - coller

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

Bonjour,

un essai :

Cells(I, col_2).Copy _
    Destination:=Cells(I, col_1)

@ bientôt

LouReeD

Bonjour,

Essaie ainsi :

For i = 3 To derligne
    If IsEmpty(Cells(i, col_1)) Then
        Cells(i, col_2).Copy Cells(i, col_1)
    End If
Next

Jean-Eric a écrit :

Bonjour,

Essaie ainsi :

For i = 3 To derligne
    If IsEmpty(Cells(i, col_1)) Then
        Cells(i, col_2).Copy Cells(i, col_1)
    End If
Next

En soi ca marche mais ca me signale "Mémoire insuffisante"

Avez vous essayez l'autre ?

Car si on regarde ici : https://forum.excel-pratique.com/viewtopic.php?p=396656#p396656

le demandeur à mis un commentaire disant qu'il manquait de mémoire....

C'est un peu ce que vous dites, non ?

@ bientôt

LouReeD

RE,

Bonjour LouReeD,

Joins un fichier à ta demande ou la procédure dans sa totalité !...

Cdlt.

Jean-Eric a écrit :

RE,

Bonjour LouReeD,

Joins un fichier à ta demande ou la procédure dans sa totalité !...

Cdlt.

La procédure est extrêmement longue. Ce copier-coller n'est qu'une ligne au milieu de quelque chose beaucoup plus gros. Je joint quand meme le fichier que j'utilise. J'ai cerné la procédure par des lignes de points d'exclamations pour la repérer plus facilement