> Tous les forums > Forum Bureautique
 Comment figer mes données dans un tableau ?Sujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
lol21
  Posté le 04/12/2006 @ 17:01 
Aller en bas de la page 
Petit astucien

Dans ma feuille excel, j'ai un tableau (SOURCE) qui effectue certains calculs et me donne ensuite un résultat. Une fois ce résultat obtenu, je dois le reporter MANUELLEMENT dans un tableau de données (CIBLE). Ensuite, j'efface les données de mon tableau de calcul (SOURCE) à l'aide d'une petite macro affectée à un bouton et je recommence l'exercice pour remplir la ligne suivante de mon tableau CIBLE.

Ma question : existe-t-il une FORMULE qui me permettrait de FIGER mes résultats, c'est-à-dire que lorsque j'ai un résultat qui sort de mon tableau SOURCE, il s'insère directement dans mon tableau CIBLE et y reste même quand j'efface les données de mon tableau SOURCE ?

Je ne suis pas très habile en VBA, alors s'il existait un moyen d'y arriver via une (ou plusieurs) formule(s), ça m'arrangerait... Mais si c'est en VBA, je ferai avec...

D'avance merci mille fois...

lol21

Publicité
dixit
 Posté le 04/12/2006 à 17:21 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

bonsoir,

copier puis collage spécial en cochant valeurs

faire un enregistrement macro pour voir le vba

bye

galopin01
 Posté le 04/12/2006 à 17:37 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Bonsoir,
Les formules ne font pas ce genre de sport !

Comme le dit notre ami, c'est à toi de mettre en marche l'enregistreur de macro juste avant de faire ton report d'une feuille sur l'autre, et tu arrêtes l'enregistreur juste avant de saisir de nouvelles données dans la source.

Cet enregistrement ne te permettra pas d'automatiser complètement ton travail : il faudra encore optimiser, adapter, fignoler. Néanmoins cet enregistrement sera le point de départ de ce travail de mise au point.

Quand tu auras fait cet enregistrement, tu reviens ici avec le texte de cette macro enregistré et on verra ce qu'on peut faire avec ça.

A+

lol21
 Posté le 05/12/2006 à 07:54 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour,

Je vais faire comme vous avez dit et je reviendrai solliciter votre précieuse aide dès que j'aurai le texte de la macro.

D'ici-là, merci beaucoup à vous deux.

A+

lol21
 Posté le 06/12/2006 à 10:43 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour tout le monde... Me revoilà avec mon problème de report de données...

Comme vous me l'avez suggéré, j'ai donc enregistré une macro qui fait "copier/collage spécial/valeurs" dont voici le code :

Sub ReportValeurs()
'
' ReportValeurs Macro
' Macro enregistrée le 05.12.2006 par lol
'

Range("G24").Select
Selection.Copy
Range("S28").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("O24").Select
Selection.Copy
Range("T28").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("W24").Select
Selection.Copy
Range("W28").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub

En vous référant à l'énoncé de mon problème, vous est-il possible de m'aider ?

D'avance, merci beaucoup.

galopin01
 Posté le 06/12/2006 à 11:20 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

bonjour,

voilà qui devrait faire ton affaire :

Sub ReportValeurs()
i = Cells(65535, 20).End(xlUp).Row + 1
Range("G24").Copy
Range("S" & i).PasteSpecial xlPasteValues
Range("O24").Copy
Range("T" & i).PasteSpecial xlPasteValues
Range("W24").Copy
Range("W" & i).PasteSpecial xlPasteValues
Application.CutCopyMode = False
End Sub

A+
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
239,99 €Solution Wifi 6 Mesh Netgear Orbi Pro Mini SXK30 (AX1800, couverture jusqu'à 375 m²) à 239,99 €
Valable jusqu'au 25 Mai

Amazon fait une belle promotion sur le Kit Wifi 6 Mesh Netgear Orbi Pro Mini SXK30B3 qui passe à 239,99  alors qu'on le trouve ailleurs à partir de 337 €. Avec Orbi, vous bénéficiez d’un Wifi étendu n’importe où chez vous sans perte de connexion. Ce Kit Orbi avec un routeur à brancher sur votre box et deux satellites vous permettra de couvrir jusqu’à 375 m² grâce à son Wifi 6 AX1800. 

Profitez d’un streaming simultané et sans interruptions de films, jeux, appels vidéo ou téléchargez/transférez des fichiers à une vitesse Wifi de 1,8 Gbit/s.

Vos équipements (jusqu'à 40) peuvent se déplacer entre les différents modules Orbi sans avoir à se reconnecter.

Toute la surface de votre maison sera couverte par un réseau ultra rapide, vous offrant ainsi des performances Wifi inégalées partout où vous allez. Vous avez besoin d’une couverture supérieure ? Il vous suffit d’ajouter un satellite Orbi pour étendre instantanément votre couverture Wifi.


> Voir l'offre
1199,99 €PC portable 14'' Asus Vivobook Pro (OLED QHD+, R7 5800H, 16 Go, SSD 1 To, RTX 3050 Ti) à 1199,99 €
Valable jusqu'au 24 Mai

RueDuCommerce fait une promotion sur le PC portable Asus Vivobook Pro 14 N7400QE-KM008T qui passe à 1199,99 € au lieu de 1549 €. Cet ordinateur dispose d'un superbe écran 14 pouces OLED QHD+ (2880x1800p), d'un processeur AMD Ryzen 7 5800H (8 coeurs) avec chip Radeon Vega 8 intégré, 16 Go de RAM, un SSD NVMe de 1 To, d'une carte graphique Nvidia RTX 3050 Ti et tourne sous Windows 10 que vous pouvez mettre à jour vers Windows 11.

Un super PC pour les créateurs qui ont besoin de mobilité.


> Voir l'offre
49,99 €Carte mémoire microSDXC UHS-I SanDisk Ultra 400 Go à 49,99 €
Valable jusqu'au 25 Mai

Cdiscount propose la carte mémoire microSDHC UHS-I SanDisk Ultra 400 Go à 49,99 €. On la trouve trouve ailleurs à partir de 70 €. Cette carte mémoire offre des vitesses jusqu'à 100 Mo/s et est idéale pour les téléphones, caméras et appareils photo HD. Elle est certifiée GoPro, Nintendo Switch et est accompagnée d'un adaptateur SD.


> Voir l'offre

Sujets relatifs
Comment insérer un tableau Excel de calcul dans un site?
Comment Calculer un % en Moins dans mon tableau ?
Comment insérer une image dans un tableau WORKS ?
Comment intégrer des données Excel dans Word ?
comment mettre des alertes dans un tableau Excel
comment partager une ligne dans un tableau ?
importer données d'un tableau xml dans excel
FUSIONNER UN CHAMP DE DONNEES DANS UN TABLEAU
Word : comment établir dans un texte ses propres marges de & et sous-& ?
Comment récupérer la barre d'outils dans Word 2007 ?
Plus de sujets relatifs à Comment figer mes données dans un tableau ?
 > Tous les forums > Forum Bureautique