Modifier données dans un tableau?

[Morticia]

Bonjour à tout le monde,

Ceci est ma permière visite sur ce forum.
Un ami m'a dit que ce site est très Cool.

Mon problème:
J'ai un tableau de données clients que je rentre au jour le jour.
Je voudrais que lorsqu'un article est vendu, il supprime dans mon tableau la ligne correspondante à l'article vendu sans laisser de ligne vide dans celui-ci.
Ci-joint exemple:

Merci de me donner un coup de main.

A+

MORTICIA

 

[GillesC]

Re : Modifier données dans un tableau?

Bonjour,
Premier élément de réponse pour alimenter l'onglet "ventes", utiliser la fonction RECHERCHEV
Ex: copier =RECHERCHEV(D5;Stock!$A$2:$E$8;5) dans la cellule D4
en D6 =RECHERCHEV(D5;Stock!$A$2:$E$8;2)
en D7 =RECHERCHEV(D5;Stock!$A$2:$E$8;3)
et en D8 =RECHERCHEV(D5;Stock!$A$2:$E$8;4)
++

Ah j'oubliais de dire que g déplacé la colonne Réf_Prod en colonne A!

 

[GillesC]

Re : Modifier données dans un tableau?

re
pour ce qui concerne les données à détruire dans l'onglet Stock :
Avec toujours colonne Ref_Prod en colonne A :
Sub Supprim_ligne()
Val_a_Detruire = Range("D5").Value * 1
Sheets("Stock").Select
Columns("A:A").Select
Selection.Find(What:=(Val_a_Detruire), After:=ActiveCell,LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows).Activate
ActiveCell.Select
Selection.EntireRow.Delete
End Sub

 

[Morticia]

Re : Modifier données dans un tableau?

Bonjour Gilles,

Merci ça ma l'air très bien.
Je teste cela tout à l'heure, je part chercher les enfants à l'école!
A+
Bonne journée à toi.

MORTICIA

 

[Morticia]

Re : Modifier données dans un tableau?

ça y est le retour,
Gilles, J'ai testé la macro mais ne fonctionne pas!
Peut tu vérifier le code?
Erreur d'éxécution 13?

Apparement c'est sur Val_a_Detruire=Range("D5").Value*1

Merci
A+

 

[GillesC]

Re : Modifier données dans un tableau?

Re!
essaye en effaçant "*1"
Par réflexe je transforme toujours en numérique mes variables.
++

 

[Morticia]

Re : Modifier données dans un tableau?

Désolée je ne reprend que maintenant.
J'ai enlevé *1.
Maintenant erreur 448.
A+

 

[bqtr]

Re : Modifier données dans un tableau?

Bonjour Morticia, GillesC

Voici un exemple par macro, regarde si cela te convient.

Bonne journée

P.O

 

[Morticia]

Re : Modifier données dans un tableau?

Bonjour Gilles,

Alors la c'est le grand luxe.!
La macro marche super et la petite fenêtre demandant confirmation de suppression c'est le top.
Aurais-tu une soluce pour remplacer la fonction RECHERCHEV par une macro car lorsque je fait quitter la feuille (Bouton) cela efface les données rentrées afin de retrouver une feuille vierge et prête à l'emploi.
Seulement cela efface aussi les formules et si je protège la feuille, mes boutons ne fonctionnent plus.
Sur Excel 2000 je n'ai pas de fonction "Protèger les formules uniquement"
J'ai "protéger le contenu, les objets, les scènarios"
Hors si je fais "protéger les scénarios" cela me bloque les boutons(même dévérouillés)
J'ai été formée sur excel 2003.
Et je ne possède que 2000.

Merci encore à toi, je suis très contente de la macro.

MORTICIA

PS: n'empèche que ces macros ne s'improvisent pas!

 

[bqtr]

Re : Modifier données dans un tableau?

Bonjour Morticia,

Heu, là je ne te suis pas, si tu parles du fichier que je t'es envoyé, il n'y a pas de fonction RECHERCHEV dedans !

