Je vais essayer d'être le plus précis possible pour ne pas avoir à joindre mon fichier Excel qui contient trop de données sensible..
Je travaille sur un fichier Excel (que je n'ai pas créé) assez complexe avec beaucoup de VBA.
Sur ce fichier, il y a plusieurs feuilles dont une qui s'appelle "feuille enregistrement" où l'on va enregistrer plusieurs informations à partir de liste définie avant d'appuyer sur un bouton enregistrement et une autre feuille qui s'appelle "Contrôles" où l'on va retrouver toutes les informations qui ont été enregistrées, ligne par ligne.
Le problème survient lorsque je vais dans la feuille "Contrôles" et que je supprime toutes les données.
Les données sont supprimées mais lorsque j'effectue un nouvel enregistrement, au lieu de redémarrer le tableau à la ligne 2, le tableau commence à la ligne 1500, à la suite du précédent qui vient d'être supprimé...
Quels solutions ?
Voici le début de la macro. Je suppose que c'est par ici qu'il y a des modifications à effectuer..
Sub Enregistrement()
'
Application.ScreenUpdating = False
Sheets("Contr?les").Select
Dim DernLigne As Long
DernLigne = Range("A" & Rows.Count).End(xlUp).Row + 1
Bonjour, Je vais essayer d'être le plus précis possible pour ne pas avoir à joindre mon fichier Excel qui contient trop de données sensible.. Je travaille sur un fichier Excel (que je n'ai pas créé) assez complexe avec beaucoup de VBA. Sur ce fichier, il y a plusieurs feuilles dont une qui s'appelle "feuille enregistrement" où l'on va enregistrer plusieurs informations à partir de liste définie avant d'appuyer sur un bouton enregistrement et une autre feuille qui s'appelle "Contrôles" où l'on va retrouver toutes les informations qui ont été enregistrées, ligne par ligne. Le problème survient lorsque je vais dans la feuille "Contrôles" et que je supprime toutes les données. Les données sont supprimées mais lorsque j'effectue un nouvel enregistrement, au lieu de redémarrer le tableau à la ligne 2, le tableau commence à la ligne 1500, à la suite du précédent qui vient d'être supprimé... Quels solutions ? Voici le début de la macro. Je suppose que c'est par ici qu'il y a des modifications à effectuer.. Sub Enregistrement() ' Application.ScreenUpdating = False Sheets("Contr?les").Select Dim DernLigne As Long DernLigne = Range("A" & Rows.Count).End(xlUp).Row + 1 Merci d'avance pour vos réponses !
Merci pour ta réponse Fredo. J'ai essayé ce que tu as dis mais cela ne marche pas non plus. Je vais demander à la personne qui a créée le fichier de modifier ou de le regarder de plus près. Merci à tous pour vos réponses ! :)
Le jeudi 20 Décembre 2018 à 16:07 par Corent38 :
> Bonjour,
>
> Je vais essayer d'être le plus précis possible pour ne pas avoir
> à joindre mon fichier Excel qui contient trop de données
> sensible..
>
> Je travaille sur un fichier Excel (que je n'ai pas créé) assez
> complexe avec beaucoup de VBA.
>
> Sur ce fichier, il y a plusieurs feuilles dont une qui s'appelle "feuille
> enregistrement" où l'on va enregistrer plusieurs informations
> à partir de liste définie avant d'appuyer sur un bouton
> enregistrement et une autre feuille qui s'appelle "Contrôles"
> où l'on va retrouver toutes les informations qui ont été
> enregistrées, ligne par ligne.
>
> Le problème survient lorsque je vais dans la feuille
> "Contrôles" et que je supprime toutes les données.
> Les données sont supprimées mais lorsque j'effectue un nouvel
> enregistrement, au lieu de redémarrer le tableau à la ligne 2, le
> tableau commence à la ligne 1500, à la suite du
> précédent qui vient d'être supprimé...
>
> Quels solutions ?
>
> Voici le début de la macro. Je suppose que c'est par ici qu'il y a des
> modifications à effectuer..
>
> Sub Enregistrement()
> '
>
> Application.ScreenUpdating = False
>
> Sheets("Contr?les").Select
>
> Dim DernLigne As Long
> DernLigne = Range("A" & Rows.Count).End(xlUp).Row + 1
>
> Merci d'avance pour vos réponses !
Merci pour ta réponse Fredo. J'ai essayé ce que tu as dis mais cela ne marche pas non plus.
Je vais demander à la personne qui a créée le fichier de modifier ou de le regarder de plus près.
Merci à tous pour vos réponses ! :)
Bonjour, Je vais essayer d'être le plus précis possible pour ne pas avoir à joindre mon fichier Excel qui contient trop de données sensible.. Je travaille sur un fichier Excel (que je n'ai pas créé) assez complexe avec beaucoup de VBA. Sur ce fichier, il y a plusieurs feuilles dont une qui s'appelle "feuille enregistrement" où l'on va enregistrer plusieurs informations à partir de liste définie avant d'appuyer sur un bouton enregistrement et une autre feuille qui s'appelle "Contrôles" où l'on va retrouver toutes les informations qui ont été enregistrées, ligne par ligne. Le problème survient lorsque je vais dans la feuille "Contrôles" et que je supprime toutes les données. Les données sont supprimées mais lorsque j'effectue un nouvel enregistrement, au lieu de redémarrer le tableau à la ligne 2, le tableau commence à la ligne 1500, à la suite du précédent qui vient d'être supprimé... Quels solutions ? Voici le début de la macro. Je suppose que c'est par ici qu'il y a des modifications à effectuer.. Sub Enregistrement() ' Application.ScreenUpdating = False Sheets("Contr?les").Select Dim DernLigne As Long DernLigne = Range("A" & Rows.Count).End(xlUp).Row + 1 Merci d'avance pour vos réponses !
Merci pour ta réponse Fredo. J'ai essayé ce que tu as dis mais cela ne marche pas non plus. Je vais demander à la personne qui a créée le fichier de modifier ou de le regarder de plus près. Merci à tous pour vos réponses ! :)
