Remplacement de contenu

[romualdlecordier]

Bonjour à Tous,

Je cherche une personne pouvant m'aider sur une macro
J'aimerais que cette macro regarde en colonne C si on à le chiffre 7 et si c'est le cas mettre sur la même ligne 0 en colonne M,V,W,X et Y

Le reste des chiffre ne bouge pas
Je vous joint un fichier test

Romuald

 

[pierrejean]

Re : Remplacement de contenu

bonjour romuald

Sub supp()
For n = 2 To Range("C65536").End(xlUp).Row
  If Range("C" & n) = 7 Then
    Range("M" & n) = 0
    Range("V" & n) = 0
    Range("W" & n) = 0
    Range("X" & n) = 0
    Range("Y" & n) = 0
  End If
Next n
End Sub

 

[mutzik]

Re : Remplacement de contenu

bonjour,
voir dans fichier joint
arfff, collision avec PierreJean, salut mon grand, et pil poil la meme solution

 

[jp14]

Re : Remplacement de contenu

Bonjour
Salut PierreJean, mutzik

Une autre macro, a tester

 Sub travdem()
With Sheets(ActiveSheet.Name)
Dim cellule As Range
Dim nomfeuille1 As String
For Each cellule In .UsedRange.Columns(3).Cells
    If cellule.Value = 7 Then
    cellule.Offset(0, 10) = 0
    cellule.Offset(0, 19) = 0
    cellule.Offset(0, 20) = 0
    cellule.Offset(0, 21) = 0
    cellule.Offset(0, 33) = 0
    End If
Next cellule
End With
End Sub

A tester

JP

 

[Cousinhub]

Re : Remplacement de contenu

Bonsoir,

essaie avec ce code :

Sub c_est_aujourdhui_dimanche()
Dim FirstAddress As String
Dim C As Range
With Sheets("Feuil1").Columns(3)
    Set C = .Find(7, LookIn:=xlValues, LookAt:=xlWhole)
    If Not C Is Nothing Then
        FirstAddress = C.Address
        Do
            C.Offset(, 10).Value = 0
            C.Offset(, 19).Resize(1, 4).Value = 0
            Set C = .FindNext(C)
        Loop While Not C Is Nothing And C.Address <> FirstAddress
    End If
End With
End Sub

Bonne soirée

Pff, bonsoir, tous, un peu à la bourre, mais j'ai une excuse (voir le motif de modification)
Et pis, c'est pas non plus la même solution....

Bonne soirée à tous

 

[romualdlecordier]

Re : Remplacement de contenu

Bonjour à tous

Merci pour cette macro qui fonctionne

Vraiment ce site est vraiment trop bien et en plus nous permet de progresser

Romuald