Macros
Résolu
Utilisateur anonyme
-
Le Pingou Messages postés 12249 Date d'inscription Statut Contributeur Dernière intervention -
Le Pingou Messages postés 12249 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour à tous,
je reviens vers vous avec une nouvelle question. j'ai un fichier avec une macro pour insertion de lignes auto et calcul de somme. j'aimerai l'enrechir pour pouvoir :
1- Dans la colonne E, le format des cellules est en HH:MM, j'aimerais que lors de la saisie qu'on ait pas à saisir les deux points : exemple: j'ecrit 130, et il saisi 1:30.
2- j'aimerai que quand j'ouvre une feuille du fichier, que je me retrouve dans la cellule contenant la date du jour et celà seulement si elle se trouve dans la colonne C. voici la macro que j'ai actuellement:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 3 Then Exit Sub
If Target.Value = "" Then Exit Sub
Dim ligdeb As Long, ligfin As Long, i As Long, derlig As Long, plage
derlig = Range("D" & Rows.Count).End(xlUp).Row
Range("A" & Target.Row + 1).EntireRow.Insert
For i = Target.Row To 3 Step -1
If Range("E" & i).Value = "Durée" Then Exit For
Next
ligdeb = i + 1
For i = Target.Row To derlig
If Range("D" & i).Value = "Total de l'activité" Then Exit For
Next
ligfin = i - 1
plage = Range(Range("E" & ligdeb), Range("E" & ligfin)).Address
Range("E" & i).Formula = "=SUM(" & plage & ")"
End Sub
je vous remercie pour votre aide.
je reviens vers vous avec une nouvelle question. j'ai un fichier avec une macro pour insertion de lignes auto et calcul de somme. j'aimerai l'enrechir pour pouvoir :
1- Dans la colonne E, le format des cellules est en HH:MM, j'aimerais que lors de la saisie qu'on ait pas à saisir les deux points : exemple: j'ecrit 130, et il saisi 1:30.
2- j'aimerai que quand j'ouvre une feuille du fichier, que je me retrouve dans la cellule contenant la date du jour et celà seulement si elle se trouve dans la colonne C. voici la macro que j'ai actuellement:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 3 Then Exit Sub
If Target.Value = "" Then Exit Sub
Dim ligdeb As Long, ligfin As Long, i As Long, derlig As Long, plage
derlig = Range("D" & Rows.Count).End(xlUp).Row
Range("A" & Target.Row + 1).EntireRow.Insert
For i = Target.Row To 3 Step -1
If Range("E" & i).Value = "Durée" Then Exit For
Next
ligdeb = i + 1
For i = Target.Row To derlig
If Range("D" & i).Value = "Total de l'activité" Then Exit For
Next
ligfin = i - 1
plage = Range(Range("E" & ligdeb), Range("E" & ligfin)).Address
Range("E" & i).Formula = "=SUM(" & plage & ")"
End Sub
je vous remercie pour votre aide.
A voir également:
- Macros
- Macros word - Guide
- My macros - Télécharger - Organisation
- Ez macros - Télécharger - Divers Utilitaires
- Le classeur macros personnelles dans le dossier de démarrage doit être ouvert ✓ - Forum VB / VBA
- Activer les macros excel android ✓ - Forum Excel
6 réponses
Bonjour,
Merci du retour.
Pour utiliser votre macro, sans fichier exemple c'est pas possible, au minimum je dois connaitre ce qu'elle doit réaliser/le résultat à obtenir et sur quelle feuille!
bonne journée
Merci du retour.
Pour utiliser votre macro, sans fichier exemple c'est pas possible, au minimum je dois connaitre ce qu'elle doit réaliser/le résultat à obtenir et sur quelle feuille!
bonne journée
Bonjour,
Merci beaucoup. Voici le lien vers mon fichier. vous verrez qu'actuellement j'ai une macro pour insertion de lignes automatique et calcul somme.
https://www.cjoint.com/c/JKjucOpCYG7
merci pour votre aide
Merci beaucoup. Voici le lien vers mon fichier. vous verrez qu'actuellement j'ai une macro pour insertion de lignes automatique et calcul somme.
https://www.cjoint.com/c/JKjucOpCYG7
merci pour votre aide
Bonjour,
J'ai combiner les 2 macros (uniquement pour la feuille "Equipe 1") selon votre demande à vous de voir si cela vous convient.
Le lien: https://mon-partage.fr/f/NSLNg3Dy/
J'ai combiner les 2 macros (uniquement pour la feuille "Equipe 1") selon votre demande à vous de voir si cela vous convient.
Le lien: https://mon-partage.fr/f/NSLNg3Dy/
Bonjour,
Merci du retour.
Je n'ai pas cette erreur chez moi. Que faites-vous exactement pour recevoir le message ...?
Pour la date, je vais recontrôlé si vous avez repris le code que j'ai fournie au poste 1!
Merci du retour.
Je n'ai pas cette erreur chez moi. Que faites-vous exactement pour recevoir le message ...?
Pour la date, je vais recontrôlé si vous avez repris le code que j'ai fournie au poste 1!
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Bonjour,
Dans l'attente de votre réponse j'ai modifié votre code et ajouter celui pour la détection de la date lors du changement de feuille.
A vous de voir si OK.
Le lien: https://www.cjoint.com/c/JKkkZHEPn50
Dans l'attente de votre réponse j'ai modifié votre code et ajouter celui pour la détection de la date lors du changement de feuille.
A vous de voir si OK.
Le lien: https://www.cjoint.com/c/JKkkZHEPn50
ça fonctionne. j'aimerai si c'est possible avoir une combinaison entre ma macro et celle-ci.
Bonne soirée.