Activer un bouton selon condition
Résolu/Fermé
New_VBA_User
Messages postés
82
Date d'inscription
mardi 27 août 2019
Statut
Membre
Dernière intervention
3 octobre 2019
-
3 sept. 2019 à 15:39
New_VBA_User Messages postés 82 Date d'inscription mardi 27 août 2019 Statut Membre Dernière intervention 3 octobre 2019 - 4 sept. 2019 à 14:02
New_VBA_User Messages postés 82 Date d'inscription mardi 27 août 2019 Statut Membre Dernière intervention 3 octobre 2019 - 4 sept. 2019 à 14:02
A voir également:
- Activer un bouton selon condition
- Excel cellule couleur si condition texte - Guide
- Comment activer windows 10 - Guide
- Activer chromecast - Guide
- Activer pavé tactile windows 10 - Guide
- Activer office gratuitement - Guide
1 réponse
cs_Le Pivert
Messages postés
7904
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2024
729
3 sept. 2019 à 15:52
3 sept. 2019 à 15:52
Bonjour,
voir ceci pour activer ou désactiver un commanbutton:
https://silkyroad.developpez.com/VBA/ControlesUserForm/#LII-D
Il te suffit de mettre les conditions
Si ligne sélectionnée alors je désactive ou j'active
voir ceci pour activer ou désactiver un commanbutton:
https://silkyroad.developpez.com/VBA/ControlesUserForm/#LII-D
Il te suffit de mettre les conditions
Si ligne sélectionnée alors je désactive ou j'active
3 sept. 2019 à 16:09
fichier exemple V2: https://www.cjoint.com/c/IIdoedNRS3I
j'ai essayé qqch chose, voir fichier ci-joint.
j'ai désactivé le bouton Previous dans l'initialisation et dans lors qu' on presse le bouton Next on réactive le bouton Previous car on n'est plus sur la 1ère ligne.
et dans le bouton Previous j'ai fait la condition si on la 1ère ligne est sélectionné alors on désactive le bouton Previous, lors qu'on au milieu de colonne, et j'appuie sur le bouton Previous , il remote directement à la 1ère ligne et la valeur affiche dans le texte box ne correspond pas à la 1ère ligne.
je ne comprends pas,
merci de l'aide.
3 sept. 2019 à 16:59
Option Explicit Private Sub CommandButton_Next_Click() If ActiveCell.Offset(1, 0).Value = "" Then CommandButton_Next.Enabled = False Exit Sub Else Application.ScreenUpdating = False Selection.EntireRow.Cut Selection.Offset(Selection.Rows.Count + 1).EntireRow.Insert Selection.Offset(1).Select Me.TextBox_EquipementSAP.Value = Selection.Value CommandButton1_Previous.Enabled = True End If End Sub Private Sub CommandButton1_Previous_Click() If ActiveCell.Row = 2 Then CommandButton1_Previous.Enabled = False Exit Sub Else Application.ScreenUpdating = False If Selection.Row > 1 Then Selection.EntireRow.Cut Selection.Offset(-1).EntireRow.Insert Selection.Offset(-1).Select End If Me.TextBox_EquipementSAP.Value = Selection.Value CommandButton_Next.Enabled = True End If End Sub@+
4 sept. 2019 à 14:02
désolé pour la réponse tardive.
Merci, ça fonctionne.