La recherche du produit de référence se fait avec une liste de validation alimentée par une liste nommée RefProd, tirée de la colonne E de la feuille Stock. Le tableau est ensuite rempli avec la macro.

GillesC t'as peut-être envoyé un autre fichier en privé, mais dans ce cas, si tu ne le joints pas en PJ ca va être difficile de t'aider.

Bonne journée

P.O

 

[GillesC]

Re : Modifier données dans un tableau?

Bonjour Morticia et le forum
Je ne saurais m'attribuer le mérite du fichier joint qui est l'oeuvre de l'excellent BQTR 🙂
Par contre concernant ton autre demande il faudrait examiner la macro qui efface les données pour la modifier. Je suggèrerais d'ailleurs de laisser la première ligne ligne du fichier stock avec des "XXX" dans toutes les cellules et 0000 pour la référence produit, et de ne supprimer que les lignes alimentées en dessous, ainsi le fichier serait tout neuf et la première référence proposée serait 0001.
Le programme proposé par BQTR te dispense d'alimenter avec des RECHERCHEV tes onglets. Si tu veux consulter ce programme tu fais clic droit sur le nom de l'onglet "Ventes" et clic sur "visualiser le code".

++
Et bonjour BQTR 🙂

 

[Morticia]

Re : Modifier données dans un tableau?

Bonjour Gilles,

La macro que j'utilise pour effacer ma page est:
Sheets("feuille2").Range("A1:G60").ClearContents
Elle ne fonctionne qu'ainsi.
J'ai tenté de faire :
Sheets("feuille2").Range("A1:G13;C14:G14;A15:G60").ClearContents
Sans succès.
C'est un exemple mais en principe cela devait protéger certaines lignes.
Ma macro n'est surement pas bonne!
J'avais trouvé une astuce en me servant d'une feuille script sur laquelle j'ai posé les formules RECHERCHEV et une macro qui renvoie les résultats de la recherche sur la feuille2.
Du fait il n'y a pas de formules sur ma feuille2.
Compliqué mais ça marche.
Les femmes c'est pas toujours simple!
Il y a surement beaucoup mieux.
A+

Bonjour à BQTR et Merci pour la macro (par l'intermédiaire de Gilles).
MORTICIA
J'en profite pour vous souhaiter de passer de bonnes Fêtes de Fin d'année à tous les deux.

 

[Morticia]

Re : Modifier données dans un tableau?

Message à BQTR.
J'ai un peu mélangée les messages mais ok maintenant tout est clair.

La macro est idéale pour moi.

En effet il n'y avait pas de fonction RECHERCHEV dans le modèle que tu m'as fait parvenir.
C'était en début de page avec Gilles.
Il sagit de remplacer une formule RECERCHEV par une macro car celle-ci s'effacent en même temps que les données de la feuille.Voir plus haut.

A+
MORTICIA

 

[bqtr]

Re : Modifier données dans un tableau?

Bonjour Morticia,

Essaye avec cette macro :

Sub Efface()
Dim Cell As Range
For Each Cell In Range("A1:G60")
If Not Cell.HasFormula Then
Cell.ClearContents
End If
Next
End Sub

Elle efface le contenu de toutes les cellules de la plage A1:G60 qui n'ont pas de formule. Cela fonctionne si tes formules appelent des cellules de la plage indiquée.
Si c'est pas le cas, les résultats des formules ne seront pas effacés.
Tu risques d'avoir des #N/A ou autre que tu peux gérer en rajoutant un test dans tes formules : Si(ESTERREUR(TaFormule);"";(TaFormule)).

Le plus simple c'est que tu places un fichier en PJ avec les feuilles concernées, je verrai ce que je peux faire.

Bonne journée

P.O

 

[Morticia]

Re : Modifier données dans un tableau?

Bonjour BQTR,

J'ai mis le fichier avec ta macro et les formules RECHERCHEV.

Merci de ton aide.

Bon Réveillon.

MORTICIA