Microsoft 365 VBA et User form

dominiquekobel · 29 Octobre 2021

Bjr
je recherche un conseil pour l'exploitation d'un deviseur
je récupère et intègre une liste de produit depuis un logiciel de gestion de stock (onglet source)
j'extrais via user form les produits de cette liste utiles pour le devis partie colonne A à F (onglet TABLEAUDEVIS) (clic sur et choix du produit dans liste déroulante)

je voulais créer la valorisation "matière" en colonne J (saisie manuelle des quantités spécifiques au devis) à L (calcul des coûts matières)
cela fonctionne pour le 1er devis mais quand je remet la sélection des articles à zéro pour créer un second devis les formules que j'ai en col K et L s’effacent

Une solution pour que mes formules restent après le RAZ
ci joint exemple fictif de fichier

merci d'avance pour votre aide

Compte Supprimé 979 · 30 Octobre 2021

Re,

Alors voici votre fichier avec la formule corrigée

J'ai changé le format et la formule de votre colonne "L" car mettre du texte pour avoir un espace vide n'est jamais bon avec des chiffres

A+

Compte Supprimé 979 · 29 Octobre 2021

Bonsoir Domnique

Logique, le tableau est supprimé, je ferais juste un effacement

Mais sinon il faut utiliser la fonction DECALER()
Exemple (je ne sais pas si la formule est bonne)

VB:

=SI(J2>0;DECALER(TDevis[[#En-têtes];[Prix d''achat]];1;0)*J2;" ")

A+

ChTi160 · 29 Octobre 2021

Bonsoir dominique
Bonsoir Bruno ,le Forum
Moi pas compris ! mais Bon ! Lol
j'ai modifié, afin de participer, la procédure "Effacer Devis"

VB:

Sub Effacer_Devis() 'macro pour effacer donnees en feuille Source
    With Range("TDevis").ListObject
        If Not .DataBodyRange Is Nothing Then
                 .DataBodyRange.Delete
        End If
    End With
End Sub

ça evite le Bug lorsque le Tableau (TDevis) est Vide ! Eh voilà! (Comme dirait ma petite fille Lol)
Bonne fin de Soirée
Jean marie

dominiquekobel · 30 Octobre 2021

ChTi160 à dit:
Bonsoir dominique
Bonsoir Bruno ,le Forum
Moi pas compris ! mais Bon ! Lol
j'ai modifié, afin de participer, la procédure "Effacer Devis"

VB:

Sub Effacer_Devis() 'macro pour effacer donnees en feuille Source With Range("TDevis").ListObject If Not .DataBodyRange Is Nothing Then .DataBodyRange.Delete End If End With End Sub

ça evite le Bug lorsque le Tableau (TDevis) est Vide ! Eh voilà! (Comme dirait ma petite fille Lol)
Bonne fin de Soirée
Jean marie

Bjr Jean Marie
merci pour ta participation mais ça remet bien à zéro la partie colonnes de A à F mais les formules en K et L plantent avec des #ref?
une nouvelle piste?
merci

Compte Supprimé 979 · 30 Octobre 2021

Bonjour Dominique
Avez-vous regardé ma proposition au moins

dominiquekobel · 30 Octobre 2021

oui j'ai mis ta phrase dans le module effacer
test je crée

j’efface
ci joint fichier avec ton ajout

Compte Supprimé 979 · 30 Octobre 2021

Re,

Navré de vous contredire, mais vous en l'avez pas mise ou pas correctement
il suffit de faire un recopier vers le bas

Sinon vous auriez ceci après RAZ du devis

Après je pense qu'il faut l'adapter, je ne sais pas comment vous utiliser votre formule ?
Est-ce que chaque ligne de gauche correspond à 1 ligne de droite ?

dominiquekobel · 30 Octobre 2021

BrunoM45 à dit:
Re,

Navré de vous contredire, mais vous en l'avez pas mise ou pas correctement
il suffit de faire un recopier vers le bas

Sinon vous auriez ceci après RAZ du devis
Regarde la pièce jointe 1119952

Après je pense qu'il faut l'adapter, je ne sais pas comment vous utiliser votre formule ?
Est-ce que chaque ligne de gauche correspond à 1 ligne de droite ?

yes j'ai vu mon oubli.... ça colle mieux
oui a une ligne de gauche il y aura une ligne à droite avec des qtés
merci beaucoup pour votre participation

Compte Supprimé 979 · 30 Octobre 2021

Re,

Alors voici votre fichier avec la formule corrigée

J'ai changé le format et la formule de votre colonne "L" car mettre du texte pour avoir un espace vide n'est jamais bon avec des chiffres

A+

dominiquekobel · 30 Octobre 2021

bingo c'est top
merci

dominiquekobel · 31 Octobre 2021

Bjr
j'abuse peut être mais une dernière question
lors de la mise à zéro des zones de calculs coûts matières possible demattre aussi à zéro la colonne quantité?

Microsoft 365 VBA et User form

dominiquekobel

XLDnaute Nouveau

Pièces jointes

Compte Supprimé 979

Compte Supprimé 979

Guest

ChTi160

XLDnaute Barbatruc

dominiquekobel

XLDnaute Nouveau

Compte Supprimé 979

Guest

dominiquekobel

XLDnaute Nouveau

Pièces jointes

Compte Supprimé 979

Guest

dominiquekobel

XLDnaute Nouveau

Compte Supprimé 979

Guest

Pièces jointes

dominiquekobel

XLDnaute Nouveau

dominiquekobel

XLDnaute Nouveau

Discussions similaires