Vba excel code identique dans x userform

Résolu/Fermé

buldo1 Messages postés 16 Date d'inscription vendredi 2 novembre 2007 Statut Membre Dernière intervention 18 février 2009 - 2 nov. 2007 à 17:07
buldo1 Messages postés 16 Date d'inscription vendredi 2 novembre 2007 Statut Membre Dernière intervention 18 février 2009 - 3 nov. 2007 à 15:23

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

A voir également:

Vba excel code identique dans x userform
Liste déroulante excel - Guide
Formule excel - Guide
Code asci - Guide
Si et excel - Guide
Aller à la ligne dans une cellule excel - Guide

3 réponses

Réponse 1 / 3

ShaBoo Messages postés 392 Date d'inscription mercredi 12 septembre 2007 Statut Membre Dernière intervention 5 septembre 2009 50
2 nov. 2007 à 18:29

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

Réponse 2 / 3

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
2 nov. 2007 à 18:29

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)

Réponse 3 / 3

buldo1 Messages postés 16 Date d'inscription vendredi 2 novembre 2007 Statut Membre Dernière intervention 18 février 2009 3
3 nov. 2007 à 15:23

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

Discussions similaires

Dimensions L x l x H : comment lire ces infos ?

Discussions similaires

Newsletters