macro copier valeur cellule puis supprimer cellule d'origine

Efgé

XLDnaute Barbatruc

• 7 Janvier 2010

• #2

Re : macro copier valeur cellule puis supprimer cellule d'origine

Bonjour pierre31270,
Je pense que :

Code:

Sub test()
For n = 2 To Range("M8000").End(xlUp).Row
If Range("M" & n) = "-" Then 
     Range("M" & n) = Range("N" & n)
     Range("N" & n).Value = ""
Next n
End Sub

Devrait aller. A tester
Cordialement

 

Vote positif 0 Vote négatif

J

jp14

XLDnaute Barbatruc

• 7 Janvier 2010

• #3

Re : macro copier valeur cellule puis supprimer cellule d'origine

Bonjour

Code à tester

Code:

If Range("M" & n) = "-" Then 
Range("M" & n) = Range("N" & n)
Range("N" & n)=""
end if

JP

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 7 Janvier 2010

• #4

Re : macro copier valeur cellule puis supprimer cellule d'origine

Bonjour jp14,
J'ai oublié le End If 😱
Cordialement

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 7 Janvier 2010

• #5

Re : macro copier valeur cellule puis supprimer cellule d'origine

Bonjour Pierre,

si j'ai bien comris :

Code:

Sub test()
Dim n As Integer
For n = 2 To Range("M8000").End(xlUp).Row
    If Range("M" & n) = "-" Then Range("N" & n).Cut Range("M" & n)
Next n
End Sub

bonne journée
@+

Edition : Aarf, après la bataille moi... bonjour Efge, JP

 

Vote positif 0 Vote négatif

P

pierre31270

Guest

• 7 Janvier 2010

• #6

Re : macro copier valeur cellule puis supprimer cellule d'origine

Il y a une erreur de compilation next sans for
je comprends pas :S

 

Vote positif 0 Vote négatif

R

rudymagny

XLDnaute Occasionnel

• 7 Janvier 2010

• #7

Re : macro copier valeur cellule puis supprimer cellule d'origine

C'est à cause du end if manquant (ça m'arrive souvent):

Sub test()
For n = 2 To Range("M8000").End(xlUp).Row
If Range("M" & n) = "-" Then
Range("M" & n) = Range("N" & n)
Range("N" & n).Value = ""
..... end if .....
Next n
End Sub

Efgé te l'avais dit :

Efgé à dit:

Bonjour jp14,
J'ai oublié le End If 😱
Cordialement

Cliquez pour agrandir...

 

Dernière édition: 7 Janvier 2010

Vote positif 0 Vote négatif

P

pierre31270

Guest

• 7 Janvier 2010

• #8

Re : macro copier valeur cellule puis supprimer cellule d'origine

Super Merci Pierrot93 ça marche impec!!
Merci à jp14, Efgé et Rudymagny pour votre aide!
Passez une bonne journée!

Pierro

 

Vote positif 0 Vote négatif

P

pierre31270

Guest

• 7 Janvier 2010

• #9

Re : macro copier valeur cellule puis supprimer cellule d'origine

rudymagny à dit:

C'est à cause du end if manquant (ça m'arrive souvent):

Sub test()
For n = 2 To Range("M8000").End(xlUp).Row
If Range("M" & n) = "-" Then
Range("M" & n) = Range("N" & n)
Range("N" & n).Value = ""
..... end if .....
Next n
End Sub

Efgé te l'avais dit :

Cliquez pour agrandir...

A mais oui c'est clair je suis à la rue complet ^^
Pourquoi chercher simple quand on peut chercher compliqué 😀

 

Vote positif 0 Vote négatif