Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Macro pour supprimer et remplir les cases vides avec les cases du dessous...

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion aksity
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
A

aksity

XLDnaute Nouveau
Bonjour à tous, je suis débutant sur Excel, je n'y connaissais rien il y a encore quelques mois et avec mon boulot, je m'y suis mis avec beaucoup de plaisir, je progresse....
Ma question, dans le fichier ci joint, colonne "EAB" et "Motif" , j'aimerais créer une macro, qui permette de supprimer et de remplir automatiquement avec les lignes du dessous, afin de ne pas avoir de trou...je ne sais pas si je suis bien clair....
Cela dépasse totalement mes compétences....
Je vous remercie par avance de votre aide !!

Frederic
 

Pièces jointes

Dernière édition:
Trier par date Trier par votes
Re : Macro pour supprimer et remplir les cases vides avec les cases du dessous...

Bonjour Aksity, bonjour le forum,

Pas sûr d'avoir bien compris... le code-ci-dessous place le curseur, au double-clic n'importe où dans l'onglet, dans la première cellule vide de la plage A4:A14, E4:E8.

le code :
Code: 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim pl As Range 'déclare la variable pl (PLage)

With Sheets("LU 15-04 J") 'prend en compte l'onglet "LU 15-04 J"
    Set pl = Application.Union(.Range("A4:A14"), .Range("E4:E8")) 'définit la plage pl
End With 'fin de la prise en compte de l'onglet "LU 15-04 J"
pl.SpecialCells(xlCellTypeBlanks)(1).Select 'déclectionne la première cellule vide de la plage
End Sub
Le fichier :
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Macro pour supprimer et remplir les cases vides avec les cases du dessous...

Bonjour Robert et merci de l'aide apportée !
Effectivement je n'ai pas été très clair, j'ai donc simplifié la feuille pour que cela soit plus simple. Pour expliquer rapidement, je travaille dans un centre de maintenance des trains. Les numéros des trains immobilisés sont listés dans la colonne A , et le motif de leur immobilisation dans la colonne B->D. Lorsque les trains sont immobilisés, ils sont écris en noir, lorsqu'un train a des chances d'être dépanné, on dit qu'il est "A confirmer", et pour l'identifier on passe le fond en jaune.

Lorsqu'un train a été "réparé", il est retiré de la liste.
Mais par exemple, lorsque je souhaite retirer de la liste la 234A, j'aimerais une fonction appelée par un bouton nommé par exemple "TRAIN OK" qui me permette d'éffacer la 234A de la liste (ainsi que le motif), et plutot que de laisser un trou dans la liste, automatiquement mettre à jour la liste..
En esperant avoir été plus clair 😉

Fred.
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Macro pour supprimer et remplir les cases vides avec les cases du dessous...

Bonsoir pierrejean,
Chez moi cela ne semble pas fonctionner (aucune macro). Je suis sur Mac, peut être que....?
 
Vote positif 0 Vote négatif
Re : Macro pour supprimer et remplir les cases vides avec les cases du dessous...

Re

Ah !!! je ne suis pas compétent sur Apple mais j'ai re-testé et chez moi cela fonctionne (sous réserve évidemment d'avoir sélectionné un train)
Et la macro existe bel et bien dans le module de la feuille
 
Vote positif 0 Vote négatif
Re : Macro pour supprimer et remplir les cases vides avec les cases du dessous...

Effectivement sur Windows cela fonctionne, comme quoi...
C'est parfait, mais le tableau se rétrécit au fur et à mesure que les trains sont retirés, possible de garder la mise en forme initiale ?
 
Vote positif 0 Vote négatif
Re : Macro pour supprimer et remplir les cases vides avec les cases du dessous...

Parfait !!
Merci pierrejean, me reste plus qu'à l'insérer dans le fichier original, et même l'appliquer dans d'autres colonnes...je vais bien le prendre la tête je sens 😀
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

S
  • Question Question
Microsoft 365 Planning : suppression de l'enregistrement pour les samedis, Dimanches et jours fériés si case cochée.
Réponses
11
Affichages
333
Cousinhub
N
  • Résolu(e)
XL 2019 Macro pour copier ligne avec case à cocher liée
Réponses
12
Affichages
284
Phil69970
A
  • Résolu(e)
XL 2016 Passer d'une MFC à une macro pour supprimer le bazar dans les règles.
2 3
Réponses
42
Affichages
2 K
TooFatBoy
W
  • Question Question
Microsoft 365 Fusionne les cellules vides parmi celle avec des valeurs
Réponses
4
Affichages
509
woira95
W
D
  • Question Question
XL 2019 Suppression doublons combinés entre deux cellules associées et présentation sous forme de tableau
Réponses
13
Affichages
664
alexga78
A
P
  • Question Question
XL 2019 Macro VBA appliquer un filtre lors d'une importation de données
Réponses
1
Affichages
219
fanch55
A
  • Résolu(e)
XL 2013 Automatisation avec macro de recherche et extraction de données
Réponses
5
Affichages
429
Adrien NCH
A
A
  • Question Question
Microsoft 365 Macro pour récupérer des colonnes qui ne sont pas conjointes
Réponses
4
Affichages
386
Anthony_51
A
A
  • Résolu(e)
Microsoft 365 Enregistrer copie d'un fichier avec pour nom le contenu d'une cellule excel (macro)
2
Réponses
15
Affichages
1 K
firecarl
F
B
  • Résolu(e)
XL 2021 Séparer les adresses (Rue et N°) en 2 cellules avec un macro
2
Réponses
20
Affichages
2 K
Banbara
B
Q
  • Question Question
Microsoft 365 Créer un formulaire pour duplication d'onglet avec tableau
Réponses
6
Affichages
584
job75
T
  • Question Question
XL 2016 Comment supprimer les résultats vides des formules
Réponses
3
Affichages
340
Tableau123
T
M
  • Résolu(e)
Microsoft 365 Aide sur macro (débutant inside)
2
Réponses
16
Affichages
852
Phil69970
C
  • Question Question
XL 2016 vba , bug sur une macro lors delete xlup
Réponses
7
Affichages
577
ciocciu
C
J
  • Question Question
XL 2016 macro pour remplir un calendrier à partir d'une liste d'évènements
Réponses
3
Affichages
623
julien6337
J
C
  • Question Question
XL 2019 Remplir plusieurs labels d'un Useform avec les dates d'un calendrier automatique
12 13 14
Réponses
195
Affichages
12 K
Clemee61
C
  • Question Question
Microsoft 365 [VBA] Enchaîner déplacer lignes + supprimer les lignes vides.
Réponses
3
Affichages
862
ARMAEL
A
D
  • Question Question
Microsoft 365 Cas réel - avec problème complexe sur de la prevision de match en evitant les doublons
Réponses
1
Affichages
822
Dock91
D
M
  • Résolu(e)
XL 2016 Copier/Coller case cochée vers feuil2
Réponses
3
Affichages
656
Phil69970
M
  • Question Question
Microsoft 365 Date du jour apparaisse et se fige lorsqu'une autre cellule est remplie
Réponses
3
Affichages
618
JHA
J
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…