Macro Excel avec selection multiple Fermé

Question

Bonjour, 

Je dois créer un fichier excel pour une société de travaux de rénovation.
Les différentes colonnes sont réparties ainsi:
- nom client
- coordonnées
- appart/pavillon
- proprio/locataire

ensuite la colonne des différentes prestations:
parquet / carrelage / peinture / combles / escalier / fenetre et vitrage / jardin / piscine / portes portail .....

Chaque prestations correspond à un tarif

Pour la colonne prestations je dois pouvoir sélectionner plusieurs éléments et avoir les prix qui s'affichent dans la colonne prix et pouvoir ensuite faire le total dans la dernière colonne.

Le mieux serait d'utiliser un Userform qui permet d'aller chercher dans une autre feuille les prestations souhaitées avec les prix correspondants.

Merci par avance de votre aide.

gbinforme · Answer

bonjour

Tu ne poses pas de question précise :en fait tu nous établis un mini cahier des charges.

Tu attends que l'on te fournisse un classeur qui te permette de facturer la prestation que tu as vendue à ton client ?

Raymond PENTIER · Answer

Bonjour. 

Colonne E (prestation), utiliser une liste déroulante de cellule. 
Colonne F (tarif), mettre une formule avec la fonction RECHERCHEV 
Il vaut mieux utiliser une deuxième feuille pour dresser le tableau des prestations avec leur tarif. 

Aucun UserForm n'est nécessaire. 
C'est bien, la retraite ! Surtout aux Antilles ... :-) 
Raymond

eliza95 · Answer

J'ai crée un Userform qui me permet d'insérer COLONNE E dans une cellule les différentes prestations.
Mais impossible d'insérer COLONNE F les prix correspondants pour avoir ensuite un total en COLONNE G.

Voici ma macro mais je n'arrive pas à l'appliquer à tout mon classeur :

Sub RetourClient()

Application.ScreenUpdating = False

     Selection.Copy
    Sheets("AVRIL").Select
    'pour slectionner la cellule active
    ActiveSheet.Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
     Sheets("LISTE").Select
    Range("c3:c44").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Sheets("AVRIL").Select
    
Application.ScreenUpdating = True
End Sub

Que dois-je changer ?

Merci de votre aide.

Macro Excel avec selection multiple

3 réponses

Discussions similaires