> Tous les forums > Forum Bureautique
 Copier la valeur d'une colonne et non la formuleSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
ffttkl
  Posté le 06/02/2008 @ 15:33 
Aller en bas de la page 
Petite astucienne

Bonjour,

j'ai fait ma macro suivante qui me permet de copier certaines colonnes de mon onglet principal vers mon onglet facture, or je souhaite copier la valeur de la colonne AC et non la formule. Qui peut m'aider ?

Sub facture()

Dim cel As Range
Dim bd As String

With Sheets("Facture")
.Range(.[A2], .[AG3].End(xlDown)).Clear

End With
For Each cel In Range([F6], [AA65536].End(xlUp))
If cel.Value = ("UMP") Then
Range(Cells(cel.Row, "B"), Cells(cel.Row, "D")).Copy Sheets("Facture").[A65536].End(xlUp).Offset(1, 0)
Range(Cells(cel.Row, "F"), Cells(cel.Row, "F")).Copy Sheets("Facture").[D65536].End(xlUp).Offset(1, 0)
Range(Cells(cel.Row, "AA"), Cells(cel.Row, "AA")).Copy Sheets("Facture").[E65536].End(xlUp).Offset(1, 0)
Range(Cells(cel.Row, "AC"), Cells(cel.Row, "AC")).Copy Sheets("Factre").[E65536].End(xlUp).Offset(1, 0)
End If
Next
End Sub

Merci de votre aide

Publicité
ffttkl
 Posté le 06/02/2008 à 15:57 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petite astucienne

bonjour,

desolé mais je vines de supprimer une réponse qui m'a été faite mais qui ne correspond pas à ce que je souhaite

fth
 Posté le 06/02/2008 à 15:59 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour,

Range(Cells(cel.Row, "AC"), Cells(cel.Row, "AC")).Copy

Sheets("Facture").[E65536].End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues

Application.CutCopyMode = False

ffttkl
 Posté le 06/02/2008 à 16:38 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petite astucienne
merci beaucoup fth, c'est exactement ce que je voulais. c'est résolu
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
Batterie portable Charmast 10400 mAh 18W PD charge rapide à 17,28 €
17,28 € 26,99 € -36% @Amazon
Ecouteurs sans fil Bluetooth Xiaomi Redmi Buds 3 Lite à 20,52 €
20,52 € 32,99 € -38% @Amazon
Playmobil James Bond Aston Martin DB5 - Goldfinger à 34,99 €
34,99 € 50 € -30% @Cdiscount
Ecran PC 24.5 pouces BenQ EX2510S (FHD, IPS, FreeSync,165Hz, 2xHP, réglable en hauteur) à 179 €
179,00 € 249 € -28% @Amazon
Ecran 27 pouces incurvé KTC H27S17 (QHD, 165 Hz, 1 ms, HDR10) à 219,76 € (+ mini enceinte Tronsmart Trip 10W étanche IPX7 offerte)
219,76 € 300 € -27% @Geekbuying
Smartphone Realme GT Master 5G (6,43' AMOLED 120 Hz, 6 Go/128 Go) à 234,99 €
234,99 € 323 € -27% @Geekbuying
-15 € dès 79 € sur les jouets chez Rakuten
-15 € @Rakuten
Radio réveil Lenovo Smart Clock Essential avec assistant Google à 17,99 €
17,99 € 49 € -63% @Darty
1 Lego acheté = le 2ème à -50% chez Cdiscount
@Cdiscount
Norton 360 Deluxe (5 postes, 1 an) à 14,99 €
14,99 € 50 € -70% @Amazon

Sujets relatifs
Comment aller recherche les X dernière valeur d'une colonne
calcul plus grande valeur d'une colonne
Garder valeur dans copie de formule
Copier exemple uniquement colonne 1à 5 de tout le fichierb
Formule pour remplacer une valeur négative par la valeur 0
Renvoyer derniere valeur colonne feuille precedent
Dernière valeur d'une colonne de nombres
comment copier formule d'1 class à l'autre sans li
Copier une formule
formule pour trouver la valeur de X.
Plus de sujets relatifs à Copier la valeur d''une colonne et non la formule
 > Tous les forums > Forum Bureautique