couper coller si.

[PhilinOZ]

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]

Re : couper coller si.

Bonjour,

Essaye ce code suivant de façon static :

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 :

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]

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.