Useform bouton

Résolu/Fermé
titi17-08 Messages postés 117 Date d'inscription mercredi 29 janvier 2020 Statut Membre Dernière intervention 20 janvier 2023 - Modifié le 13 déc. 2021 à 08:42
titi17-08 Messages postés 117 Date d'inscription mercredi 29 janvier 2020 Statut Membre Dernière intervention 20 janvier 2023 - 13 déc. 2021 à 11:04
Bonjour cher réseau,
voila ma petite interrogation du début de semaine...
J'ai un bouton Valider les Freelances dans un userform.
je cherche a le déplacer selon plusieurs paramètres en amont.
Je sais que le .top est le positionnement du userform/ textbox /bouton mais cela ne fonctionne pas
le code ci-dessous
merci pour votre aide
belle journée a vous
titi
If Selection.Offset(1, 0).Select <> "" Then
                With Liste_Freelance_periode
                Select Case TypeName(Liste_Freelance_periode)
                    Case "Liste_Freelance_periode"
                    .Height = 350
                    Select Case TypeName(Valider_les_freelances)
                  
                    Case "Valider_les_freelances"
                    .Top = 270
                    End Select
                    
                    End Select
                End With
            
            End If

2 réponses

ThauTheme Messages postés 1442 Date d'inscription mardi 21 octobre 2014 Statut Membre Dernière intervention 29 juillet 2022 160
13 déc. 2021 à 10:54
Bonjour Titi, bonjour le forum,

Ton code ne permet pas de savoir qui est qui !... Essaie comme ça :
If Selection.Offset(1, 0) <> "" Then
With Liste_Freelance_periode 'j'imagine que c'est le nom de l'UserForm
.Liste_Freelance_periode.Height = 350 'j'imagine que c'est le nom du contrôle
.Valider_les_freelances.Top = 270 'j'imagine que c'est le nom du contrôle
End With
End If

1
titi17-08 Messages postés 117 Date d'inscription mercredi 29 janvier 2020 Statut Membre Dernière intervention 20 janvier 2023 1
13 déc. 2021 à 11:04
Bonjour Thau Theme,
désolé pour le manque d'informations...:(
j'ai essayé votre solution
avec une modif , voici le code qui fonctionne
merci pour votre aide
A+
titi
<code>Selection.Offset(1, 0).Select
With Liste_Freelance_periode 'j'imagine que c'est le nom de l'UserForm
.Height = 350 'hauteur de l'userform
.Valider_les_freelances.Top = 270 'position du bouton dans l'userform
0
f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
13 déc. 2021 à 11:00
Bonjour,

Mettez un point d'arret a cote de la ligne du IF
appuyez sur la touche F8 pour faire avancer le code ligne par ligne pour voir son deroulement
passez le curseur souris sur les objets pour voir leur contenu
0