macro tri

[ngexcel]

bonjour à tous
j ai eu cette exemple qui fonctionne très bien j ai juste besoin de positionner l exemple
un peux plus loin la zone jaune par exemple
merci d avance si vous pouvez mettre des commentaires que je comprenne la macro.....
merci

 

[piga25]

Bonjour,

Voir si cela peut convenir

Sub Regroupe()
  [H8].CurrentRegion.Sort , key1:=[H8], Header:=xlYes 'Mettre la reference point de depart du tableau ici H8
  ligne = 8 ' mettre la ligne du début du tableau
  Do While Cells(ligne, 8) <> "" 'mettre le numero de la première colonne du tableau ici H = 8
     If Cells(ligne, 8) = Cells(ligne + 1, 8) Then 'idem pour la colonne
        Cells(ligne, "I") = Cells(ligne, "I") + Cells(ligne + 1, "I") 'mettre la lettre qui désigne la seconde colonne ici colonne I
        Rows(ligne + 1).Delete
     Else
        ligne = ligne + 1
     End If
  Loop
End Sub

 

[ngexcel]

Bonsoir piga25

Merci beaucoup c est plus facile pour moi tes explications sont claires
Bonne soirée

 

[ngexcel]

Bonjour j ai une autre question comment faire dans mon cas je saisie les heures en centièmes comment faire les sommes en centièmes
Est il possible que lancer la macro automatiquement quand une cellule et valide par la touche enter
Merci à vous

 

[piga25]

Bonjour,

Pour déclencher la macro après validation d'une certaine cellule :

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Application.Intersect(Target, Range("E5")) Is Nothing Then 'mettre à la place de "E5" la référence de la cellule concernée
Call Regroupe
End If
End Sub

Voir dans le fichier les exemples de sommes de centièmes d'heures

 

[job75]

Bonjour,

Pas possible ça, on ouvre plusieurs fils et on n'est pas capable de les suivre !!!

https://www.excel-downloads.com/threads/saisie-et-total-en-centiemes.20026225/

A+

 

[ngexcel]

Bonjour
Merci et pardon pour le doublon