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

 

[Banzai64]

Re : insertion de colonne par VBA

Bonjour

0123456789

 

[Gorfael]

Re : insertion de colonne par VBA

Salut gege21 et le forum

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cel As Range, Plage As Range
Set Plage = Intersect(Target, Range("A2:B" & Cells(Rows.Count, "A").End(xlUp).Row))
If Not Plage Is Nothing Then
    For Each Cel In Plage
        Cells(Cel.Row, "C") = Cells(Cel.Rows, "A") + Int(Cells(Cel.Row, "B"))
    Next Cel
End If
End Sub

Date : Partie entière composée du nombre de jour depuis le 01/01/1900, Heure : Partie décimale d'une date
La boucle n'est là que pour empêcher les erreurs sur une sélection multiple.
A+

 

[gege21]

Re : insertion de colonne par VBA

bonjour gorfaed,le forum

merci pour la réponse
mais j'ai une erreur "13" (incompatibilité de type) sur cette ligne

Cells(Cel.Row, "C") = Cells(Cel.Rows, "A") + Int(Cells(Cel.Row, "B"))

 

[ROGER2327]

Re : insertion de colonne par VBA

Bonjour à tous

L'incompatibilité de type provient probablement de ce qu'au moins une des références à Cells(Cel.Rows, "A") ou a Cells(Cel.Row, "B") ne renvoie pas un nombre.
Ne possédant qu'Excel2003, je n'ai évidemment pas pu le vérifier dans le classeur joint.​

ROGER2327
#4768

Mardi 17 Sable 138 (Saint Moyen, français, SQ)
27 Frimaire An CCXIX
2010-W50-5T10:15:26Z

 

[pierrejean]

Re : insertion de colonne par VBA

Bonjour a tous

La colonne C contient Température extérieur
Doit-on remplacer par date et heure ?

 

[Gorfael]

Re : insertion de colonne par VBA

Salut à tous
J'avais probablement du kk dans les yeux ce matin, puisque j'ai confondu C avec R

Cells(Cel.Row, "R") = Cells(Cel.Rows, "A") + Int(Cells(Cel.Row, "B"))

Comme je n'ai que 2003, je me contente des postes.
Une incompatibilité de type résulte d'une incohérence pour Excel, souvent texte et nombre. Mais sans données...
A+

 

[gege21]

Re : insertion de colonne par VBA

bonjour roger2327,pierrejean

non il ne faux pas les remplacer il faux insère la ligne donc tous décales

 

[pierrejean]

Re : insertion de colonne par VBA

Re

Inserer une ligne ou une colonne ??

 

[MJ13]

Re : insertion de colonne par VBA

Bonjour à tous

Gégé: Tu peux tester cette macro:

Sub Transf_Date_Heure()
'MJ
For Each cell In Range("A2:A" & Cells(65536, 1).End(xlUp).Row)
cell.Value = (CDate(cell.Text) * 1) + cell.Offset(0, 1).Value
cell.NumberFormat = "dd/mm/yyyy hh:mm:ss"
Next
End Sub

 

[gege21]

Re : insertion de colonne par VBA

re: pardont pierrejean
c bien une colonne qu'il faux Inserer

 

[MJ13]

Re : insertion de colonne par VBA

Re

Sinon, voir Pièce jointe:

 

[gege21]

Re : insertion de colonne par VBA

bonjour mj13
désolé mais c n'est pas c que je veux
- je veux inserer date + heurs dans la colonne c et vu qu'il y a des donne dans les colonne c et supérieur il faux tout décalé

 

[MJ13]

Re : insertion de colonne par VBA

Re

je veux inserer date + heurs dans la colonne c et vu qu'il y a des donne dans les colonne c et supérieur il faux tout décalé

Gégé: C'est bien pour cela que je l'ai fait. Pour que tu cherches un peu. Aller un petit effort et tu vas trouver, sinon, Henry est ton ami 😉.

 

[pierrejean]

Re : insertion de colonne par VBA

Re

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)

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, 3).Value = CDate(Cells(ligne, 1).Value) + Cells(ligne, 2).Value
Cells(ligne, 3).NumberFormat = "dd/mm/yyyy hh:mm"
End If
 
Sub maj()
Columns(3).NumberFormat = "dd/mm/yyyy hh:mm"
For ligne = 2 To Range("A65536").End(xlUp).Row
Cells(ligne, 3).Value = CDate(Cells(ligne, 1).Value) + Cells(ligne, 2).Value
Next ligne
End Sub
 
End Sub