Bonsoir,
un code qui supprime les formules et garde les valeurs de la ligne lorsqu'on introduit "OUI" en colonne "K"
macro à mettre dans le code de "Feuil1"
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 11 Then Exit Sub
If UCase(Target) = "OUI" Then
Range("G" & Target.Row & ":J" & Target.Row).Copy
Range("G" & Target.Row).PasteSpecial xlPasteValues
End If
End Sub
code pour supprimer les formules et garde les valeurs sur toutes les lignes où l'on a un "OUI" en colonne K
à n'utiliser en principe qu'une seule fois
à mettre également dans le code de "feuil1" ou dans un module. (nécessite que le code précédant soit installé)
Sub initial()
dl = Range("k" & Rows.Count).End(xlUp).Row
For i = 2 To dl
If Range("K" & i) = "OUI" Then
' on réécrit "OUI" là où il y a un "OUI" pour forcer l'exécution de la macro worksheet_change
Range("K" & i) = "OUI"
End If
Next i
End Sub