Bonjour, j'ai le code suivant :
Sheets("Facture").Range("E7:E9").ClearContents 'vider l'entete client-Nom
Sheets("Facture").Range("E10").ClearContents 'vider l'entete client-Prénom
Sheets("Facture").Range("G10").ClearContents 'vider l'entete client-reste de l'entete
Sheets("Facture").Range("B12").ClearContents ' vider le nr tva
Sheets("Facture").Range("A15:A34").ClearContents 'vider les quantités
Sheets("Facture").Range("F15:F34").ClearContents 'vider les prix unitaires
Sheets("Facture").Range("E15:E35").ClearContents 'vider les codes tva
Sheets("Facture").Range("B15:B34").ClearContents 'vider les prix unitaires
en utilisant ce code, mes cellules sont effectivement vidées, mais les formules qu'elle contenaient ont également disparu.
Je voudrais écrire un code en VBA qui viderait le contenu de ma cellule tout en lui laissant sa formule dans le but d'utilisation après.
Il s'agit ici d'un projet de facture pour laquelle je veux vider tous les éléments après l'avoir sauvegardée et avant de passer à la suivante.
Merci de votre aide
bonjour,
je ne comprends pas trop l'idée d'effacer le contenu tout en gardant la formule. cela ne me semble pas possible.
si tu expliques plus précisément la globalité, nous pourrons peut-être te proposer une solution.
en quoi est-ce un soucis de garder les formules?
eh oui, c'est encore moi!
comme il faut passer le temps en ces temps de confinement, je me suis remis au VBA, étudié il y a assez longtemps. Et ici je tente de faire une facture.
J'ai fais une feuille avec les données de tous les clients fictifs
ensuite, j'ai créé le corps de ma facture
et enfin, une feuille récapitulative des différentes factures.
Tout cela fonctionne grâce notamment à des parties de code pour lesquels tu m'as déjà aidé.
Après avoir réalisé une facture, et l'avoir sauvegardée, j'incrémente son numéro de +1 et je passe à la facture suivante. Mais pour cela, je dois vider les différentes cellules.
Or j'avais mis les noms dans une liste déroulante (qui va les chercher sur ma feuille de données) et j'avais fait une RECHERCHEV pour aller chercher les autres instruction soit Prénom, adresse, code postal , localité, n° de TVA.
Ma rechercheV fonctionne très bien sauf que ... j'ai ensuite sélectionné les cellules à vider avec : Sheets("Facture").Range("E15:E35").ClearContents
et là, ma formule rechercheV disparait. Voilà pourquoi je posais cette question.
J'ai pensé à laisser tout effacer et par VBA aller rechercher les informations à chaque client, mais je bloque bien qu'ayant regardé quelques forums la-dessus.
Merci de ton aide.
as-tu une question?
je ne suis pas certain de comprendre pourquoi il faut vider les cellules pour passer à la facture suivante.
les formules ne peuvent-elles pas aller chercher les infos de la facture suivante? il y a une ligne par facture?
Bonjour,
les cellules que je veux vider sont celles des noms, adresse, n° TVA , quantités et désignation, ceci afin d'avoir une facture vierge pour le client suivant.
merci de ton aide
Non, pas de modification des formules, mais il faut repartir sur une facture vierge pour le client suivant, donc je dois vider certaines cellules.
Afin de mieux me faire comprendre, je te joins mon fichier si tu veux y jeter un oeil, ce serait tres gentil.
https://www.cjoint.com/c/KDkiLyvhfgI merci et excellent weekend sous la pluie...
je ne vois de formules que en E8 et en colonne G, à partir de G15.
je ne vois pas l'utilité de vider ces formules, les données se mettront à jour si tu vides les autres cellules, par exemple E7.
Merci, mais la formule doit aussi etre recopiée en E8, E9, E10, G10 et B12
Si je vide E7, j'obtiens en E8 (et sur les autres lorsqu'elles auront leur formule) #N/A
de plus le corps de ma facture n'est pas vidé.
Je pense (mais pas certain !) que il faudrait peut être effacer toutes les cellules (formules comprises) puis réintégrer les formules par VBA; mais je n'arrive pas à faire ma rechercheV avec VBA. Peut être une piste ?
est-ce important de ne pas voir N/A?
pour éviter le N/A, il y a deux solutions possibles:
1) adapter la formule pour afficher autre chose que N/A si le recherchV ne trouve rien
2) ajouter un "faux client", et, au lieu de vider la cellule E7, y mettre le nom du faux client
pourquoi le corps de la facture n'est-il pas vidé?
quand tu écris "réintégrer les formules par VBA", tu peux faire cela de deux façons:
1) remettre la formule dans la cellule en utilisant le VBA
2) mettre des données dans la cellule en utilisant le VBA
je pense que le plus simple est de laisser les formules en place.
pourquoi est-ce important que la facture soit totalement vide avant de passer à la commande suivante?
Je pense avoir résolu mon problème :
pour ce qui est du corps de la facture (Qté, Désignation, Taux TVA et Prix Unit , je n'ai pas de formule donc je peux effacer tout. Seule la colonne total possède une formule, elle sera vidée dès qu'il n'y aura plus rien en qté.
pour les noms etc, j'ai suivi ton idée, en supprimant le nom j'obtiens #/NA pour les autres cellules. Ce n'est rien sinon que je ne trouvais pas cela très élégant, alors j'ai cherché comment ôter cela et j'ai trouvé la formule sur Excel-Pratique:
et ça marche !
Je te remercie de ton aide. j'ai maintenant un projet propre et net !
et comme je te l'avais dit, le seul but est d'un peu égayer ces jours de confinement où nous ne voyons personne.
Passe un excellent weekend et certainement à une prochaine fois.
Merci de ton aide, je viens d'essayer, en effet cela fonctionne MAIS après je ne sais rien effacer !
toutes mes cellules sont bloquées par la protection.
Je t'envoie mon fichier, si tu veux y jeter un oeil.
Merci beaucoup
https://www.cjoint.com/c/KDkiLyvhfgI
Sub supprimer()
Sheets("Facture").Unprotect
Sheets("Facture").Range("A15:G15").SpecialCells(xlCellTypeConstants, 3).ClearContents
Sheets("Facture").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
la demande, ici, est d'effacer le contenu des cellules contenant des formules, sans toucher à la formule.
pas d'effacer le contenu de cellules ne contenant pas de formule.
Merci, cs_LePivert,
voici la réponse que j'adresse à yg_be, et je te remercie en même temps pour t'être penché sur mon problème.
Bon Weekend à toi également.
Je pense avoir résolu mon problème :
pour ce qui est du corps de la facture (Qté, Désignation, Taux TVA et Prix Unit , je n'ai pas de formule donc je peux effacer tout. Seule la colonne total possède une formule, elle sera vidée dès qu'il n'y aura plus rien en qté.
pour les noms etc, j'ai suivi ton idée, en supprimant le nom j'obtiens #/NA pour les autres cellules. Ce n'est rien sinon que je ne trouvais pas cela très élégant, alors j'ai cherché comment ôter cela et j'ai trouvé la formule sur Excel-Pratique:
et ça marche !
Je te remercie de ton aide. j'ai maintenant un projet propre et net !
et comme je te l'avais dit, le seul but est d'un peu égayer ces jours de confinement où nous ne voyons personne.
Passe un excellent weekend et certainement à une prochaine fois.
- Messages postés
-
15289
- Date d'inscription
- lundi 9 juin 2008
- Statut
- Contributeur
- Dernière intervention
- 23 avril 2021
837 > SimKmilpour éviter le N/A, il y a deux solutions possibles:
1) adapter la formule pour afficher autre chose que N/A si le recherchV ne trouve rien
2) ajouter un "faux client", et, au lieu de vider la cellule E7, y mettre le nom du faux client
pourquoi le corps de la facture n'est-il pas vidé?
- Messages postés
-
15289
- Date d'inscription
- lundi 9 juin 2008
- Statut
- Contributeur
- Dernière intervention
- 23 avril 2021
837 > SimKmil1) remettre la formule dans la cellule en utilisant le VBA
2) mettre des données dans la cellule en utilisant le VBA
je pense que le plus simple est de laisser les formules en place.
pourquoi est-ce important que la facture soit totalement vide avant de passer à la commande suivante?
- Messages postés
-
312
- Date d'inscription
- mardi 19 février 2008
- Statut
- Membre
- Dernière intervention
- 16 avril 2021
26 > yg_bepour ce qui est du corps de la facture (Qté, Désignation, Taux TVA et Prix Unit , je n'ai pas de formule donc je peux effacer tout. Seule la colonne total possède une formule, elle sera vidée dès qu'il n'y aura plus rien en qté.
pour les noms etc, j'ai suivi ton idée, en supprimant le nom j'obtiens #/NA pour les autres cellules. Ce n'est rien sinon que je ne trouvais pas cela très élégant, alors j'ai cherché comment ôter cela et j'ai trouvé la formule sur Excel-Pratique:
=SI(ESTNA(RECHERCHEV(E7;'Données Client'!B3:F6;2;FAUX));"";RECHERCHEV(E7;'Données Client'!B3:F6;2;FAUX))
et ça marche !
Je te remercie de ton aide. j'ai maintenant un projet propre et net !
et comme je te l'avais dit, le seul but est d'un peu égayer ces jours de confinement où nous ne voyons personne.
Passe un excellent weekend et certainement à une prochaine fois.
- Messages postés
-
15289
- Date d'inscription
- lundi 9 juin 2008
- Statut
- Contributeur
- Dernière intervention
- 23 avril 2021
837 > simkmilà plus!
- Messages postés
-
15289
- Date d'inscription
- lundi 9 juin 2008
- Statut
- Contributeur
- Dernière intervention
- 23 avril 2021
837 > simkmil