Tableau de bord

Le
new excel
Bonjour à tous,

Je suis entrain de faire un tableau de bord pour un suivi d'actions.
Ce que je voudrais faire, c'est lorsque que je rentre la date de solde d'une
action, que ca me transfert la ligne en question dans une autre feuille du
classeur pour permettre de garder un historique, et que en même temps, ca
supprime cette ligne du tableau pincipal.

Merci d'avance pour votre aide.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel.C
Le #22201511
Bonjour.
Est-ce que tu peux déposer un classeur modèle sur www.cijoint.fr et
poster ici le lien généré ?
Cordialement.
Daniel

Bonjour à tous,

Je suis entrain de faire un tableau de bord pour un suivi d'actions.
Ce que je voudrais faire, c'est lorsque que je rentre la date de solde d'une
action, que ca me transfert la ligne en question dans une autre feuille du
classeur pour permettre de garder un historique, et que en même temps, ca
supprime cette ligne du tableau pincipal.

Merci d'avance pour votre aide.
FFO
Le #22202711
Salut à toi



Soit le tableau dans l'onglet "Source" avec les dates en colonne A et
l'historique à réaliser dans l'onglet "Archive"



Tu peux utiliser ces lignes de code :



Donnée = InputBox("Veuillez saisir une date", "Date")
On Error Resume Next
Ligne = Sheets("Source").Range("A1", "A" &
Sheets("Source").Range("A65535").End(xlUp).Row).Find(What:ÚteValue(Donnée),
After:=Sheets("Source").Range("A1"), LookIn:=xlValues _
, LookAt:=xlWhole).Row

If Ligne <> "" Then
Sheets("Source").Rows("" & Ligne & ":" & Ligne & "").Copy
Sheets("Archive").Range("A65535").End(xlUp).Offset(1, 0)
Sheets("Source").Rows("" & Ligne & ":" & Ligne & "").Delete
Else
MsgBox ("La date " & Donnée & " est inexistante")
End If

Une boîte de dialogue te demandera de saisir une date

Une fois saisie le code copiera la ligne correspondante de l'onglet "Source"
vers l'onglet "Archive" et la supprimera de l'onglet "Source"



Fais des essais et dis moi !!!!!!
Publicité
Poster une réponse
Anonyme