> 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
19,49 €Clé USB Sandisk Ultra 128 Go à double connectique USB 3.1 Type A et C à 19,49 €
Valable jusqu'au 26 Juin

Amazon fait une promotion sur la clé USB Sandisk Ultra 128 Go à double connectique USB 3.1 Type A et C qui passe à 19,49 €. Cette clé USB  dispose d'un connecteur réversible USB Type C et d'un connecteur classique de type A. Grâce à elle, transférez en toute simplicité et rapidement (jusqu'à 150 Mo/s) vos fichiers entre vos smartphones, tablettes et ordinateurs. On la trouve ailleurs à plus de 40 €.


> Voir l'offre
61,99 €Souris sans fil avec trackball Logitech MX Ergo à 61,99 €
Valable jusqu'au 26 Juin

Amazon fait une belle promotion sur la souris sans fil avec trackball Logitech MX Ergo qui passe à 61,99 € livrée gratuitement. On la trouve ailleurs autour de 100 €. Réduisant de 20% la contrainte musculaire par rapport à une souris standard,  le Logitech MX Ergo vous facilitera le travail en maintenant dans une position très stable votre main.


> Voir l'offre
9,99 €Windows 10 Pro 32/64 bits OEM à 9,99 €
Valable jusqu'au 27 Juin

Le vendeur sérieux Digital FR propose sur Amazon la clé d'activation pour Windows 10 professionnel en français 32 bits / 64 bits à 9,99 €. Cette clé livrée par email fonctionne avec l'outil d'installation et de création de support de Microsoft que vous pouvez télécharger ici ou directement avec l'ISO de Windows 10 Pro. De quoi installer légalement Windows 10 Pro sur un PC. Pour en savoir plus sur l'achat et l'installation d'une clé OEM de Windows 10, suivez les indications de notre dossier pratique.


> Voir l'offre

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