macro copie ligne

J

Jon

Guest

• 13 Août 2004

• #2

bonjour

if worksheets("feuil1").range("a1").value=0 then rows(range("A1").row).copy destination:=worksheets("feuil2").range("A65536").end(xlup).offset(1)

cela peut aussi s'écrire ainsi
with worksheets("feuil1").range("a1")
if .value=0 then rows(row).copy destination:=worksheets("feuil2").range("A65536").end(xlup).offset(1)
end with

bye bye

 

Vote positif 0 Vote négatif

B

Bernard

Guest

• 13 Août 2004

• #3

Bonjour Lionel, Jon et le Forum

Désolé Jon mais la syntaxe rows(range("A1").row) ne fonctionne pas avec Excel 2002, petit correctif donc :

Sub Recopier()

If Worksheets("feuil1").Range("a1").Value = 0 Then Worksheets("feuil1").Range("A1").EntireRow.Copy Worksheets("feuil2").Range("A65536").End(xlUp).Offset(1)

'Cela peut aussi s'écrire ainsi :
With Worksheets("feuil1").Range("A1")
If .Value = 0 Then .EntireRow.Copy Worksheets("feuil2").Range("A65536").End(xlUp).Offset(1)
End With
End Sub

Cordialement

Bernard

 

Vote positif 0 Vote négatif

J

Jon

Guest

• 13 Août 2004

• #4

ça marche très bien sur excel 2000, mais en même temps ça nous permet de faire découvrir entirerow et entirecolumn aux nouveaux venus.

bye bye

plus d'infos sur la manipulation de cellules
<http://xlbysteph.free.fr/aideinformatique/actioncellule.htm>

 

Vote positif 0 Vote négatif

L

lionel

Guest

• 13 Août 2004

• #5

Merci pour les infos, mais cela m’indique encore le msg roprietes ou methode non geree par cet objet
La macro se « bloque » apres avoir selectionner la ligne.

 

Vote positif 0 Vote négatif

J

Jon

Guest

• 16 Août 2004

• #6

bonjour lionel

cela marche très bien, que ce soit ma proposition ou bien l'adaptation

attention, as-tu bien deux feuilles de calcul nommées "feuil1" & "feuil2" ?
quelle est ta version d'excel ?

 

Vote positif 0 Vote négatif

J

Jon

Guest

• 16 Août 2004

• #7

lionel,

Je ne sais pas. Essaye de sélectionner la feuille source au préalable Worksheets("feuil1").Select



Joins une version allégée zippée de ton classeur sans données importantes si besoin est.



bye bye

 

Vote positif 0 Vote négatif