Couper Coller Cellule

Question

Bonjour a tous,

J'ai un petit soucis, je viens de créer une macro Excel pour couper une cellule et la coller autre part mais je n'arrive pas à la coller.

Voici l'extrait de mon programme:

Sub copiercoller()
Fichier = "Excel1.xls"
Workbooks(Fichier).Activate


Set f = ActiveSheet 
NbLignes = f.UsedRange.Rows.Count                      'compte le nombre de ligne sur cette feuille
x = 97                                                                      ' nombre de colonnes concernees par la modif
For i = 2 To NbLignes
For j = 2 To 2
If Cells(i, j).Formula = "" Then
Cells(i+1, j).Cut                                                  'je coupe la cellule suivante                                                       

Cells(i+100,j).Paste                           'PROBLEME


End If


Next j
Next i


End Sub

merci d'avance

garion28 · Answer

bonjour,
déjà ton for j=2 to 2 ne sert a rien.
tu n'a déclaré aucune variables.
tu peu pallier au problème en fesant 
Cells(i+100,j).value=Cells(i+1, j).value
Cells(i+1, j).value=""

bien entendu si je te donne ca c'est parce que je n'ai jamais utilisé le copier/couper/coller en vba ^^

nico80310 · Answer

merci bien ça fonctionne même si il y a peut etre mieux ça me va

Couper Coller Cellule

2 réponses

Votre réponse

Discussions similaires