Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Excel...lent
Salut Damien,
Alors pour faire apparaître un Usf si cellule d4 à z500 cliquée :
A mettre dans la feuille concernée. Ce code déclenchera un événement ( Affichage Userform1 ) si une cellule de la zone est sélectionné.
Private Sub Worksheet_Selection(ByVal Target As Range) Dim KeyCells As Range Set KeyCells = Range("D4:Z500") If Not Application.Intersect(KeyCells, Range(Target.Address)) _ Is Nothing Then Load UserForm1 UserForm1.Show End If End Sub
Cordialement.
Marc
Salut Damien,
Alors pour faire apparaître un Usf si cellule d4 à z500 cliquée :
A mettre dans la feuille concernée.
Ce code déclenchera un événement ( Affichage Userform1 ) si une cellule de
la zone est sélectionné.
Private Sub Worksheet_Selection(ByVal Target As Range)
Dim KeyCells As Range
Set KeyCells = Range("D4:Z500")
If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then
Load UserForm1
UserForm1.Show
End If
End Sub
Alors pour faire apparaître un Usf si cellule d4 à z500 cliquée :
A mettre dans la feuille concernée. Ce code déclenchera un événement ( Affichage Userform1 ) si une cellule de la zone est sélectionné.
Private Sub Worksheet_Selection(ByVal Target As Range) Dim KeyCells As Range Set KeyCells = Range("D4:Z500") If Not Application.Intersect(KeyCells, Range(Target.Address)) _ Is Nothing Then Load UserForm1 UserForm1.Show End If End Sub
Cordialement.
Marc
Excel...lent
Re Damien,
Oups... Mon clavier a fourché.
Remplace le première ligne du code par ceci :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Désolé.
Cordialement.
Marc
Re Damien,
Oups... Mon clavier a fourché.
Remplace le première ligne du code par ceci :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Désolé.
Cordialement.
Marc
Excel...lent
Re Damien,
Pour finir avec ta demande dans ton userform tu as donc si j'ai bien compris une textbox et un OptionButon ( case à cocher ) . Donc si j'ai bien compris tu veux que dans la cellule sélectionnée ( à l'intérieur de la zone D4:Z500) quand ton Userform se ferme il y ait :
"NA" si tu as coché ton optionButon ou le contenu de ton textbox.
Donc dans le code de ton Usf tu va rajouter ces deux codes.
1er code qui reinitialise l'Usf à chaque ouverture
Private Sub UserForm_Activate() TextBox1.Value = "" OptionButton1.Value = False End Sub
2ème code qui s'occupera d'afficher à chaque fermeture de l'Usf dans la ( ou les ) cellule(s) sélectionnée(s) soit "NA" soit le contenu de la textbox.
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If OptionButton1.Value = True Then Selection = "NA" Exit Sub End If Selection = TextBox1.Value End Sub
Cordialement.
Marc
Re Damien,
Pour finir avec ta demande dans ton userform tu as donc si j'ai bien compris
une textbox et un OptionButon ( case à cocher ) . Donc si j'ai bien compris
tu veux que dans la cellule sélectionnée ( à l'intérieur de la zone D4:Z500)
quand ton Userform se ferme il y ait :
"NA" si tu as coché ton optionButon ou le contenu de ton textbox.
Donc dans le code de ton Usf tu va rajouter ces deux codes.
1er code qui reinitialise l'Usf à chaque ouverture
Private Sub UserForm_Activate()
TextBox1.Value = ""
OptionButton1.Value = False
End Sub
2ème code qui s'occupera d'afficher à chaque fermeture de l'Usf dans la (
ou les ) cellule(s) sélectionnée(s) soit "NA" soit le contenu de la textbox.
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If OptionButton1.Value = True Then
Selection = "NA"
Exit Sub
End If
Selection = TextBox1.Value
End Sub
Pour finir avec ta demande dans ton userform tu as donc si j'ai bien compris une textbox et un OptionButon ( case à cocher ) . Donc si j'ai bien compris tu veux que dans la cellule sélectionnée ( à l'intérieur de la zone D4:Z500) quand ton Userform se ferme il y ait :
"NA" si tu as coché ton optionButon ou le contenu de ton textbox.
Donc dans le code de ton Usf tu va rajouter ces deux codes.
1er code qui reinitialise l'Usf à chaque ouverture
Private Sub UserForm_Activate() TextBox1.Value = "" OptionButton1.Value = False End Sub
2ème code qui s'occupera d'afficher à chaque fermeture de l'Usf dans la ( ou les ) cellule(s) sélectionnée(s) soit "NA" soit le contenu de la textbox.
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If OptionButton1.Value = True Then Selection = "NA" Exit Sub End If Selection = TextBox1.Value End Sub
Cordialement.
Marc
damgui
bonjour excel..lent
je te remercie de ton aide !! je l'integre dans mon prog merci damgui
bonjour excel..lent
je te remercie de ton aide !!
je l'integre dans mon prog
merci
damgui
