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
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
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
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
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
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
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
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
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
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