XL 2010 deplacer donnees colonne

[nabilexcel2007]

Bonjour
SVP j'aimerai deplacer les donnees de mes colonnes F & G & H & I dans D & E
par ex
dannees colonne F dans colenne D
dannees colonne G dans colenne E
dannees colonne H dans colenne D
dannees colonne I dans colenne E
SANS ECRASER LES DONNEES DE MES COLONNES D & E
Merci

 

[fanfan38]

Bonjour
Si c'est des dates tu souhaites:
Si G4=20/10/2020 et i4=15/08/2020
E4=20/10/202015/08/2020
A+ François

 

[soan]

Bonjour nabil, François,

Ta demande est réalisable par macro VBA ; fichier joint ci-dessous.

Ctrl e ➯ ça déplace les dates en D:E, sans écraser celles de D9:E9

Sub CpyDates()
  Dim plg As Range, cel As Range, dlg&, lig&, k As Byte
  dlg = Cells(Rows.Count, 2).End(3).Row
  Set cel = ActiveCell: Application.ScreenUpdating = 0
  For lig = 3 To dlg
    With Cells(lig, 4)
      If IsEmpty(.Value) Then
        k = 0
        If Not IsEmpty(.Offset(, 2)) Then k = 2 Else _
          If Not IsEmpty(.Offset(, 4)) Then k = 4
        If k > 0 Then
          Set plg = .Offset(, k).Resize(, 2)
          plg.Copy: .PasteSpecial -4163
          plg.ClearContents
        End If
      End If
    End With
  Next lig
  Application.CutCopyMode = 0: cel.Select
End Sub

Edit : j'avais oublié de joindre le fichier ; erreur corrigée.

soan

 

[nabilexcel2007]

Bonjour je viens de consulter et merci j'ai trouver la solution faut copier et coller avec collage spécial et cocher la case colle sans blanc

 

[soan]

Bonjour Nabil,

Désolé, j'avais oublié de joindre mon fichier dans mon post précédent.

Même si tu as trouvé une solution, mon fichier t'intéressera peut-être.

soan

 

[nabilexcel2007]

Ah ok je me suis dis hhhh
ce n'est pas grave Merci comme meme information en +