Copier que les valeurs et formats dans macro

Le
Françoise
bonjour à tous !

besoin d'un petit coup de main pour pofiner une macro

j'ai une macro qui sélectionne des articles en fonction d'une valeur, je
copie ces articles sur une autre feuille, mais je voudrais copier que les
valeurs et formats des nombres, que dois-je préciser ?

voici le code :
Sub SelectionParFamille()
'
'
Sheets("REFERENTIEL").Select
Range("L1").Select
Dim firstAddress As Variant
Dim c As Range

With Worksheets("REFERENTIEL").Range("L1", Range("L65536").End(xlUp))
Set c = .Find("ABS", LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address

Do
c.EntireRow.Copy
Worksheets("ABSTRAIT").[A65000].End(xlUp).Offset(1, 0)

Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With

merci de votre aide
Françoise
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
FFO
Le #5103261
Salut Françoise

Recopier que les valeurs tu peux utiliser :

Worksheets("ABSTRAIT").[A65000].End(xlUp).Offset(1, 0).Entirerow.Value =
c.EntireRow.Value

Si tu souhaites les valeurs et format je ne vois pour moi que :

c.EntireRow.Copy
Worksheets("ABSTRAIT").[A65000].End(xlUp).Offset(1, 0).PasteSpecial
Paste:=xlPasteValues
Worksheets("ABSTRAIT").[A65000].End(xlUp).Offset(1, 0).PasteSpecial
Paste:=xlPasteFormats


A toi de voir !!!!



bonjour à tous !

besoin d'un petit coup de main pour pofiner une macro

j'ai une macro qui sélectionne des articles en fonction d'une valeur, je
copie ces articles sur une autre feuille, mais je voudrais copier que les
valeurs et formats des nombres, que dois-je préciser ?

voici le code :
Sub SelectionParFamille()
'
'
Sheets("REFERENTIEL").Select
Range("L1").Select
Dim firstAddress As Variant
Dim c As Range

With Worksheets("REFERENTIEL").Range("L1", Range("L65536").End(xlUp))
Set c = .Find("ABS", LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address

Do
c.EntireRow.Copy
Worksheets("ABSTRAIT").[A65000].End(xlUp).Offset(1, 0)

Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
======== > merci de votre aide
Françoise


Françoise
Le #5103101
c'est super, merci cela fonctionne avec le code suivant :

=== Sheets("REFERENTIEL").Select
Range("L1").Select
Dim firstAddress As Variant
Dim c As Range

With Worksheets("REFERENTIEL").Range("L1", Range("L65536").End(xlUp))
Set c = .Find("ABS", LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address

Do
c.EntireRow.Copy
Worksheets("ABSTRAIT").[A65000].End(xlUp).Offset(1, 0).PasteSpecial
Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:úlse, Transpose:úlse


Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
===== merci pour ton aiguillage, cela m'a fait gagner du temps !
Françoise


Salut Françoise

Recopier que les valeurs tu peux utiliser :

Worksheets("ABSTRAIT").[A65000].End(xlUp).Offset(1, 0).Entirerow.Value =
c.EntireRow.Value

Si tu souhaites les valeurs et format je ne vois pour moi que :

c.EntireRow.Copy
Worksheets("ABSTRAIT").[A65000].End(xlUp).Offset(1, 0).PasteSpecial
Paste:=xlPasteValues
Worksheets("ABSTRAIT").[A65000].End(xlUp).Offset(1, 0).PasteSpecial
Paste:=xlPasteFormats


A toi de voir !!!!



bonjour à tous !

besoin d'un petit coup de main pour pofiner une macro

j'ai une macro qui sélectionne des articles en fonction d'une valeur, je
copie ces articles sur une autre feuille, mais je voudrais copier que les
valeurs et formats des nombres, que dois-je préciser ?

voici le code :
Sub SelectionParFamille()
'
'
Sheets("REFERENTIEL").Select
Range("L1").Select
Dim firstAddress As Variant
Dim c As Range

With Worksheets("REFERENTIEL").Range("L1", Range("L65536").End(xlUp))
Set c = .Find("ABS", LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address

Do
c.EntireRow.Copy
Worksheets("ABSTRAIT").[A65000].End(xlUp).Offset(1, 0)

Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
======== > > merci de votre aide
Françoise




Publicité
Poster une réponse
Anonyme