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

déplacer des lignes en fonction d'une cellule remplie

Créer une discussion

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
J

jeannot68

XLDnaute Occasionnel
bonjour à tous

je n'y arrive plus;;; please help.
J'ai un tableau qui regroupe les travaux à effectuer . Lorsque la tache est réalisée, après saisie de la date (colonne I) la ligne est coloriée. Je souhaite aller encore plus loin en voulant déplacer la ligne si la cellule de la colonne I est rempli vers la feuille "travaux terminés". Il peut y avoir un sacrée nombre de ligne.

Je recherche donc une macro ou un bouton qui me permettrait de mettre en evidence les taches qui reste a faire dans "travaux en cours" et sur la feuille "travaux terminés" l'ensemble des taches déja effectuées.
Je viens de commencer a m'interesser a la vba.
Ci joint un exemple pour la compréhension.

Merci d'avance de votre aide
A bientot
 

Pièces jointes

Trier par date Trier par votes
Re : déplacer des lignes en fonction d'une cellule remplie

Bonsoir jeannot68,

Un report de valeur par doubleclick dans la colonne C.

1- Si cellule active vide ou Cellule colonne I vide ou colonne de la cellule active non C alors arrêt de la macro ;
2- Report de la ligne en archive et suppression de la ligne des travaux en cours.

Cordialement

Bernard
 

Pièces jointes

Vote positif 0 Vote négatif
Re : déplacer des lignes en fonction d'une cellule remplie

RE,

C'est magique 🙂 🙄

Plus sérieusement, c'est le double click qui active une macro qui se trouve dans le module de feuille :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If ActiveCell.Column <> 3 Or ActiveCell = "" Or ActiveCell.Offset(0, 6).Value = "" Then Exit Sub
Dim Derlig As Integer
With Sheets("travaux terminés")
Derlig = .Range("C65000").End(xlUp).Row + 1
.Cells(Derlig, 1) = .Cells(Derlig - 1, 1) + 1
.Range(.Cells(Derlig, 2), .Cells(Derlig, 10)).Value = ActiveCell.EntireRow.Range("B1:J1").Value
End With
ActiveCell.EntireRow.Delete
End Sub

Cordialement

Bernard
 
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

R
  • Question Question
XL 2021 Recherche formule pour compléter une cellule a partir des données d'une autre feuille du classeur (16/03/2026)
2
Réponses
18
Affichages
826
laurent950
N
  • Question Question
XL 2021 Affecter automatiquement une valeur dans une cellule en fonction d'une saisie dans une autre cellule
Réponses
9
Affichages
375
Nico Gre
N
  • Résolu(e)
XL 2016 En VBA, Automatiser la réponse en fonction de l'état d'une cellule.
Réponses
7
Affichages
902
piga25
  • Résolu(e)
XL 2016 XLS - Comment déterminer les zones présentent au niveau d'une cellule ?
Réponses
2
Affichages
873
Lu76Fer
C
  • Question Question
XL 2019 Déplacer lignes selon contenu d'une cellule
Réponses
2
Affichages
1 K
ARMAEL
A
S
  • Question Question
Microsoft 365 Référer à la première cellule non vide en haut
Réponses
3
Affichages
601
ShrekL
S
N
  • Question Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
1 K
Nel'
N
F
  • Résolu(e)
Microsoft 365 copier coller des colonnes en fonction de la valeur d'une cellule
Réponses
8
Affichages
1 K
loloboc
L
M
  • Question Question
XL 2021 Rechercher dans une matrice le texte d'une cellule et copier les 10 lignes situées en dessous de ce texte retrouvé
Réponses
2
Affichages
544
JHA
J
X
  • Question Question
XL 2016 Gestion RH (renvoie de la valeur de la premier cellule d'une liste quand en fin de liste la cellule est vide)
Réponses
6
Affichages
942
xsara63
X
B
  • Question Question
XL 2013 Automatiser une formule sur les nouvelles lignes insérées en fonction d'une recherche sur les enregistrements
Réponses
9
Affichages
832
bedley
B
R
  • Résolu(e)
Autres Masquer des lignes et colonnes en fonction d'une valeur d'un menu déroulant
Réponses
1
Affichages
667
Romain77144
R
C
  • Résolu(e)
Microsoft 365 Déplacer une ligne en fonction de la valeur d'une cellule
Réponses
4
Affichages
1 K
cecenico
C
  • Question Question
XL 2013 couleur texte listbox en fonction des lignes d'une feuille
Réponses
1
Affichages
666
patricktoulon
L
  • Résolu(e)
XL 2016 Déplacer Une Ligne Entière Vers Une Autre Feuille En Fonction De La Valeur De La Cellule
Réponses
7
Affichages
2 K
loic59120
L
J
  • Question Question
XL 2019 Faire varier un pourcentage en fonction de valeurs "texte" d'une autre cellule
Réponses
4
Affichages
746
Jean Pierre 93
J
L
  • Résolu(e)
Autres Déplacement d'une ligne sur une autre feuille en fonction de la valeur d'une cellule
Réponses
5
Affichages
1 K
LeSaintKebab
L
  • Question Question
XL 2019 masquer automatiquement des lignes selon la condition d'une Colonne et faire une copie des ligne masquer dans une feuille
Réponses
2
Affichages
1 K
Eleutheros
J
  • Question Question
XL 2016 Code VBA pour selectionner une ou plusieurs lignes en fonction du contenue (chaine de caractère) d'une cellule
Réponses
9
Affichages
3 K
Mika2705
M
D
  • Résolu(e)
Microsoft 365 Déplacer la valeur d'une cellule dans une autre cellule en fonction d'une 3ème cellule
2
Réponses
15
Affichages
3 K
Did62223
D
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…