Inputbox variable

bonjour,

j ai besoin de modifier la macro ci dessous pour changer la valeur de la variable Const NbCaractereMaxUnifil As Integer = 17 à l'aide d'une inputbox

Dim Segment() As String

Dim NewSegment() As String

Const NbCaractereMaxUnifil As Integer = 17

Const NbCaractereSeuil As Integer = 12

Const CaractereSuperflus As String = ",;"

'Note sur syntaxe TypeDetectable... :

'Le premier terme de la série, sert de "standard" de remplacement.

'Ainsi, lorsqu'un TYP contient "Ecl " ou "eclairage", il sera remplacer par "Éclairage"

Const TypeDetectableEclairage As String = "ÉCLAIRAGE,ÉCLAIRAGES,ECLAIRAGE,ECLAIRAGES,ÉCL ,ÉCL.,ECL ,ECL."

Const TypeDetectablePrise As String = "PRISE,PRISES" 'Elimine les pluriels (Gain de caractère sur ligne)

Const TypeDetectableCoffret As String = "COFFRET,COFFRETS,COFF." 'Elimine les pluriels (Gain de caractère sur ligne) '12.10.2016

Const TypeDetectableReserve As String = "RÉSERVE,R.,RESERVE"

'TypeEliminableInDetectable : (Exemple utilisation)

'Si une expression TYP (Alimentation éclairage 1) contient "éclairage", on élimine "alimentation" dans la recopie.

'Ces termes 'superflus' ne sont éliminés que lors de l'épuration des TypeDetectablexxxx ci-dessus

Const TypeEliminableInDetectable As String = "ALIMENTATION,ALIM.,ALIMENT.,ÉQUIPÉE"

'TypeReductible... :(Exemple utilisation)

'Si une expression TYP (ALIMENTATION ARMOIRE DE COMMUTATION) contient "ALIMENTATION ARMOIRE", on remplace ALIMENTATION ARMOIRE, par le premier terme de la série "ARMOIRE"

Const TypeReductibleArmoire As String = "ARMOIRE,ALIMENTATION ARMOIRES,ALIMENTATIONS ARMOIRES,ALIMENTATIONS ARMOIRE,ALIMENTATION ARMOIRE"

Const TypeReductibleCoffret As String = "COFFRET,ALIMENTATION COFFRETS,ALIMENTATIONS COFFRETS,ALIMENTATIONS COFFRET,ALIMENTATION COFFRET"

Const TypeReductibleTableau As String = "TABLEAU,ALIMENTATION TABLEAUX,ALIMENTATIONS TABLEAUX,ALIMENTATIONS TABLEAU,ALIMENTATION TABLEAU"

Const TypeReductibleCellule As String = "CELLULE,ALIMENTATION CELLULES,ALIMENTATIONS CELLULES,ALIMENTATIONS CELLULE,ALIMENTATION CELLULE"

'TypeSupprimables... :(Exemple utilisation)

'Si une expression TYP (DISJONCTEUR ALIMENTATION RELAIS PRESENCE TENSION) la recopie est réduite à : RELAIS PRESENCE TENSION

'Un disjoncteur est toujours là pour alimenter quelque chose... Ceci permet de décharger les schémas et les étiquettes.

'Les types supprimables, sont éliminés s'ils sont en début de TYP.

Const TypeSupprimables As String = "DISJONCTEUR ALIMENTATION, DISJONCTEUR D'ALIMENTATION, DISJ. ALIMENTATION, DISJ. D'ALIMENTATION,DISJONCTEUR ALIM.,DISJONCTEUR D'ALIM.,DISJ. ALIM.,DISJ. D'ALIM."

Const DetectionColonneType As String = "TYP"

Const DetectionColonneTexte As String = "TXT"

Const DetectionColonneCourant As String = "I"

Const DetectionColonneNbPole As String = "P"

Const DetectionColonneCourbe As String = "C"

Const DetectionColonneDDR As String = "D"

Const DetectionColonneGenre As String = "G"

Const DetectionColonneSection As String = "S"

Const DetectionColonneNOTUSE As String = "NOT" 'Une colonne non utilisée entre des colonnes utiles due la disposition source.

Private m_colormarquage As Long

Bonjour,

Déclare-là en variable et non en constante !

j ai fait le test en remplaçant Const par Dim sans résulta

Dim NbCaractereMaxUnifil As Integer

NbCaractereMaxUnifil=range (A1)

merci

Bonsoir,

ajoute aussi le nom de la feuille devant range

NbCaractereMaxUnifil=sheets("feuil1").range (A1)

j ai toujours un problème j ai le message instruction incorrecte à l'extérieur d'une procédure

Dim NbCaractereMaxUnifil As Integer

NbCaractereMaxUnifil = Sheets("Feuil1").Range(A1)

idem avec

Dim NbCaractereMaxUnifil As Integer

NbCaractereMaxUnifil = 17

bonsoir,

comme tu ne nous montres pas ton code, on avance par essai erreur ...

mets

ton instruction dim NbCaractereMaxUnifil as integer en dehors d'une procédure

ton instruction NbCaractereMaxUnifil = Sheets("Feuil1").Range(A1) dans une procédure

Bonjour,

Il y a quelque chose que j'ai du mal à saisir, ton titre dit "inputbox variable" et tu cherche à affecter à la variable (au demeurant bien trop longue à mon goût) la valeur d'une cellule ?

Un exemple de code avec un InputBox() :

Sub Test()

    Dim NbCaractereMaxUnifil As Integer

    On Error Resume Next
    NbCaractereMaxUnifil = InputBox("Quelle valeur numérique pour cette variable ?", "Variable", 1)
    If Err.Number <> 0 Then MsgBox "Seulement numérique et entier !": Exit Sub

    MsgBox "Valeur saisie : " & NbCaractereMaxUnifil

End Sub

bonjour,

dans le fichier excel ci joint qui ce lance à chaque démarrage d'EXCEL (XLSTART) j aimerais modifier la macro du module md_ mdf1

pour changer la valeur de la variable Const NbCaractereMaxUnifil As Integer = 17 via une inputbox

dans l'idee je lance une macro qui me demande la valeur de la variable NbCaractereMaxUnifil As Integer et ensuite lance la macro MEF_SélectionTextesPourSchémas_V3