Comment créer cette macro

J

justine

Guest

• 12 Février 2006

• #2

bonjour le forum, pilcar

dim c as range
for each c in range('d1:d20')
if c.value='NON' then
Rows(c.row).Select
Selection.Copy
Rows('30:30').Select
Selection.Insert Shift:=xlDown
ActiveSheet.Paste
end if
next

 

Vote positif 0 Vote négatif

J

justine

Guest

• 12 Février 2006

• #3

re

mets apres activesheet.paste, Application.CutCopyMode = False

 

Vote positif 0 Vote négatif

P

PILCAR

Guest

• 12 Février 2006

• #4

Génial, merci beaucoup, le top serait que la ligne sélectionnée puisse ensuite s'effacer puisqu'elle est copiée plus bas.

 

Vote positif 0 Vote négatif

J

justine

Guest

• 12 Février 2006

• #5

re.
dans ce cas la tu mets CUT ala place de COPY
justine

 

Vote positif 0 Vote négatif

P

pilcar

Guest

• 12 Février 2006

• #6

Merci beaucoup pour ton aide
Excellente journée

 

Vote positif 0 Vote négatif

JeanMarie

XLDnaute Barbatruc

• 12 Février 2006

• #7

Bonjour

Il y aussi la fonction Match (Equiv) pour retrouver l'emplacement du texte

Code:

Sub Macro1()
Dim vLig As Integer
   On Error Resume Next
   vLig = Application.WorksheetFunction.Match('NON', Range('D1:D20'), 0)
   If vLig > 0 Then
      Rows(vLig).Cut
      Rows(30).Insert Shift:=xlDown
   End If
End Sub

@+Jean-Marie

 

Vote positif 0 Vote négatif

J

justine

Guest

• 12 Février 2006

• #8

bonjour jeanmarie
je ne connaissais pas cette methode, merci, je la note dans mes archives

 

Vote positif 0 Vote négatif

Dan

XLDnaute Barbatruc

Membre du Staff

Modérateur

• 12 Février 2006

• #9

Bonjour,

Une petite modification que la macro de Justine pour aller plus vite :

Code:

Sub copiervaleur()
Dim c As Range
For Each c In Range('d1:d20')
If c.Value = 'NON' Then
Rows(c.Row).Copy
Rows('30').Insert Shift:=xlDown
End If
Next
Application.CutCopyMode = False
End Sub

Remarque pour Pilcar, la macro ne fonctionnera que si le NON est bien renseigné en majuscule.

😉

Message édité par: Dan, à: 12/02/2006 16:08

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 12 Février 2006

• #10

bonsoir tout le monde

une autre syntaxe possible, a adapter :

Columns('d').Find('non').EntireRow.Cut Destination:=Rows(30)

Cliquez pour agrandir...

salut

 

Vote positif 0 Vote négatif

P

PILCAR

Guest

• 12 Février 2006

• #11

Un grand Merci à tous et toutes, c'est vraiment excellent

 

Vote positif 0 Vote négatif