Recopie cellule par macro

Recopie cellule par macro Sujet résolu

dlxpat

Posté le 07/05/2015 @ 18:17

Bonjour à tous ! j'ai un fichier (ci-joint) qui me sert tous les jours ! je remplis en fonction de mon alimentation la colonne D qui calcule automatiquement le nb total de calorie en fonction de la colonne C. J'ai fait une macro qui me permet en cas de nouvel aliment, de pouvoir créer une nouvelle ligne. Via des boites de message je crée produit, famille, calorie, puis je classe dans l'ordre "famille". Je bloque dans la colonne F, où j'aimerai que le calcul (C...*D.../100) soit incrémenté automatiquement dans ma nouvelle ligne. Suis-je assez clair ? Merci d'avance

http://cjoint.com/?EEhsFNcTM72

ferrand

Posté le 07/05/2015 à 20:04

Bonsoir,

Sub nouveau_produit()
Dim n%, i%, fpc(2) As String
n = Range("b1").End(xlDown).Row + 1
fpc(1) = InputBox("Nom ?")
fpc(0) = InputBox("Quelle famille ?")
fpc(2) = InputBox("Combien de calories ?")
For i = 1 To 3
Cells(n, i).Value = fpc(i - 1)
Next i
Cells(2, 5).Copy Cells(n, 5)
Range("A2:C" & n).Sort key1:=Range("A2"), order1:=xlAscending, Header:=xlNo
End Sub

dlxpat

Posté le 07/05/2015 à 20:18

Et une nouvelle fois un grand merci pour cette aide. Quand je vois la longueur de ma macro et la tienne............sans commentaire. Mille mercis !

dlxpat

Posté le 07/05/2015 à 20:21

Ca marche super bien !

ferrand

Posté le 07/05/2015 à 20:30

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !

Les bons plans du moment PC Astuces

Tous les Bons Plans

48,50 €

SSD Crucial BX500 480 Go à 48,50 €
Valable jusqu'au 28 Février

Amazon propose actuellement le SSD Crucial BX500 480 Go à 48,50 € livré gratuitement alors qu'on le trouve ailleurs à plus de 60 €. Ce SSD offre des débits de 540 Mo/s en lecture et 500 Mo/s en écriture. Le SSD est accompagné du logiciel Acronis true image qui vous permettra de transférer tout le contenu de votre ancien disque dur sur le SSD. Il est garanti 3 ans.

> Voir l'offre

48,99 €

Kaspersky Total Security 2021 (5 postes, 2 ans) à 48,99 €
Valable jusqu'au 01 Mars

Amazon fait actuellement une promotion sur la version 2021 de la célèbre suite de sécurité Kaspersky. Le marchand propose ainsi Kaspersky Total Security 2021 à 48,99 € seulement au lieu de 89 €. Cette version peut être installée sur 5 appareils (PC, Mac ou Android) et bénéficie de 2 ans de mises à jour. Une fois votre commande passée, la clé d'activation vous est immédiatement envoyée par email, accompagnée du lien de téléchargement. Notez que si vous avez déjà un abonnement Kaspersky Total Security, vous pourrez utiliser la clé pour prolonger votre abonnement de 2 ans.

> Voir l'offre

65,99 €

Boîtier PC Corsair Carbide Series 275R avec fenêtre à 65,99 €
Valable jusqu'au 01 Mars

Cdiscount propose actuellement le boîtier PC moyen tour avec fenêtre Corsair Carbide Series 275R à 65,99 €. On le trouve ailleurs à partir de 99,99 €. Le Corsair Carbide 275R est compact et conçu pour créer des systèmes hautes performances à l'aspect minimaliste. il offre une capacité de refroidissement efficace (2 ventilateurs 120 mm fournis), tout en vous permettant de faire évoluer ses performances grâce aux autres emplacements disponibles.

> Voir l'offre