Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

envoyer une value d'un macro à un Userform?

  • Initiateur de la discussion Initiateur de la discussion Amrane
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Amrane

XLDnaute Junior
Cher forum,

Mon souci est comment on peut envoyer les valeur "concat1" est " concat_test" au userform "Dual_path_delete" a fin d'effacer le chemin undésiré.

en faite, j'ai essayer de déclarer les variables en dehor du module mais sa n'a pas marché!!😕

votre aide est souhitable

merci
Amr
 

Pièces jointes

Re : envoyer une value d'un macro à un Userform?

Salut,

Tu ne peux pas utiliser le même nom Dual_path_delete pour un module et une procédure,

Ensuite tu as un bon réflexe de mettre tes variables dans un module à part il faut les mettre en public


Dim concat1, concat_test As Variant
devient
public Concat1
public Concat_test

Ensuite, quand tu lances ton usf tu peux exécuter Dual_path_delete dans userform_initialize ainsi initialiser tes variables.

Sinon je ne comprends pas ce que tu veux faire , donc difficile de t'aider plus sans d'autres explications....


A+++
 
Re : envoyer une value d'un macro à un Userform (Pb résolu)

Cher Zon,


Salutations🙂, Sa marche,

j'ai modifer ma feuille, maintenent il y a un transfert de valeur entre le macro et le userform,

permettez moi de vous demander encore une fois la façon optimum pour supprimer les linges vide, car j'e suppose que j'ai fait un bricolage seullement.😕

merci d'avance.

Amrane.
Salut
 

Pièces jointes

Re : envoyer une value d'un macro à un Userform?

Salut

On peut simplifier l'écriture


Code:
Sub Delete_free_line()

'Application.ScreenUpdating = False
    Sheets("Reference").Range("h2:z500").Copy Sheets("draft").Range("A1")
    
    
    Sheets("draft").Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

    Sheets("draft").Range("A1:p500").Copy Sheets("Reference").Range("h2")
  
'Application.ScreenUpdating = True



End Sub


Pourquoi ne pas écrire directement sans copier coller si je comprends bien

Code:
Sheets("reference").Columns("H:H").SpecialCells(xlCellTypeBlanks).EntireRow.Delete


A+++
 
Re : envoyer une value d'un macro à un Userform?

Cher Zon,


OUI, j'aimerai bien le faire dans la même feuille, mais est ce que c'est possible de supprimer uniquement quellque cellules uniquement non pas la ligne entiére.


merci,🙄
Amrane.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

S
Réponses
0
Affichages
771
S
L
Réponses
1
Affichages
1 K
Lucien31
L
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…