Vba excel code identique dans x userform
Résolu
buldo1
Messages postés
17
Statut
Membre
-
2 nov. 2007 à 17:07
buldo1 Messages postés 17 Statut Membre -
buldo1 Messages postés 17 Statut Membre -
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
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
A voir également:
- Vba excel code identique dans x userform
- Code ascii - Guide
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Code puk bloqué - Guide
- Comment déverrouiller un téléphone quand on a oublié le code - Guide
3 réponses
Bonsoir,
tu fais une procedure dans laquelle tu passes ta userform en paramètre :
Du moins, c'est comme cela que je ferais ... ;p
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
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)
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)