Macro VBA à exécuter sur une feuille de calcul spécifique

Question

Je cherche à avoir une macro à exécuter pour une feuille de calcul spécifique seulement. Le but de la macro serait de rechercher une plage spécifiée et de trouver des valeurs négatives et s'il y en a pour extraire toute la ligne dans une nouvelle feuille de calcul et en même temps transformer ces négatifs en positifs. J'en ai trouvé quelques-uns mais je suis sûr que c'est totalement faux ... il manque beaucoup de choses. Essayant toujours d'apprendre, nouveau à cette substance vba. Merci d'avance pour toute aide que vous pouvez fournir. fyi ntp signifie negativestopositives. Je ne sais pas si cela va aider, juste pensé que je peux écrire tous les détails à mon petit « code »

Sub ntp() 
Dim ws As Worksheet 
If ws.Name <> "originalNeg" Then 
    For Each Cell In Range("I2:I1048576") 
     If Cell.Value < 0 Then 
      Cell.Value = Abs(Cell.Value) 
     End If 
    Next Cell 

End Sub 

Answer 1

Sub ntp() 
Dim ws  As Worksheet 
Dim cel  As Range 
With Activeworkbook.Worksheets("originalNeg") 
    For Each cel In .Range("I2:I" & .Range("I" & Rows.Count).End(xlUp).row) 
     If cel.Value < 0 Then cel.Value = Abs(cel.Value) 
    Next cel 
End With 
End Sub 

Il utilise la feuille de calcul, et notez les . avant Range() qui relie la plage à cette feuille spécifique.

De même, il est rare que vous souhaitiez utiliser toutes les cellules dans une colonne. J'ai utilisé le .End(xlUp).Row pour obtenir la dernière ligne utilisée dans la Colonne I pour que vous puissiez faire une boucle.

Answer 2

Set ws = ThisWorkbook.Worksheets("originalNeg") 

au lieu de se le nom.