Vba excel code identique dans x userform

Résolu

buldo1 Messages postés 16 Date d'inscription Statut Membre Dernière intervention -
buldo1 Messages postés 16 Date d'inscription Statut Membre Dernière intervention - 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
Code ascii - Guide
Liste déroulante excel - Guide
Word et excel gratuit - Guide
Code puk bloqué - Guide
Code activation windows 10 - Guide

3 réponses

Réponse 1 / 3

ShaBoo Messages postés 392 Date d'inscription Statut Membre Dernière intervention 50

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 Statut Contributeur Dernière intervention 4 724

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 Statut Membre Dernière intervention 3

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 ?

Votre réponse

Discussions similaires