Input box a optimiser

[choupi_nette]

Bonjour,

Dans le fichier ci joint, jai un bout de code.
Ce code repere les headers et les renome si ils contiennent un string particulier (voir code)

Mon code est ok jusqu'au commentaire 'debut

La en fait je voulais faire une input box qui va me demander si je veux renomer mon header et comment:

Deux possibilités:

1/ Oui la cellule contient "ID" et Oui il faut renomer et je mets dans le champ le nouveau nom
2/Non pas besoin de renommer et ca passe au champ suivant pour regarder si il y a un header qui contient "ID" jusqu'au dernier header

Tout se passe donc dans le header ligne 1

Merci pour votre aide
C.

 

[john]

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

 

[choupi_nette]

Re : Input box a optimiser

Hello John,

Merci c'est tip top
Bonne fin de journée
C.