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

XL 2013 Valeur commune sur plusieurs userform

  • Initiateur de la discussion Initiateur de la discussion yoyorobots
  • 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 !

yoyorobots

XLDnaute Nouveau
Bonjour,
je suis actuellement entrain de coder alors que se n'est pas du tout mon domaine.
Je souhaiterai faire une valeur commune pour plusieur userform pour ca j'ai la solution avec un public action as long sauf que je veux maintenant le mettre dans un rang("...:...")
voici le programme :
Private Sub ComboBox5_DropButtonClick()
ComboBox5.List = Sheets("DATA").Range("H2:H200").Value
End Sub
pour mieux comprendre je veux que ma variable action remplasse le H200
cordialement,
Yohann
 
Solution
Bonjour yoyorobots
toujours pas de fichier (pas évident)
une proposition
VB:
Private Sub CommandButton11_Click()
Dim nomrecherche As String
Dim ligne As Long
nomrecherche = Me.ComboBox2.Value
With Worksheets("ETAPE2")
ligne = .Range("M2:M300").Find(nomrecherche, Lookat:=xlWhole).Row
End With
With Worksheets("RECHERCHE") 
MsgBox (ligne)
.Range("A2:T2").Value = Sheets("ETAPE2").Range("A" & ligne & ":T" & ligne).Value
End With
End Sub
Cordialement
jean marie
hello..
pour faire simple.. rien compris...
c'est quoi ta variable action?? la dernière ligne de ta feuille Data??

Private Sub ComboBox5_DropButtonClick()
ComboBox5.List = Sheets("DATA").Range("H2:H" &Action).Value
End Sub
 
Bonsoir yoyorobots
Bonsoir vgendron ,le Forum
Ce que j'ai cru comprendre Lol (manque un petit Fichier )
VB:
Private Sub ComboBox5_DropButtonClick()
Dim DerLgn As Long
With Sheets("DATA")
DerLgn = .Cells(.Rows.Count, 8).End(xlUp).Row
Me.ComboBox5.List = .Range("H2:H" & DerLgn).Value
End With
End Sub
Bonne fin de Soirée
jean marie
 
Bonjour,
désoler si mon explication était si nul,
Vous m'avez bien aidé mais j'aurai un autre problème :

Private Sub CommandButton11_Click()
Worksheets("ETAPE2").Select
Dim nomrecherche As String
Dim ligne As Long
nomrecherche = ComboBox2.Value
ligne = Range("M2:M300").Find(nomrecherche, Lookat:=xlWhole).Row

Worksheets("RECHERCHE").Select
MsgBox (ligne)
Sheets("RECHERCHE").Range("A2:T2").Value = Sheets("ETAPE2").Range("A"& ligne:"T" & ligne).Value
End Sub

Je souhaiterai prendre en entier la ligne "ligne" sauf que j'ai une erreur de syntaxe dans le range
bien cordialement
yohann
 
Bonjour yoyorobots
toujours pas de fichier (pas évident)
une proposition
VB:
Private Sub CommandButton11_Click()
Dim nomrecherche As String
Dim ligne As Long
nomrecherche = Me.ComboBox2.Value
With Worksheets("ETAPE2")
ligne = .Range("M2:M300").Find(nomrecherche, Lookat:=xlWhole).Row
End With
With Worksheets("RECHERCHE") 
MsgBox (ligne)
.Range("A2:T2").Value = Sheets("ETAPE2").Range("A" & ligne & ":T" & ligne).Value
End With
End Sub
Cordialement
jean marie
 
Private Sub ComboBox1_DropButtonClick()
Worksheets("ETAPE1").Select
Dim DerLgn0 As Long

With Sheets("ETAPE1")
DerLgn0 = .Cells(.Rows.Count, 6).End(xlUp).Row
Me.ComboBox1.List = .Range("F2:F" & DerLgn0).Value
End With

Application.ScreenUpdating = False

Worksheets("ETAPE1").Select
Dim L As Integer
Dim N As String
N = ComboBox1.Value

L = Range("F2:F65536").Find(N, Lookat:=xlWhole).Row

TextBox9.Value = Cells(L, 1)
ComboBox7.Value = Cells(L, 2)
ComboBox8.Value = Cells(L, 3)
ComboBox9.Value = Cells(L, 4)
TextBox1.Value = Cells(L, 5)
TextBox11.Value = Cells(L, 7)
TextBox2.Value = Cells(L, 8)
TextBox5.Value = Cells(L, 9)
TextBox6.Value = Cells(L, 10)
TextBox12.Value = Cells(L, 11)
TextBox16.Value = Cells(L, 12)
TextBox17.Value = Cells(L, 13)

End Sub

J'aurai une autre petite question cette fonction m'affiche une erreur

Je suis désolé mais je ne sais si mon fichier peut se retrouver sur internet
 
Bonjour,

Si ton fichier contient des données confidentielles, enlèves-les et montre le-nous, parce qu'ils ne peuvent rien faire de plus sans fichier (tandis que moi le VBA c'est pas mon fort).
 
- 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

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…