Condition IF qui ne fonctionne pas
y
Bonjour à tous,
j'ai lancé cette macro qui permet d'effectuer les changements automatiques sur des fichiers excels.
j'ai posé la condition if qui suit: si dans la colonne O , je repère SIG et que dans la colonne M la valeur est inférieure à 50, alors SIG se transforme en SIG BPA, mais la macro me modifie tout.
Voici la macro fichier "renommer cellule" et voici les deux fichiers "X8000....et X8040... dans lesquels se trouvent les données.
Veuillez mettre les deux fichiers X8000... et X8040... dans un dossier à part , lancer la macro "Renommer cellule" en cliquant sur le bouton Renommer.
Merci d'avance pour votre aide.
Bonjour,
essaie ainsi :
For i = pl To DL
If Cells(i, "O").Value = chaine1 Then
Select Case Cells(i, "M").Value
Case Is < 50: Cells(i, "O").Value = chaine2
Case Is > 50: Cells(i, "O").Value = chaine1
Case Else:
End Select
End If
Next i