vba excel code identique dans x userform Résolu/Fermé

Question

Bonjour,j'ai plusieurs userform qui contiennent chacun du code identique ex:
 ActiveCell.FormulaR1C1 = TXT_Num_Fiche.Value
    ActiveCell.Next.Select
    ActiveCell.FormulaR1C1 = TXT_DateDde.Value
    ActiveCell.Next.Select
    ActiveCell.FormulaR1C1 = TXT_Nom_Ddeur.Value
    ActiveCell.Next.Select
    ActiveCell.FormulaR1C1 = TXT_Prenom_Ddeur.Value
Comment faire appel à un sous-programmme qui contiendrait ce code?
j'ai essayé avec le nom du userform ex ici FRM_attrib
ActiveCell.FormulaR1C1 = FRM_attrib!TXT_Num_Fiche.Value cela a l'air de marcher
mais comment  remplacer le nom par une variable afin de pouvoir remplacer le nom du userform?
cordialement,
merci

ShaBoo · Answer

Bonsoir, 


tu fais une procedure dans laquelle tu passes ta userform en paramètre :

Sub test(oFrm as Object)

    ActiveCell.FormulaR1C1 = oFrm!TXT_Num_Fiche.Value

End Sub

Du moins, c'est comme cela que je ferais ... ;p

gbinforme · Answer

bonjour

ActiveCell.FormulaR1C1 = FRM_attrib!TXT_Num_Fiche.Value cela a l'air de marcher 

Essaie plutôt : ActiveCell.FormulaR1C1 = FRM_attrib.TXT_Num_Fiche.Value

Pour le mettre ton code de façon unique il faut créer une fonction (function) ou une macro (sub) selon l'utilisation et passant le nom du formulaire en paramètre.
Function commune(formulaire as string)
 ActiveCell.FormulaR1C1 = formulaire.TXT_Num_Fiche.Value 
et tu l'appelles avec
x = commune( FRM_attrib)

buldo1 · Answer

Merci à tous les deux
en prenant un bout de chacun c'est ok
dans ma proc principale je mets:
x= nomdefunction(nomduformulaire)
dans la function:
Function   nomdefuction(NomFRM as object)
..

 ActiveCell.FormulaR1C1 = NomFRM!TXT_Num_Fiche.Value

Merci

Vba excel code identique dans x userform

3 réponses

Discussions similaires