couper coller si.

PhilinOZ · 2 Juillet 2009

Bonjour,
Je suis nouveau.
A partir d'un fichier txt j'obtiens ce fichier excel (en piece jointe).
Il faut que je le remanie pour qu'il soit lisible.

La formule qui se trouve en F12 : =IF(D12<>0,H13,"") COPIE H13 dans la cellule, et je voudrais qu elle COUPE/colle au lieu de COPIER/coller.

La solution est sans doute une macro mais tout les posts que j ai trouve concernent des problemes beaucoup plus compliques que le mien et, ne connaissant pas le VBA, je n arrive pas a adapter les macros trouvees sur le web.

Merci de votre aide.
Philippe

Raja · 2 Juillet 2009

Re : couper coller si.

Bonjour,

Essaye ce code suivant de façon static :

Code:

If (Range("D12") <> 0) Then Range("H13").Cut Destination:=Range("F12")

Si tu veux faire ça tout le long de ton fichier il vaut mieux un code comme celui-ci :

Code:

Sub test()
  Dim i As Long
  Dim DerLig As Long
  DerLig = ActiveCell.SpecialCells(xlLastCell).Row
  For i = 12 To DerLig Step 4
    If (Range("D" & i) <> 0) Then Range("H" & i + 1).Cut Destination:=Range("F" & i)
  Next
End Sub

PhilinOZ · 13 Juillet 2009

Re : couper coller si.

Bonjour,
J'ai utilise cette macro des le landemain en oubliant de remercier.
alors MILLE mercis j'ai gagne beacoup de temps grace a cette macro.

couper coller si.

PhilinOZ

XLDnaute Nouveau

Pièces jointes

Raja

XLDnaute Accro

PhilinOZ

XLDnaute Nouveau

Discussions similaires

couper coller si.

PhilinOZ

XLDnaute Nouveau

Pièces jointes

Raja

XLDnaute Accro

PhilinOZ

XLDnaute Nouveau

Discussions similaires

Privacy & Transparency

Privacy & Transparency