Re : Input box a optimiser
Bonjour,
Tu peux remplacer tout ce qui est dans ton for each par ceci...
For Each cel In celltxt
If InStr(1, cel, "Bonj") Then
cel.Value = "Bonjour"
End If
If InStr(1, cel, "mg/mL") Then
cel.Value = "Quantity (mg/mL)"
End If
If InStr(1, cel, "ID") Then
rep = MsgBox("Current name is " & cel.Value & " Would you like to rename it ?", vbYesNo + vbQuestion, "Question")
If rep = vbYes Then
cel.Value = "Child Sample ID"
End If
End If
Next
Ca devrai faire ce que tu voudrais...
Bonne fin de journée.
John