insertion de colonne par VBA

[gege21]

bonsoir a tous,

j'ai besoin de votre aide

j'ai une macro qui me mais dans la même colonne la date et d'heurs (colonne "A" date colonne "b" heurs et sont envoyé dans le colonne "r"

ma demande et que je voudrai insère "date + heurs" en colonne "c"

a savoir qu'il y a des donnes dans toutes les colonne

Private Sub Worksheet_Change(ByVal Target As Range)
ligne = Target.Row
If Not Intersect(Target, Range("A2:B" & Range("A1048576").End(xlUp).Row)) Is Nothing Then
Cells(ligne, 18).Value = Cells(ligne, 1).Value & "  " & format(Cells(ligne, 2).Value, "hh:mm")
End If
End Sub

Cijoint.fr - Service gratuit de dépôt de fichiers

 

[gege21]

Re : insertion de colonne par VBA

re.

le seule problème c que sa écrase les donnes de la colonne c

 

[MJ13]

Re : insertion de colonne par VBA

Re

Bon, à tester avec 1 macro pour les petits tableaux et 1 pour les grands tableaux (sur 1 million de lignes, cela pourrait-être un peu long).

En plus cela va me permettre de faire un tutoriel sur les tableaux 🙂.

 

[pierrejean]

Re : insertion de colonne par VBA

Re

re.

le seule problème c que sa écrase les donnes de la colonne c

Je repete

Vois si cela te convient
inserer une colonne entre B et C
Mise a jour faite sur l'existant
Macro evenementielle change modifiée
Le tout avec date veritable (permettant eventuellement les calculs)

 

[gege21]

Re : insertion de colonne par VBA

oui cela marche bien,
mais je veux que les donne que était en c et après sois conserver donc décale

ps : mj13 j'ai pas encore teste t'on code

 

[gege21]

Re : insertion de colonne par VBA

re,
apres teste c celui-la le plus rapide

Sub Transf_Date_Heure_Tableau()
'Henry
t1 = Timer
Application.ScreenUpdating = False
    Columns("C:C").Select
    Selection.Insert Shift:=xlToRight
    'Range("C1").Select
    ActiveCell.FormulaR1C1 = "Date+Heure"
    Range("C2").Select
    Transf_Date_Heure2Tableau
End Sub
Sub Transf_Date_Heure2Tableau()
'MJ + MichelXLD + Efgé +Henry
'J'les aurai un jour les tableaux :))
Dim i, x, NomTableau()
Columns("C:C").Select
Selection.NumberFormat = "dd/mm/yyyy hh:mm:ss"
x = Range("A65536").End(xlUp).Rows.Row
 ReDim NomTableau(1 To x)
  For i = 1 To x
             NomTableau(i) = ((CDate(Cells(i + 1, 1).Value)) * 1) + Cells(i + 1, 2).Value
    Next i
 Range("C2").Resize(UBound(NomTableau) - 1) = Application.Transpose(NomTableau)
Columns("C:C").Select
Columns("C:C").EntireColumn.AutoFit
Application.ScreenUpdating = True
t2 = Timer - t1
MsgBox t2 & " secondes"
End Sub

seul problème et que le code et lance quand la feuille n'est pas sélectionne ce qui fait que le code plante
quelle modif faire pour que le code exécute quand la feuille n'est pas sélectionne

 

[Fo_rum]

Re : insertion de colonne par VBA

Salut,

à voir :

Sub Date_Heure_Tableau()
  Dim t1 As Date
  Dim i As Long, T, TT()
  t1 = Timer
  Application.ScreenUpdating = False
  With Sheets("Données")
    .Columns(3).Insert
    x = .Columns(1).SpecialCells(xlCellTypeConstants).Count
    Set T = Range("A2:B" & x)
    ReDim TT(x)
    For i = 1 To x
      TT(i) = ((CDate(T(i, 1))) * 1) + T(i, 2)
    Next
    .Range("C1:C" & x).Value = Application.Transpose(TT)
    .Range("C1") = "Date+Heure"
    .Columns(3).NumberFormat = "dd/mm/yyyy hh:mm"
    .Columns(3).AutoFit
  End With
  MsgBox Timer - t1
End Sub

 

[gege21]

Re : insertion de colonne par VBA

bonsoir et merci pour la reponse Fo_rum

faut que je teste plus en profondeur en l'intégrant a m'ont code mais cela me semble tres bien