Déjà je vous remercie de vos réponses
Je vous met un petit aperçu de mon fichier de départ en PJ
je récupère 2 fichiers .txt avec plus ou moins de valeurs dedant mais cela peut aller de 1 lot 44 lignes à plus de 15000 lignes depuis un automate je copie mes valeurs dans un fichier excel de cette façon
en B cela correspond à des lots de cuisson de pièces
en C la date et l'heure
en D date et heure mais après changement de format je ne récupèrerai que l'heure
en E ce sont les températures
j'aimerai le faire avec une macro car vais faire plusieurs choses et parce que ce n'est pas forcément moi qui vais traiter les données
je voyais mon fichier comme suit :
j'avais déjà mis =CONCATENER(B1;" ";TEXTE(C1;"jj/mm/aa")) en A1
Mais je voudrais grâce à une macro étirer la cellule A1 jusqu'à la dernière ligne de ma colonne B ou la copiée
je sais retrouvé le numéro qui correspond avec ce genre de commande
Dim DernLigne As Long
DernLigne = Range("B" & Rows.Count).End(xlUp).Row
une fois que ma colonne A sera complète je supprimerai les colonne B et C, il faudra que je change le format de ma cellule D qui sera passée en B en Heure avec ces lignes
Columns("B:B").Select
Selection.NumberFormat = "[$-x-systime]h:mm:ss AM/PM"
ensuite je veux fusionner les cellules identiques de la colonne A avec ces lignes
' FUSION COLONNE A
'************************************************************************
Dim cel As Range
Dim i As Integer
Dim c As Integer
Columns("A:A").Select
With Selection
If .Rows.Count > 1 And .Columns.Count > 1 Then
MsgBox ("Vous ne pouvez pas sélectionner SIMULTANEMENT :" & Chr(13) _
& Chr(13) & " Plusieurs Lignes" _
& Chr(13) & " ET" _
& Chr(13) & " Plusieurs Colonnes")
Exit Sub
Else
For Each cel In .Cells
If LCase(cel.Text) <> "" Then
i = 0
Application.DisplayAlerts = False
If .Columns.Count = 1 Then
Do While cel.Offset(i, 0).Text = cel.Offset(i + 1, 0).Text
i = i + 1
Loop
With Range(cel, cel.Offset(i, 0))
.VerticalAlignment = xlTop
.MergeCells = True
End With
Else
Do While cel.Offset(0, i).Text = cel.Offset(0, i + 1).Text
i = i + 1
Loop
Application.DisplayAlerts = False
With Range(cel, cel.Offset(0, i))
.MergeCells = True
End With
End If
Application.DisplayAlerts = True
End If
Next cel
End If
End With
et je fais la même chose sur la colonne B pour ensuite pouvoir sortir des graphiques par lot-date / heure / temperature
voilà j'espère avoir été clair dans mon raisonnement !!!!! une chose est sure c'est que moi je me comprend c'est dèjà ça je pense !!!!!!!!!!!!!
merci de votre aide
