Sub Mise_en_forme_Récap_2() Dim cellule As Variant For Each cellule In Range("B13:B65536") If Left$(cellule, 7) = "RGL DIF" Then cellule.Offset(0, 1).Select Selection.Cut cellule.Offset(0, 4).Select ActiveSheet.Paste cellule.Offset(0, 2).Select Selection.Cut cellule.Offset(0, 5).Select ActiveSheet.Paste cellule.EntireRow.Interior.ColorIndex = 15 End If Next cellule End Sub
For Each cellule In Range("C1:C10") MsgBox "la cellule " & cellule.Address & "contient " & cellule.Value & vbCrLf & _ "la cellule " & cellule.Offset(0, 1).Address & " contient " & cellule.Offset(0, 1).Value & vbCrLf & _ "la cellule " & cellule.Offset(0, 2).Address & " contient " & cellule.Offset(0, 2).Value & vbCrLf & _ "que dois-je faire ?" & vbCrLf & _ " dire que si " & cellule.Value & " = 'CPT' (par exemple), alors :" & vbCrLf & _ "1) dire que " & cellule.Offset(0, 4).Address & ".value = " & cellule.Offset(0, 1).Address & ".value" & vbCrLf & _ "2) dire que " & cellule.Offset(0, 5).Address & ".Value = " & cellule.Offset(0, 2).Address & ".value" & vbCrLf & _ "3) dire ensuite que " & cellule.Offset(0, 1).Address & ".value = """" et que " & vbCrLf & _ cellule.Offset(0, 2).Address & ".value = """"" Next
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionSub Mise_en_forme_Récap_2() Dim cellule As Variant For Each cellule In Range("C13:C80") If cellule.Value = "PP VN 3846" Then cellule.Offset(0, 1).Select Selection.Cut cellule.Offset(0, 4).Select ActiveSheet.Paste cellule.Offset(0, 2).Select Selection.Cut cellule.Offset(0, 5).Select ActiveSheet.Paste cellule.EntireRow.Interior.ColorIndex = 15 End If Next cellule End Sub