> Tous les forums > Forum Bureautique
 Recopie cellule par macroSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
dlxpat
  Posté le 07/05/2015 @ 18:17 
Aller en bas de la page 
Astucien

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

Publicité
ferrand
 Posté le 07/05/2015 à 20:04 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

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 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

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 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Ca marche super bien !

ferrand
 Posté le 07/05/2015 à 20:30 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Page : [1] 
Page 1 sur 1

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

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

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

Sujets relatifs
macro de recopie de la couleur fond de la cellule
Recopie cellule dans un autre classeur
Excel 2007 macro rajouter tri + cellule en surbrillance à chaque changement
se positionner avec une macro dans une cellule précise
(Macro Excel) Sélectionner cellule en fonction de sa couleur
Execution macro lors d'une saisie dans une cellule
Macro Rechercher une ligne à partir d'une cellule
Excel - Déclencher macro après chgt d'une cellule
Recopie avec cellule constante
macro sur selection cellule
Plus de sujets relatifs à Recopie cellule par macro
 > Tous les forums > Forum Bureautique