bonjour a toutes et a tous
voici mon petit probleme
dans une cellule j'ai une valeur et je voudrais y ajouter (soit avant ou
apres)une valeur selectionnée dans un combo box
voici mon code pour un combo box car je pense devoir modifier ou ajouter une
ligne dedans
Private Sub ComboBox3_Change()
ActiveCell.Value = Me.ComboBox3.Value
End Sub
Private Sub ComboBox3_GotFocus()
Dim Rg As Range, Tblo As Variant
With Worksheets("Données")
Set Rg = .Range("b24:b" & .Range("b7").End(xlUp).Row)
Tblo = Rg
End With
Me.ComboBox3.List = Tblo
End Sub
exemple
dans ma cellule "a23" j'ai "bonjour"
dans mon combo box j'ai "tout le monde" que je selectionne
et je voudrais avoir dans ma cellule "a23" : "bonjour tout le monde"
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
ABED HADDOU
Bonjour "Andrée et Romuald"
Private Sub ComboBox3_Change() Select Case Me.ComboBox3.ListIndex
Case 0 ActiveCell.Value = ActiveCell & Me.ComboBox3.Text CASE 1 ActiveCell.Value = ActiveCell & Me.ComboBox3.Text CASE 2 BLABLA*** End Select
End Sub Abed
bonjour a toutes et a tous voici mon petit probleme dans une cellule j'ai une valeur et je voudrais y ajouter (soit avant ou apres)une valeur selectionnée dans un combo box
voici mon code pour un combo box car je pense devoir modifier ou ajouter une ligne dedans
Private Sub ComboBox3_Change() ActiveCell.Value = Me.ComboBox3.Value End Sub
Private Sub ComboBox3_GotFocus() Dim Rg As Range, Tblo As Variant With Worksheets("Données") Set Rg = .Range("b24:b" & .Range("b7").End(xlUp).Row) Tblo = Rg End With Me.ComboBox3.List = Tblo End Sub
exemple dans ma cellule "a23" j'ai "bonjour" dans mon combo box j'ai "tout le monde" que je selectionne et je voudrais avoir dans ma cellule "a23" : "bonjour tout le monde"
merci d'avance pour votre aide precieuse
Andrée et Romuald
Bonjour "Andrée et Romuald"
Private Sub ComboBox3_Change()
Select Case Me.ComboBox3.ListIndex
Case 0
ActiveCell.Value = ActiveCell & Me.ComboBox3.Text
CASE 1
ActiveCell.Value = ActiveCell & Me.ComboBox3.Text
CASE 2
BLABLA***
End Select
End Sub
Abed
bonjour a toutes et a tous
voici mon petit probleme
dans une cellule j'ai une valeur et je voudrais y ajouter (soit avant ou
apres)une valeur selectionnée dans un combo box
voici mon code pour un combo box car je pense devoir modifier ou ajouter une
ligne dedans
Private Sub ComboBox3_Change()
ActiveCell.Value = Me.ComboBox3.Value
End Sub
Private Sub ComboBox3_GotFocus()
Dim Rg As Range, Tblo As Variant
With Worksheets("Données")
Set Rg = .Range("b24:b" & .Range("b7").End(xlUp).Row)
Tblo = Rg
End With
Me.ComboBox3.List = Tblo
End Sub
exemple
dans ma cellule "a23" j'ai "bonjour"
dans mon combo box j'ai "tout le monde" que je selectionne
et je voudrais avoir dans ma cellule "a23" : "bonjour tout le monde"
Private Sub ComboBox3_Change() Select Case Me.ComboBox3.ListIndex
Case 0 ActiveCell.Value = ActiveCell & Me.ComboBox3.Text CASE 1 ActiveCell.Value = ActiveCell & Me.ComboBox3.Text CASE 2 BLABLA*** End Select
End Sub Abed
bonjour a toutes et a tous voici mon petit probleme dans une cellule j'ai une valeur et je voudrais y ajouter (soit avant ou apres)une valeur selectionnée dans un combo box
voici mon code pour un combo box car je pense devoir modifier ou ajouter une ligne dedans
Private Sub ComboBox3_Change() ActiveCell.Value = Me.ComboBox3.Value End Sub
Private Sub ComboBox3_GotFocus() Dim Rg As Range, Tblo As Variant With Worksheets("Données") Set Rg = .Range("b24:b" & .Range("b7").End(xlUp).Row) Tblo = Rg End With Me.ComboBox3.List = Tblo End Sub
exemple dans ma cellule "a23" j'ai "bonjour" dans mon combo box j'ai "tout le monde" que je selectionne et je voudrais avoir dans ma cellule "a23" : "bonjour tout le monde"
merci d'avance pour votre aide precieuse
Andrée et Romuald
Andrée et Romuald
merci pour cette reponse rapide et tres efficace Andrée et Romuald
"ABED HADDOU" a écrit dans le message de news:
Bonjour "Andrée et Romuald"
Private Sub ComboBox3_Change() Select Case Me.ComboBox3.ListIndex
Case 0 ActiveCell.Value = ActiveCell & Me.ComboBox3.Text CASE 1 ActiveCell.Value = ActiveCell & Me.ComboBox3.Text CASE 2 BLABLA*** End Select
End Sub Abed
bonjour a toutes et a tous voici mon petit probleme dans une cellule j'ai une valeur et je voudrais y ajouter (soit avant ou apres)une valeur selectionnée dans un combo box
voici mon code pour un combo box car je pense devoir modifier ou ajouter une ligne dedans
Private Sub ComboBox3_Change() ActiveCell.Value = Me.ComboBox3.Value End Sub
Private Sub ComboBox3_GotFocus() Dim Rg As Range, Tblo As Variant With Worksheets("Données") Set Rg = .Range("b24:b" & .Range("b7").End(xlUp).Row) Tblo = Rg End With Me.ComboBox3.List = Tblo End Sub
exemple dans ma cellule "a23" j'ai "bonjour" dans mon combo box j'ai "tout le monde" que je selectionne et je voudrais avoir dans ma cellule "a23" : "bonjour tout le monde"
merci d'avance pour votre aide precieuse
Andrée et Romuald
merci pour cette reponse rapide et tres efficace
Andrée et Romuald
"ABED HADDOU" <ABEDHADDOU@discussions.microsoft.com> a écrit dans le message
de news: D59560D6-9ACE-4A91-88B8-0CC0BA6D981E@microsoft.com...
Bonjour "Andrée et Romuald"
Private Sub ComboBox3_Change()
Select Case Me.ComboBox3.ListIndex
Case 0
ActiveCell.Value = ActiveCell & Me.ComboBox3.Text
CASE 1
ActiveCell.Value = ActiveCell & Me.ComboBox3.Text
CASE 2
BLABLA***
End Select
End Sub
Abed
bonjour a toutes et a tous
voici mon petit probleme
dans une cellule j'ai une valeur et je voudrais y ajouter (soit avant ou
apres)une valeur selectionnée dans un combo box
voici mon code pour un combo box car je pense devoir modifier ou ajouter
une
ligne dedans
Private Sub ComboBox3_Change()
ActiveCell.Value = Me.ComboBox3.Value
End Sub
Private Sub ComboBox3_GotFocus()
Dim Rg As Range, Tblo As Variant
With Worksheets("Données")
Set Rg = .Range("b24:b" & .Range("b7").End(xlUp).Row)
Tblo = Rg
End With
Me.ComboBox3.List = Tblo
End Sub
exemple
dans ma cellule "a23" j'ai "bonjour"
dans mon combo box j'ai "tout le monde" que je selectionne
et je voudrais avoir dans ma cellule "a23" : "bonjour tout le monde"
merci pour cette reponse rapide et tres efficace Andrée et Romuald
"ABED HADDOU" a écrit dans le message de news:
Bonjour "Andrée et Romuald"
Private Sub ComboBox3_Change() Select Case Me.ComboBox3.ListIndex
Case 0 ActiveCell.Value = ActiveCell & Me.ComboBox3.Text CASE 1 ActiveCell.Value = ActiveCell & Me.ComboBox3.Text CASE 2 BLABLA*** End Select
End Sub Abed
bonjour a toutes et a tous voici mon petit probleme dans une cellule j'ai une valeur et je voudrais y ajouter (soit avant ou apres)une valeur selectionnée dans un combo box
voici mon code pour un combo box car je pense devoir modifier ou ajouter une ligne dedans
Private Sub ComboBox3_Change() ActiveCell.Value = Me.ComboBox3.Value End Sub
Private Sub ComboBox3_GotFocus() Dim Rg As Range, Tblo As Variant With Worksheets("Données") Set Rg = .Range("b24:b" & .Range("b7").End(xlUp).Row) Tblo = Rg End With Me.ComboBox3.List = Tblo End Sub
exemple dans ma cellule "a23" j'ai "bonjour" dans mon combo box j'ai "tout le monde" que je selectionne et je voudrais avoir dans ma cellule "a23" : "bonjour tout le monde"
