macro copier valeur cellule puis supprimer cellule d'origine

[pierre31270]

Bonjour,

Je souhaiterais mettre au point une macro permettant de :
-Remplacer la valeur des cellules de la colonne de M quand leur valeur est égale à "-" par celles contenues dans N.
-Lorsque cette opération est faite, supprimer le contenu copié en provenance de N
-Le classeur comporte une ligne d'en-tête

J'ai déjà une ébauche mais la suppression de la valeur copiée ne marche pas...Quelqu'un peut-il m'aider?
Merci par avance
Pierro

Sub test()
For n = 2 To Range("M8000").End(xlUp).Row
If Range("M" & n) = "-" Then Range("M" & n) = Range("N" & n)
[COLOR="Red"]If Range("M" & n) = Range("N" & n) Then Range("N" & n).Delete[/COLOR]
Next n
End Sub

 

[Efgé]

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

Bonjour pierre31270,
Je pense que :

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

 

[jp14]

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

Bonjour

Code à tester

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

JP

 

[Efgé]

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

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

 

[Pierrot93]

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

Bonjour Pierre,

si j'ai bien comris :

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

 

[pierre31270]

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

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

 

[rudymagny]

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 :

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

 

[pierre31270]

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

 

[pierre31270]

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 :

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